coba buat sebuah modul dengan nama Utility, kemudian masukkan function dibawah
ini
Public Function GetJE_No(ctl As Control)
Dim frm As Form
On Error Resume Next
If IsFormLoaded("qry_Kas_Kecil") Then DoCmd.Close acForm, "qry_Kas_Kecil"
DoCmd.OpenForm "qry_Kas_Kecil", WindowMode:=acDialog
If Not IsFormLoaded("qry_Kas_Kecil") Then Exit Function
Set frm = Forms!qry_Kas_Kecil
ctl.Value = frm.No_JE_PettY_Cash
DoCmd.Close acForm, "qry_Kas_Kecil"
End Function
kemudian pada tombol open form qry_kas_kecil ketik perintah
=GetJE_NO(Form.qry_Kas_Kecil)
kemudian pada properti doble klik pada form "qry_kas_kecil" disetiap field
nya ketik:
Private Sub No_JE_PettY_Cash_dobleClick()
Me.Visible = False
End Sub
hamdani <[EMAIL PROTECTED]> wrote:
kepeda para pakar access saya punya problem sedikit. saya punya form
A yang membuka form B dr qry untuk diambil datanya dan jika datanya NO_ID
diklik pindah form A dan langsung muncul di textbox yg sudah saya buat dan
tersimpan ditablenya. saya dah coba tapi masih error.
ini saya lampirkan form dan VBA yang sudah saya buat.
terimakasih.
saya tunggu balasan dari temen-temen.
---------------------------------
Be a better friend, newshound, and know-it-all with Yahoo! Mobile. Try it now.
