[kapetang]

Καλημέρα

Γιώργο, το πρώτο ερώτημά σου, στο οποίο απάντησα, δεν έχει καμία σχέση με το δεύτερο, το οποίο, όπως λες, περιγράφει αυτό που πραγματικά θέλεις.

Λάθη γίνονται απ’ όλους αλλά, όταν γίνονται, θα πρέπει χωρίς περιστροφές να τα αναλαμβάνουμε.

Για το νέο ζητούμενο:

1) Έχω προσθέσει τη συνάρτηση:

Public Function FindRefNo(ID As Long, MainDate As Date, Days As Long) As String
    Dim rs As DAO.Recordset, j As Long
        
    Do Until Date < MainDate + j * Days
        j = j + 1
    Loop
    
    If j = 0 Then Exit Function
    Set rs = CurrentDb.OpenRecordset("SELECT [RefNo] FROM Table2 WHERE IDM=" & ID)
    If Not (rs.EOF And rs.BOF) Then
        rs.MoveFirst
        rs.Move j - 1
        If Not rs.EOF Then FindRefNo = rs!RefNo
    End If
    rs.Close
End Function

2) Τη φόρμα frmSolution

3) Το ερώτημα qrySolution .

Στη φόρμα και το ερώτημα μπορούμε να δούμε τον τρόπο κλήσης και αξιοποίησης της συνάρτησης.

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