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
>
>
Minggu, 22 Mei 2011
[belajar-access] Re: Tanya Lagi Soal Looping
__._,_.___
SPAM IS PROHIBITED
.
__,_._,___
Langganan:
Posting Komentar (Atom)
Tidak ada komentar:
Posting Komentar