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/
