Function BilgiAl()
DoCmd.OpenForm "F_0_MemberTaransferAccount"
With Form_F_0_MemberTaransferAccount
.txtUyeNo = Form_SF_1AF.Controls("UyeNo")
.txtUyeAdiSoyadi = Form_SF_1AF.Controls("UyeAdiSoyadi")
.txtIslemTuru = ""
.txtTutar = ""
.txtTarih = ""
End With
End Function
harika bu kod calisti. uygulamak daha az zahmetli ve daha anlasilir oldu kodu okumak daha kolay.
Access Çekirgesi