تعديل كود البحث

[jamal2080]

السلام عليكم ورحمة الله وبركاتة

ارجاء المساعد فى طريقة بحث عن طريقة نمودج اخر

 

Private Sub cmdSearch_Click()
 If Len(Me.txtSearch & "") = 0 Then
        MsgBox "رجاء ادخال رقم للبحث عنه"
    
    ElseIf DCount("*", "frm_RD", "report_No =" & Me.txtSearch) = 0 Then
        MsgBox "الرقم غير موجود"
    
    Else
        Me.Recordset.FindFirst "report_No=" & Me.txtSearch
    End If
    
    Me.txtSearch.SetFocus
    Me.txtSearch = ""
End Sub

[ابو جودي]

DCount("*", "frm_RD", "report_No =" & Me.txtSearch) 

الخطأ هنا 

دوال المجال هموما تعمل مع الجداول او الاستعلامات وليس النماذج

راجع هذه المشاركة لتتعلم بناء كود دوال المجال 

 

[Eng.Qassim]

للبحث من نموذج ثاني ..هكذا الفكرة لدي وربما هناك الافضل

انسخ الكود التالي خلف النموذج frm_RD مع مربع نص صغير txt1

Public Sub search()
Dim rst As Recordset
Dim strSearch As String
strSearch = txt1

    Set rst = Me.RecordsetClone
    rst.FindFirst "report_No= " & strSearch
    
    If Not rst.NoMatch Then
        Me.Bookmark = rst.Bookmark
    Else
        MsgBox " الرقم غير موجود!"
    End If
    
rst.Close
Set rst = Nothing
End Sub

وفي زر البحث في نموذج البحث

Private Sub cmdSearch_Click()
Forms![frm_RD]![txt1] = txtSearch
Call Forms.frm_RD.search
End Sub

 

تم تعديل مارس 2, 2023 بواسطه Eng.Qassim