مطلوب كود لنسخ نص في عنصر تحكم ( قائمة منسدلة ) وغير موجود في القائمة

[Ezzat almassre]

السلام عليكم 

اخواني عند اختيار اسم حساب غير موجود في قائمة الحسابات " أي حساب جديد وغير معرف من قبل " عملت حدث عند عدم الوجود في القائمة الذهاب الى نموذج الحسابات لتعريف الحساب ,

هل هناك طريقة أو كود ينسخ النص الذي كتبته في عنصر التحكم ولصقه في نموذج تعريف الحسابات تلقائياً .

الكود الحالي الموجود :

 

  عند عدم الوجود في القائمة 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

ولكم جزيل الشكر أخوكم عزت

[kaser906]

14 ساعات مضت, Ezzat almassre said:

هل هناك طريقة أو كود ينسخ النص الذي كتبته في عنصر التحكم ولصقه في نموذج تعريف الحسابات تلقائياً

وعليكم السلام

دائما نقول وضع المرفق يحقق لك الاجابه في وقت قياسي

عموما

اعمل مربع نص غير منظم

في حدث عند التغير لمربع التحرير والسرد

اجعل قيمة مربع النص غير المنظم تساوي مربع التحرير والسرد

وعند فتح نموذج الاضافة اجعل القيمة تساوي مربع النص غير المنظم

::بالتوفيق::

[Ezzat almassre]

شكراً جزيلا اخي الكريم تم الموضوع بنجاح