nanya lg nich master dan rekan2 milis cara seting add-ins access 2007 gmn ya,klo ada petunjuk kirimin ya.. trima kasih
Pada Sen, 08 Feb 2010 17:16 ICT imam safari menulis: >u/ belajar access gimana tuh caranya munculin gambar seperti di bawah sorry >rada gaptek maklum dah tua > > > > >________________________________ >Dari: Murid Belajar Access <[email protected]> >Kepada: [email protected] >Terkirim: Jum, 5 Februari, 2010 07:55:20 >Judul: RE: [belajar-access] Re: INSERT INTO DATE > > >Silahkan lihat sbb: > > >Option Compare Database >Option Explicit > >Private Sub cmdInsertNomor_ Click() >On Error GoTo Err_cmdInsertNomor_ Click > > > Hitunglah > > >Exit_cmdInsertNomor _Click: > Exit Sub > >Err_cmdInsertNomor_ Click: > Debug.Print Err.Description > Resume Exit_cmdInsertNomor _Click > >End Sub > > >Private Sub Hitunglah() > >On Error GoTo Err_cmdInsertNomor_ Click > > Dim i As Integer, strSQL As String, iNomor As Integer, >txtKeterangan As String > Dim dtTanggal > > DoCmd.SetWarnings False > > strSQL = "DELETE * FROM tblContoh" > DoCmd.RunSQL strSQL, True > > For i = CInt(Me.Nomor1. Value) To CInt(Me.Nomor2. Value) > iNomor = i > dtTanggal = "#" & DateAdd("d", i, Date) >& "#" > txtKeterangan = "'Contoh Text Nomor " & CStr(i) >& "'" > > strSQL = "INSERT INTO tblContoh(Nomor, Tanggal,Keterang an) >VALUES (" & i & "," & dtTanggal & "," >& txtKeterangan & ")" > 'Debug.Print strSQL > DoCmd.RunSQL strSQL, True > Next > > DoCmd.SetWarnings True > > DoCmd.OpenTable "tblContoh" > >Exit_cmdInsertNomor _Click: > Exit Sub > >Err_cmdInsertNomor_ Click: > Debug.Print Err.Description > Resume Exit_cmdInsertNomor _Click >End Sub > > >Salam hangat dan jabat erat, >MBA > >-----Original Message----- >From: belajar-access@ yahoogroups. com [mailto:belajar- acc...@yahoogrou >ps.com] On >Behalf Of harmandy80 >Sent: Friday, February 05, 2010 03:00 AM >To: belajar-access@ yahoogroups. com >Subject: [belajar-access] Re: INSERT INTO DATE > >sudah kucoba tapi jadinya nambah pusing paj MBA. maklum newbe >kalau tanggl apa juga harus menggunakna FOR sama Next > >karena aku coba nggak bisa malah keluar error >plis dong diulang dari atas kalau pakai tanggal > >Trims para senior > > >--- In belajar-access@ yahoogroups. com, "Murid Belajar Access" ><murid.belajaraccess @...> wrote: >> >> Asumsi: tanggal bertambah hari sebesar I. dimulai dengan hari ini (Date()) >> >> Data dimasukkan ke field TglUrutan, tipe data dAtetime >> >> >> >> Docmd.runsql "INSERT INTO DATAKU (TglUrutan) VALUES (#" >& >> DateAdd("dd",I,Date()) & "#)",true >> > >> >> Salam hangat dan jabat erat, >> >> MBA > > > > >------------ --------- --------- ------ > >SPAM IS PROHIBITEDYahoo! Groups Links > > > > > > Yahoo! Mail Kini Lebih Cepat dan Lebih Bersih. Rasakan bedanya sekarang! > http://id.mail.yahoo.com Bersenang-senang di Yahoo! Messenger dengan semua teman. Tambahkan mereka dari email atau jaringan sosial Anda sekarang! http://id.messenger.yahoo.com/invite/
