ربط جدول بالوحدة النمطية الموجودة بالنموذج

[حمدى الظابط]

السلام عليكم
اريد ربط  سجلات جدول بيانات الصف بالوحدة النمطية  الموجودة فى نموذج1  الذى يصب كل البيانات فى جدول Teacher Class وشكرا

جدول الحصص.rar

[حمدى الظابط]

اريد ربط الحقول الاتية / (حقل الصف) - (حقل اليوم) - (حقل حصص اليوم ) من جدول بيانات الصف  الى هذا الكود

 

Public Function hlaltath()
Dim day_ As Integer
Dim B As Integer
Dim E As Integer
Dim tb As Recordset
Dim tbimage As Recordset
Dim i As Integer
Set tb = CurrentDb.OpenRecordset("teacher class", dbOpenDynaset)
B = 0
E = 15
For day_ = 1 To 5
  If day_ <> 1 Then
   B = B + 16
   E = E + 16
  End If
 For i = B To E Step 2
  tb.MoveFirst
  Do While tb.EOF = False
    Set tbimage = CurrentDb.OpenRecordset("teacher class", dbOpenDynaset)
    tbimage.MoveFirst
    Do While tbimage.Fields(i) <> tb.Fields(i) Or tbimage.Fields(i + 1) <> tb.Fields(i + 1)
     If tbimage.Fields(i) = tb.Fields(i) Then
      Call tbdelhss(tb, tbimage, i, B, E)
      Exit Do
     End If
     tbimage.MoveNext
    Loop
    tb.MoveNext
  Loop
 Next i
Next day_
End Function

تم تعديل يونيو 5, 2018 بواسطه حمدى الظابط

[حمدى الظابط]

up

[حمدى الظابط]

هل الموضوع غير واضح المطلوب فيه ارجوا الرد والاهتمام
 

[حمدى الظابط]

 ارجوا الرد والاهتمام
 

[ebnjabalapp]

الاخ حمدى الظابط

لقد ساهمنا معك كثيرا وفي الاخر تبخل علينا بناتج البرنامج

لو تزكر برنامج المدرسة

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

بالرغم من ان كثير من الشباب في المنتدي ساهم معك

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

[حمدى الظابط]

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

تم تعديل يونيو 10, 2018 بواسطه حمدى الظابط

[ebnjabalapp]

ولا يهمك هذا هو بريدي وهو ليس ببعيد

ibnjabalapp@gmail.com

[حمدى الظابط]

تم رفع الملف وكلمة السر مع اسم المستخدم وبالتوفيق