Bpk, walau sudah diconvert sumber datanya ke cint, tetap variable i masih merupakan variant, bisa diisi oleh text, number, dll.
Thank's ----- Original Message ----- From: Murid Belajar Access To: [email protected] Sent: Thursday, February 04, 2010 5:03 PM Subject: RE: [belajar-access] QUERY APPEND BIKIN MUMET Trims atas tambahannya Belajar Office. Memang lebih lengkapnya pake deklarasi variable terlebih dahulu. Option database Option explicit Dim I as integer Private Sub OK_Click() For I=Cint(Nomor1.value) to Cint(Nomor2.value) Docmd.setwarnings false Docmd.runsql "INSERT INTO DATAKU (Nomor) VALUES (" & I & ")",true Docmd.setwarnings true next End sub Tapi, saya udah convert pake Cint loh. :) Salam hangat dan jabat erat, MBA -----Original Message----- From: [email protected] [mailto:[email protected]] On Behalf Of Belajar Office Sent: Thursday, February 04, 2010 16:39 PM To: [email protected] Subject: Re: [belajar-access] QUERY APPEND BIKIN MUMET Bpk, utk variabel i sebaiknya didefinisikan dahulu, dim i as integer, bila tidak akan dianggap sebagai data variant, dan apabila di header class module di tambah option explicit, procedure ini akan menghasilkan error. Thank's ----- Original Message ----- From: Murid Belajar Access <mailto:[email protected]> To: [email protected] Sent: Thursday, February 04, 2010 3:18 PM Subject: RE: [belajar-access] QUERY APPEND BIKIN MUMET Asumsi: 2 textbox bernama Nomor1 dan Nomor2 Ada tabel DATAKU dengan Field bernama Nomor bertipe data INTEGER / LONG Private Sub OK_Click() For i=Cint(Nomor1.value) to Cint(Nomor2.value) Docmd.setwarnings false Docmd.runsql "INSERT INTO DATAKU (Nomor) VALUES (" & I & ")",true Docmd.setwarnings true next End sub Salam hangat dan jabat erat, MBA -----Original Message----- From: [email protected] [mailto:[email protected]] On Behalf Of harmandy80 Sent: Thursday, February 04, 2010 15:03 PM To: [email protected] Subject: [belajar-access] QUERY APPEND BIKIN MUMET sore senior dan bapak moderator semua langsung aja ya: aku punya kesulitan saat buat query append. misalnya dalam sebuah form ada 1 tombol OK dan 2 field: nomor1 dan nomor2. FIELD NOMOR1 berisi angka 15 FIELD NOMOR2 berisi angka 35 bgimana caranya agar pas tombol OK ditekan maka append query dijalankan ,sehingga baris pada tabel "DATAKU" akan terisi secara auto sbb: baris1: 15 baris2: 16 baris3: 17 baris4: 18 baris5: 19 baris6: 20 baris7: 21 dst sampai baris terakhir terisi dengan angka 35 plis dong bantuanya ------------------------------------ SPAM IS PROHIBITEDYahoo! Groups Links http://groups.yahoo.com/group/belajar-access/ Individual Email | Traditional http://groups.yahoo.com/group/belajar-access/join (Yahoo! ID required) [email protected] [email protected] [email protected] http://docs.yahoo.com/info/terms/
