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

[النجاشي]

السلام عليكم احبتي الكرام 

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

تحياتي

تعديل كود.mdb

[النجاشي]

للرفع

[النجاشي]

للرفع

[ابو عارف]

أخي ابو زاهر جرب المرفق ان شاء الله يكون حسب مطلوب

تعديل كود.mdb

[النجاشي]

استاذي الفاضل@ابو عارف والتركيز يكون بنص n2 ل يخرج منه 

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

Dim rs As Recordset
Dim CountLines
Dim f As Form
Dim KeyName As String
Dim KeyValue

Set f = Form
KeyName = "ID_Sanf"
KeyValue = [ID_Sanf]

         On Error GoTo Err_GetLineNumber
         Set rs = f.RecordsetClone
         ' البحث عن السجل الحالي
         Select Case rs.Fields(KeyName).Type
            ' البحث واستخدام ترقيم قيمة الحقل
            Case DB_INTEGER, DB_LONG, DB_CURRENCY, DB_SINGLE, _
            DB_DOUBLE, DB_BYTE
               rs.FindFirst "[" & KeyName & "] = " & KeyValue
            ' البحث واستخدام اول قيمة للحقل
            Case DB_DATE
               rs.FindFirst "[" & KeyName & "] = #" & KeyValue & "#"
            ' البحث واستخدام المساواة لقيم الحقل
            Case DB_TEXT
               rs.FindFirst "[" & KeyName & "] = '" & KeyValue & "'"
            Case Else
            MsgBox "ERROR: Invalid key field data type!"
               Exit Function
               End Select
         ' الاستمرار والمتابعة في ايجاد بقية الارقام
         Do Until rs.BOF
            CountLines = CountLines + 1
            rs.MovePrevious
            Loop
Bye_GetLineNumber:               ' اظهار النتيجة
         GetLineNumber = CountLines
         Exit Function
Err_GetLineNumber:
      CountLines = 0
      Resume Bye_GetLineNumber

تحياتي يالغالي

تم تعديل أكتوبر 17, 2019 بواسطه ابو زاهر