[kapetang]

Καλησπέρα

Γιώργο, μπορείς να χρησιμοποιήσεις την παρακάτω συνάρτηση:

Public Function ExistValue(numRecord As Long, valValue) As Boolean
'numRecord ο α/α της εγγραφής στην οποία θα γίνει η αναζήτηση
'valValue η τιμή την οποία αναζητούμε

    Dim rs As DAO.Recordset
    Set rs = CurrentDb.OpenRecordset("Select * FROM tblDbaseInfo")
    If Not (rs.EOF And rs.BOF) Then
        rs.MoveFirst
        rs.Move numRecord - 1
        If Not (rs.EOF Or rs.BOF) Then
            If rs!dbaseRegCode = valValue Then ExistValue = True
        End If
    End If
End Function

Η συνάρτηση επιστρέφει την τιμή True, αν η αναζητούμενη τιμή (παράμετρος valValue) ισούται με την τιμή του πεδίου dbaseRegCode της εγγραφής με συγκεκριμένο αύξοντα αριθμό (ορίζεται από την παράμετρο numRecord ) και False διαφορετικά

Φιλικά/Γιώργος