[RESOLVED] Counting

[matrik02]

I have combo1.text with value 1. I want to save three time only. I don't want the messagebox asking me when the count reach 3. How to do that?

 
MsgBox "Records Save",vbInformation, "Info"
If MsgBox("You Want to add record : "& Combo1.text & " ?",vbQuestion + vbYesNo) = vbYes Then

[aikidokid]

Add a counter variable to your code and each time you save add 1 to the counter.
When the variable = 3 then don't allow the user to save again.

Private ctr As Long

If Not ctr = 2 '(2 because we start at 0)
     MsgBox "Records Save",vbInformation, "Info"
     If MsgBox("You Want to add record : "& Combo1.text & " ?",vbQuestion + vbYesNo) = vbYes Then
          ctr = ctr + 1

          'your code here

     End If
End If

[matrik02]

If Not ctr = 2 '(2 because we start at 0)


You not state the counter start with 0 ?

[aikidokid]

If Not ctr = 2 '(2 because we start at 0)


You not state the counter start with 0 ?

You can start the counter at anything you want, but if you don't state anything it starts at zero by default