السلام عليكم ورحمة الله وبركاته
. تحية طيبة أما بعد
بسم الله والصلاة و السلام على خير عباد الله محمد صلى الله عليه وسلم ...
عندي مشروع تعبئة لفورم واحد فقط لا غير وأنا قد مارست البرمجة منذ زمن طويل على لغة الكود باسكال والآن أواجه مشاكل إن شاء الله بسيطة بالنسب لكم أنت معشر الخبراء
المشكل التي بصددها أنا هي
عندي فورم أول يخزن في جدول الاول على قاعدة البيانات ثم علي أن أنتقل من الفورم الأول إلى آخر عبر مفتاح ويجب أن يرحل معي رقم الطلب من الفورم الأول إلى الطلب الثاني لأن الجدول الأول والثاني مرتبطين بعلاقة واحد لواحد ....هنا عملية نقل الرقم تتم كيف
قرأت في كتاب أن علي أن أقوم بإنشاء فانكشن عام يقوم بالتاكد من أم الفورم الأول مفتوح ويقرأ قيمة رقم الطلب ثم يعين قيمة الرقم نفسه في الفورم الثاني ليتم تخزين المعلومات متقابلة أرجو من الله أن أكون وضحت لك السؤال...
Public Function IsOpen(ByVal strFormName As String) As Boolean
' returns true if the specified form is open in form view.
Const conDesignView = 0
Const conObjStateClose = 0
IsOpen = False
If SysCmd(acSysCmdGetObjectState, asform, strFormName) <> conObjStateClose Then
If Form(strFormName).CurrentView <> conDesignView Then
IsOpen = True
End If
End If
ثم أقوم بالتالي عند فتح الفورم الثاني
Private Sub Form_Open(Cancel As Integer)
'looking for the data on the persone on the previeose form
If IsOpen("Application") Then
Appl_No.minha.DefaultValue = Forms!Application!Appl_No
Appl_No_Work.DefaultValue = Forms!Application!Appl_No
End If
End Sub
كتب الكود ولكن بدون جدوى
وجزاكم الله خير
والصلى الله وبارك
أحمد بدوان
