ACCESS FEED: [belajar-access] Re: Tanya Lagi Soal Looping

Minggu, 22 Mei 2011

[belajar-access] Re: Tanya Lagi Soal Looping

Ini contoh dan sesuaikan dengan kondisi realnya ( krena file mdb/accdb ,
tak kirim :

sub hanyacontoh()

mIDBayar = "02"
mtanggal = "5/21/2011"

strSQL = "INSERT Into tbbayar " & _
"(IDBayar, Tanggal) " & _
"VALUES ('" & mIDBayar & "'" & ",#" & mtanggal & "#"
& ")"

'trus error di :
CurrentDb.Execute strSQL, dbFailOnError

end sub

'=========
--- In belajar-access@yahoogroups.com, "Bozz" <hermawan_b29@...> wrote:
>
> Makasih ke sekian kalinya pak Yanto.
>
> No 1 sdh berhasil pak.
> cuma masalahnya yg no 2 kok error di:
>
> strSQL = "INSERT Into PinjamanSub
(NoPinjam,AngsuranKe,TglJatuhTempo,TglBayar,AngPokok, AngJasa,
Denda,NoKary ) " _
> & "VALUES ('" & NoPinjaman & "'," & PinjamanKe & ",#" & Tgl_JatuhTempo
& "#, #" & Tgl_JatuhTempo & "#)"
>
> trus error di :
> CurrentDb.Execute strSQL, dbFailOnError
>
> gmn ya pak? di mana ya salahnya?
> bisa di bantu lagi?
>
> Matur nuwun pak.
>
> Hermawan.
>
> --- In belajar-access@yahoogroups.com, Sumiyanto - sumiyanto@ wrote:
> >
> > Dear Pak Bozz Hermawan,
> >
> > 1. jika bapak menginginkan demikian maka buat event AfterUpdate pada
Form Pinjaman di textbox NoAnggota, setting default valuenya =0
> > Private Sub NoAnggota_AfterUpdate()
> > On Error Resume Next
> > Me.PinjamanKe = DMax("PinjamanKe", "Pinjaman", "NoAnggota=" &
Forms!F_Pinjaman!NoAnggota & "") + 1
> > End Sub
> >
> > 2. kalau hanya field tertentu yang dinginkan sedikit di revisi sbb:
> > strSQL = "INSERT Into PinjamanSub
(NoPinjam,AngsuranKe,TglJatuhTempo)" _
> > Â Â Â Â Â Â Â Â Â Â Â Â Â
Â Â & "VALUES ('" & NoPinjaman & "'," & PinjamanKe & ",#" &
StrTglJatuhTempo & "#)"
> >
> > Semoga tetap bersemangat..
> >
> > Thank you | Terima Kasih | Matur Suksema
> >
> >
> >
> > Sumiyanto
> >
> >
>