[ Φόρμες ] ευρεση κωδικου απο εως σε φορμα

[artchrist73]

Χρονια σας πολλά Χριστός ανέστη !

Πως μπορώ πάνω σε αυτό το κώδικα να αλλάξω την αναζήτηση ημερομηνίας και να μπορώ να κάνω αναζήτηση κάποιου πεδίου που έχει απλό κείμενο η αρίθμηση.

Βρίσκει από ημερομηνία έως,αλλα θα ήθελα να βρίσκει κωδικό από έως.

Private Sub cmdFilter_Click()

Dim strWhere As String
Dim lngLen As Long
Const conJetDate = "\#mm\/dd\/yyyy\#"


If Not IsNull(Me.txtStartDate) Then
strWhere = strWhere & "([ημερομηνια] >= " & Format(Me.txtStartDate, conJetDate) & ") AND "
End If


strWhere = strWhere & "([ημερομηνια] < " & Format(Me.txtEndDate + 1, conJetDate) & ") AND "
End If


lngLen = Len(strWhere) - 5
If lngLen <= 0 Then
MsgBox "No criteria", vbInformation, "Nothing to do."
Else
strWhere = Left$(strWhere, lngLen)


Me.Filter = strWhere
Me.FilterOn = True
End If
End Sub


Το πεδιο εχει ονομασια " κωδικος" αντι του πεδιου "ημερομηνια"
Υπάρχει περίπτωση να έχω λάθος γραμμένο κώδικα αλλα αν μπορεί κάποιος ας με βοηθήσει!!
Ευχαριστώ.