السلام عليكم
اخواني عند اختيار اسم حساب غير موجود في قائمة الحسابات " أي حساب جديد وغير معرف من قبل " عملت حدث عند عدم الوجود في القائمة الذهاب الى نموذج الحسابات لتعريف الحساب ,
هل هناك طريقة أو كود ينسخ النص الذي كتبته في عنصر التحكم ولصقه في نموذج تعريف الحسابات تلقائياً .
الكود الحالي الموجود :
عند عدم الوجود في القائمة Private Sub رقم_الحساب_NotInList(NewData As String, Response As Integer)
Dim strmessage As String
Dim bytchoice As Byte
Dim stDocName As String
Dim stLinkCriteria As String
strmessage = "هذا الحساب غير موجود في الثوابت ,هل تريد ادخاله ؟"
bytchoice = MsgBox(strmessage, vbQuestion + vbOKCancel)
If bytchoice = vbCancel Then
Cancel = True
Else
stDocName = "ادخال وتعريف الحسابات"
DoCmd.OpenForm stDocName, , , stLinkCriteria
End If
End Sub
ولكم جزيل الشكر أخوكم عزت
