Εμφάνιση ενός μόνο μηνύματος
  #6  
Παλιά 05-10-14, 21:23
kapetang Ο χρήστης kapetang δεν είναι συνδεδεμένος
Όνομα: Γιώργος
Έκδοση λογισμικού Office: Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 18-06-2010
Μηνύματα: 3.674
Προεπιλογή

Καλησπέρα

Χωρίς να είμαι σίγουρος ότι κατάλαβα το ζητούμενο, προτείνω να δοκιμάσεις και τον παρακάτω κώδικα:

Κώδικας:
Private Sub cmdAddPc_Click()
    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
        End If
        If Nz(Me.SVN2, "") = "" And rs.RecordCount > 1 Then
            rs.MoveLast
            Me.SVN2 = rs!SVNnumber
            Me.Pc2 = True
        End If
    End If
End Sub
Ίσως να μάντεψα σωστά.

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