(09/02/2020, 03:46)Oğuz Türkyılmaz yazdı: Function BilgiAl()
DoCmd.OpenForm "F_0_MemberAccount" ', , , , acFormAdd
Forms("F_0_MemberAccount").Controls("txtUyeNo") = Form_SF_1AF.Controls("txtUyeNo")
Forms("F_0_MemberAccount").Controls("txtUyeAdiSoyadi") = Form_SF_1AF.Controls("txtUyeAdiSoyadi")
Forms("F_0_MemberAccount").Controls("txtIslemTuru") = "" 'Form_SF_1AF.Controls("UyeNo")
Forms("F_0_MemberAccount").Controls("txtTutar") = "" 'Form_SF_1AF.Controls("UyeAdiSoyadi")
Forms("F_0_MemberAccount").Controls("txtTarih") = ""
End Function
yerine
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
şeklinde kullanılabilir