مساعدة فى الملف المرفق

[tiger wanted]

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

New Microsoft Access Database.accdb

[محمد أبوعبدالله]

السلام عليكم

تفضل اخي الكريم

Private Sub Command12_Click()
            Dim rst As DAO.Recordset
            
            mySQL = "Select * From tab"
            mySQL = mySQL & " WHERE id  Between " & [Forms]![Form1]![Text6] & " And " & [Forms]![Form1]![Text8]
            Debug.Print mySQL
            
            
            Set rst = CurrentDb.OpenRecordset(mySQL)
            rst.MoveLast: rst.MoveFirst
    
                For i = 1 To rst.RecordCount
                    rst.Edit
                    rst!num2 = Me.Text10
                    rst.Update
                    rst.MoveNext
                Next
                Me.Child0.Requery

End Sub

Private Sub Command2_Click()
            Dim rst As DAO.Recordset
            
            mySQL = "Select * From tab"
            mySQL = mySQL & " WHERE id  Between " & [Forms]![Form1]![Text6] & " And " & [Forms]![Form1]![Text8]
            Debug.Print mySQL
                
            Set rst = CurrentDb.OpenRecordset(mySQL)
            rst.MoveLast: rst.MoveFirst
                
                For i = 1 To rst.RecordCount
                    rst.AddNew
                    rst!num2 = Me.Text3
                    rst.Update
                    rst.MoveNext
                Next
                Me.Child0.Requery
      

End Sub

D5.rar

تحياتي

[tiger wanted]

شكرا اخى العزيز حل رائع هذا هو الحل المطلوب

[محمد أبوعبدالله]

1 دقيقه مضت, tiger wanted said:

شكرا اخى العزيز حل رائع هذا هو الحل المطلوب

بالتوفيق اخي الكريم

تحياتي