البحث من خلال مربع نص و عمل تشيك وطباعة المختار

[رشبد]

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

فضلا اريد عند ادخال رفم في مربع نص تظهر البيانات لهدا الرقم وعند عمل تشيك يرحلها الى تقرير لطباعته

وجزاكم الله خيرا

 

 

my PR.rar

[رشبد]

up

[kkhalifa1960]

تفضل أخي ووافني بالرد 

 

1585909217_myPR-1.accdb

تم تعديل يناير 26, 2023 بواسطه kkhalifa1960

[رشبد]

السلام عليكم

استاد  kkhalifa1960

حفظك الله ورعاك وزادك من فضله

عمل ممتاز بس فيه تعديل لم اتمكن منه

انظر الصورة هناك بعض الاضافات

كما اريد الصفحة افقية

جزاك الله خيرا

 

تم تعديل يناير 27, 2023 بواسطه رشبد

[سامي الحداد]

بالاضافة لما تفضل به الاستاذ @kkhalifa1960 جزاه الله خيرا

اليك مشاركتي

Option Compare Database
Option Explicit
Dim strSQL As String
Dim rs As DAO.Recordset
Private Sub CmdClear_Click()
Me.TEXT_CHERCHE = ""
Me.Query_no_subform.Form.Filter = ""
Me.Query_no_subform.Form.FilterOn = False

End Sub
Private Sub TEXT_CHERCHE_Change()
    

strSQL = "numéro_coud LIKE " & Chr(34) & Me.TEXT_CHERCHE.Text & "*" & Chr(34)
    Me.Query_no_subform.Form.Filter = strSQL
    Me.Query_no_subform.Form.FilterOn = True

    Set rs = Me.Query_no_subform.Form.Recordset
    If (rs.RecordCount <> 0) Then
    rs.MoveFirst
    Do Until rs.EOF
        rs.Edit
        rs![oui/non] = True ' change "chkBoxFieldName" with the actual name of your checkbox field
        rs![date_à_regler] = Date ' change "dateFieldName" with the actual name of your date field
        rs.Update
        rs.MoveNext
    Loop
Else
        MsgBox "السجل المطلوب تم التحقق منه سابقا بتاريخ "
End If

End Sub

Private Sub cmdPrintPreview_Click()
    Me.TEXT_CHERCHE.SetFocus

    strSQL = "numéro_coud LIKE " & Chr(34) & Me.TEXT_CHERCHE.Text & "*" & Chr(34)
    ' Open the report in print preview mode
    DoCmd.OpenReport "MyReport", acViewPreview, , strSQL
End Sub

وهذا ملفك بعد التعديل. هل هو المطلوب؟

بالتوفيق

 

my PR.accdb

[رشبد]

اولا اشكرك استاد سامي

 

عند البحث اريد ترحيل البيانات الى التقرير لي عاملت عليها تشك فقط ولا اريد كتابة التاريخ الا بعد عمل تشك

هذه هي ملاحظتي الالى

وسأوافيك ان كان هناك شيء اخر

جزاك الله خيرا

تم تعديل يناير 27, 2023 بواسطه رشبد

[رشبد]

UP

[سامي الحداد]

تفضل اخي 

شوف التعديل هل هو المطلوب؟

Option Compare Database
Option Explicit
Dim strSQL As String
Dim rs As DAO.Recordset
Dim PreviousSearchText As String
Private Sub CmdClear_Click()
Me.TEXT_CHERCHE = ""
Me.Query_no_subform.Form.Filter = ""
Me.Query_no_subform.Form.FilterOn = False
Me.Query_no_subform.Form.Requery
End Sub
'1 OK
Private Sub TEXT_CHERCHE_Change()
    If Me.TEXT_CHERCHE.Text = "" Then
       Me.Query_no_subform.Form.Filter = ""
       Me.Query_no_subform.Form.FilterOn = False
    Else
        Dim strSQL As String
        strSQL = "numéro_coud LIKE " & Chr(34) & Me.TEXT_CHERCHE.Text & "*" & Chr(34)
        Me.Query_no_subform.Form.Filter = strSQL
        Me.Query_no_subform.Form.FilterOn = True
        
        If Me.Query_no_subform.Form.Recordset.RecordCount = 0 Then
           MsgBox "لم يتم العثور على سجلات للنص المدخل", vbInformation, "تنبيه"
          End If
    End If
End Sub

  
  Private Sub cmdPrintPreview_Click()
    Me.TEXT_CHERCHE.SetFocus

    strSQL = "numéro_coud LIKE " & Chr(34) & Me.TEXT_CHERCHE.Text & "*" & Chr(34)
    ' Open the report in print preview mode
    DoCmd.OpenReport "MyReport", acViewPreview, , strSQL
End Sub

Private Sub TEXT_CHERCHE_KeyDown(KeyCode As Integer, Shift As Integer)
  If KeyCode = 27 Then
    Me.TEXT_CHERCHE.Text = ""
    Me.Query_no_subform.Form.Filter = ""
    Me.Query_no_subform.Form.FilterOn = False

  End If
End Sub

تحياتي

my PR.accdb

[رشبد]

استاد سامي واستاد kkhalifa اتعبتكم معي والله

جزاكم الله خيرا

نفس المشكلة اخواني

الشرح على الصورة

 

تم تعديل يناير 28, 2023 بواسطه رشبد

[رشبد]

اتمنى ان يكون الشرح كافي