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 
  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/


  

Kirim email ke