[γιώργοςΚ]

Νίκο γειά σου και πάλι,

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

Στον κώδικα όπως τον διαμόρφωσα και πάλι εξακολουθεί εφόσον πατήσω μια φορά το command AddPc να βάζει αφενός μέν την πρώτη φορά την πρώτη εγραφή, και αφετέρου εάν ξαναπατήσεις το command προχωρά και βάζει και την δεύτερη εφόσον τα κριτήρια που θέλω ισχύουν και πάλι (εφόσον πλέον το SVN1 δεν είναι κενό και έχει τιμή μεγαλύτερη του >1)

Το ζητούμενο είναι να γίνεται disable το command έτσι ώστε μια φορά να μπορεί να λειτουργήσει εφόσον εάν ο κώδικας "τρέξει" για το Case 1 ισχύουν τα δεδομένα, και εφόσον ενημερωθεί ο πίνακας το SVN1 μεταβάλλεται σε Not Null και >1 και έτσι εάν επιχειρήσει κάποιος απο λάθος να πατήσει ξανά το command συνεχίζει (και καλά το κάνει) να τρέχει και το δεύτερο σκέλος του κώδικα.

Παραθέτω το κώδικα όπως τον μετέτρεψα:

Private Sub cmdAddPc_Click()

Dim rs As DAO.Recordset

Set rs = CurrentDb.OpenRecordset("SELECT TOP 2 SVNnumber FROM tblLogSVN")
If rs.RecordCount = 0 Then Exit Sub

Select Case True

Case IsNull(Me.SVN1) Or Me.SVN1 = ""
Me.SVN1 = rs!SVNnumber: Me.Pc1 = True
MsgBox "Message SVN1.!!", vbInformation, "Warning 1"


Case Not IsNull(Me.SVN1) Or Me.SVN1 > 1
rs.MoveNext
Me.SVN2 = rs!SVNnumber
Me.Pc2 = True

' Case Else


End Select
End Sub