افيدوني في تعديل كود

[بسام محمد صالح شعلان]

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

تحية طيبة وبعد

اشكر الاستاذ : جعفر ................. على مجهودة العظيم 

عندي نموذج وفية حقلين : عن التاريخ

اريد ابحث بين الحقلين : "من تاريخ" & "الى تاريخ "   .... وتعديل الكود على التاريخ 

بحيث يبحث : من تاريخ & الى تاريخ

وهذا الكود , والمرفق ......بارك الله فيكم

 

Private Sub n2_Change()

    'do the initial subform Record Source
    mySQL1 = "Select * From [المستندات]"
    mySQL = mySQL1 & " Where"
    
    'now we want to split the search code into smaller bits,
    'if seperate by / \ * or space, then change this seperator to | (a unique letter),
    'this way we will have more than ONE word to search for
    Dim x() As String
    Dim A As String
    
    A = Me.n2.Text
    A = Replace(A, "/", "|")
    A = Replace(A, "\", "|")
    A = Replace(A, " ", "|")
    A = Replace(A, "*", "|")
    
    'the words are split and ready
    x = Split(A, "|")
    
    If UBound(x) = 0 Then
        'Still one word, search for it
        mySQL = mySQL & " [كلمات ارشادية]"
        mySQL = mySQL & " Like '*" & x(i) & "*'"
    
    Else
        'it is ONE word and a seperate by / \ * or space,
        'so lets make a Where statement for each seperate word
        For i = LBound(x) To UBound(x)
        
            If i = 0 Then
                'its a word and a seperator, the NEXT word is NOT added yet
                mySQL = mySQL & " [كلمات ارشادية]"
                mySQL = mySQL & " Like '*" & x(i) & "*'"
            Else
                'its multiple words, add the AND command between each word
                mySQL = mySQL & " AND [كلمات ارشادية]"
                mySQL = mySQL & " Like '*" & x(i) & "*'"
            End If
            
        Next i
    End If
    
    'if the Search field is Empty, use the initial mySQL1
    Me.n2.SetFocus
    If Len(Me.n2.Text & "") = 0 Then
        mySQL = mySQL1
    End If
    
    'Debug.Print mySQL
    Me.sfrm_Search.Form.RecordSource = mySQL
    
    
End Sub

ok ok ok.rar

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

[kamel2711]

اعتقد  بانه يمكنك استعمال     استعلام بين تاريخين 

date@

  أو انظر الى  برنامج الخاص بالموظفيت   الموجود حاليا  في المنتدي

  وشكرا

[بسام محمد صالح شعلان]

بارك الله فيك