Wahhh trima kasih Pak Yanto..
g percuma jd member group ini.
Tp kmrn udh berhasil pak, stlh pantang menyerah..hehe..
Boleh nanya lagi pak?
Bgaimana ya pak rumus : bulan ini dikurangi bulan jatuh tempo.
Saya ingin mencari bulan ini yg belum bayar siapa saja.
Pdhl JT masing2 bulan ada di subform tsbt.
Enaknya dari Query apa dari subform tersebut pak?
Makasi Pak Yanto..
Maaf merepotkan.
--- In belajar-access@yahoogroups.com, Sumiyanto - <sumiyanto@...> wrote:
>
> Pada email sebelumnya sudah saya sertakan pula file attachmentnya, tetapi jika belum menerima, ini saya kirimkan sekali lagi. bapak bisa mempelajarinya.
>
> Thank you | Terima Kasih | Matur Suksema
>
>
>
> Sumiyanto
>
> --- On Sat, 5/21/11, Sumiyanto - <sumiyanto@...> wrote:
>
> From: Sumiyanto - <sumiyanto@...>
> Subject: Re: [belajar-access] Re: Tanya Lagi Soal Looping
> To: belajar-access@yahoogroups.com
> Date: Saturday, May 21, 2011, 10:06 PM
>
> 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
>
> --- On Fri, 5/20/11, Bozz <hermawan_b29@...> wrote:
>
> From: Bozz <hermawan_b29@...>
> Subject: [belajar-access] Re: Tanya Lagi Soal Looping
> To: belajar-access@yahoogroups.com
> Date: Friday, May 20, 2011, 6:59 PM
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
> Â
>
>
>
>
>
>
>
>
>
> Great..Makasi Pak Yanto.
>
> Ada hal yg saya tanyakan lagi:
>
> 1. Tp kok PinjamanKe nya tdk berubah ya pak klo atas nama orang yang sama. harunya kan 1, 2, 3 gitu..
>
> 2. utk angs detail subform, harusnya tgl bayar di set di tgl hari ini pak (saya pake =date() ) trus angs pokok, jasa, denda di isi manual. hanya jumlahnya bisa di buat otomatis terisi.
>
>
>
> jdi yg trisi cuma Angs ke, Jatuh Tempo, saja pak.
>
>
>
> VB ini mana yg harus saya hapus?
>
>
>
> strSQL = "INSERT Into PinjamanSub (NoPinjam,AngsuranKe,TglJatuhTempo,TglBayar,AngPokok, AngJasa, Denda,NoKary ) " _
>
> & "VALUES ('" & NoPinjaman & "'," & PinjamanKe & ",#" & Tgl_JatuhTempo & "#, #" & Tgl_JatuhTempo & "#," & FormatNumberEn(AngsPokok) _
>
> & "," & FormatNumberEn(AngsBunga) & ",'" & 0 & "','" & NoKaryawan & "')"
>
>
>
> Maaf merepotkan, krn mmg bener2 udh mentok utak utiknya..
>
>
>
> Hatur Nuhun.
Tidak ada komentar:
Posting Komentar