Minggu, 22 Mei 2011

[belajar-access] Re: Tanya Lagi Soal Looping

 

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

__._,_.___
Recent Activity:
SPAM IS PROHIBITED
.

__,_._,___

Tidak ada komentar:

Posting Komentar