اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


رشبد

الردود الموصى بها

السلام عليكم

استاد  kkhalifa1960

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

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

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

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

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

image.png.eb1f9e72b7c35782f619e7091b864112.png

 

image.png.009180c469a420adf88c7ab120d11614.png

تم تعديل بواسطه رشبد
رابط هذا التعليق
شارك

بالاضافة لما تفضل به الاستاذ @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

  • Like 1
رابط هذا التعليق
شارك

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

 

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

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

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

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

تم تعديل بواسطه رشبد
رابط هذا التعليق
شارك

تفضل اخي 

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

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

  • Like 1
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information