كيف اربط نموذج بـ مربع نص

[بتال1]

عندي نموذج رقم 1 يوجد فيه حقل اسمه( اسم الطالب )

وعندي نموذج 2 يوجد فيه ثلاث حقول

(الاسم الاول )

(الاسم الثاني )

(الاسم الاخير )

وبمجرد التركيز على حقل ( اسم الطالب ) في النموذج 1

يفتح النموذج 2

ما اريده بالضبط هو اذا ادخلت الاسم الاول والثاني والاخير في النموذج 2

ينتقل ويحفظ في حقل ( اسم الطالب ) في النموذج 1 :$

ولكم منه خالص التحية والشكر

اخوكم

بتال

[السيد عبد العال]

فهمت كلمة ينتقل على انه يغلق نموذج2 وبالتالى ننتقل إلى نموذج1

يجب وضع جملةفتح النموذج2 فى حدث عند النقر لاسم الطالب وليس عندالتركيز

وذلك للسبب الاتى:

بفرض انه عند التركيز نجحنا فى فتح نموذج 2

وعندتملا البيانات تنقل القيمة المكونة من تلصيق الثلاث اسماء ألى اسم الطالب

ثم اغلقنا نموذج2 ماذا سيحدث ؟

سينتقل التركيز ألى النموذج1 وبما أن التركيز كان على اسم الطالب فسينتقل التركيز إليه بمجرد غلق نموذج وبذلك يتم استدعاء حدث عند التركيز مرة أخرى ويفتح نموذج 2 مرة أخرى

وهكذا ندخل فى حلقة مفرغة لا تنتهى إلا بغلق نموذج1

نموذج 1

Private Sub اسم_الطالب_Click()
DoCmd.OpenForm "نموذج2"
End Sub

ويتم كتابة هذا الكود فى حدث بعد التحديث لمربعات النصوص الثلاث فى نموذج2 ويمكن الكتفاء بالاسم الأخير فقط إذا ضمنا ان المستخدم سيلتزم بالترتيب

Private Sub الاسم_الاول_AfterUpdate()
If Not IsNull([الاسم الاول]) And Not IsNull([الاسم الثاني]) And Not IsNull([الاسم الاخير]) Then
  Forms("نموذج1")![اسم الطالب] = Me![الاسم الاول] & " " & Me![الاسم الثاني] & " " & Me![الاسم الاخير]
  DoCmd.Close acForm, Me.Name
 End If
End Sub

Private Sub الاسم_الثاني_AfterUpdate()
If Not IsNull([الاسم الاول]) And Not IsNull([الاسم الثاني]) And Not IsNull([الاسم الاخير]) Then
  Forms("نموذج1")![اسم الطالب] = Me![الاسم الاول] & " " & Me![الاسم الثاني] & " " & Me![الاسم الاخير]
  DoCmd.Close acForm, Me.Name
 End If
End Sub
Private Sub الاسم_الاخير_AfterUpdate()
If Not IsNull([الاسم الاول]) And Not IsNull([الاسم الثاني]) And Not IsNull([الاسم الاخير]) Then
  Forms("نموذج1")![اسم الطالب] = Me![الاسم الاول] & " " & Me![الاسم الثاني] & " " & Me![الاسم الاخير]
  DoCmd.Close acForm, Me.Name
 End If

هذا هو المطلوب مع تحفظى على الفكرة اعتقادا منى أن هذا التكوين إذا استخدم فى أدخال البيانات الىالجدول ستظهر بعض المشاكل

وتقبل تحياتى