[γιώργοςΚ]

Γιώργο παραθέτω τον κώδικα σου και θα εκτιμούσα εάν μπορούσες να βοηθήσεις

ο κώδικας "κτυπάει" εφόσον στον tblLogSVN δεν υπάρχουν εγραφές.... Καμιά εισήγηση?

Dim rs As DAO.Recordset

Set rs = CurrentDb.OpenRecordset("SELECT TOP 2 SVNnumber FROM tblLogSVN")
rs.MoveLast
If rs.RecordCount Then
If Nz(Me.SVN1, "") = "" Then
rs.MoveFirst
Me.SVN1 = rs!SVNnumber
Me.Pc1 = True
ElseIf Nz(Me.SVN2, "") = "" And rs.RecordCount > 1 Then
rs.MoveLast
Me.SVN2 = rs!SVNnumber
Me.Pc2 = True
Else
'Åäþ áíôéìåôùðßæåôáé ç ðåñßðôùóç ðïõ Ý÷ïõí ðñïóôåèåß 2 Pc
'Áí äå ÷ñåéÜæåôáé ôï ôìÞìá Else ìðïñåß íá äéáãñáöåß.
MsgBox "Äå ìðïñïýí íá ðñïóôåèïýí Üëëá Pc. Ç åöáñìïãÞ èá êëåßóåé"
Application.Quit
End If
End If

End Sub