
05-10-14, 21:23
|
| Όνομα: Γιώργος Έκδοση λογισμικού 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
Ίσως να μάντεψα σωστά.
Φιλικά/Γιώργος
|