[γιώργοςΚ]

Καλησπέρα Γιώργο,

Επειδή ο κώδικας που μου έστειλες δεν δούλεψε κανονικά σε ότι αφορά το δεύτερο σκέλος του, το άφησα σε:

Private Sub cmdAddPc_Click()

If IsNull(Me.SVN1) Or Me.SVN1 = "" Then
MsgBox "SVN1.!!", vbInformation, "Warning"
Dim rs As DAO.Recordset

Set rs = CurrentDb.OpenRecordset("SELECT TOP 2 SVNnumber FROM tblLogSVN")
If rs.RecordCount Then
rs.MoveFirst
Me.SVN1 = rs!SVNnumber
Me.Pc1 = True
End If
End If

If IsNull(Me.SVN2) Or Me.SVN2 = "" And Me.Pc1 = True Then
MsgBox " SVN2.!!", vbInformation, "Warning"
Set rs = CurrentDb.OpenRecordset("SELECT TOP 2 SVNnumber FROM tblLogSVN")
If rs.RecordCount Then
rs.MoveNext
Me.SVN2 = rs!SVNnumber
Me.Pc2 = True
End If
End If

End Sub

Εάν θές δοκίμασε το και εσύ στην βάση που έχω επισυνάψει φίλε.

Σε ευχαριστώ