[RESOLVED] Counting

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?

Code:

---


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

---

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.

Code:

---

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

---

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


You not state the counter start with 0 ?

Quote:

---

Originally Posted by matrik02

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 ;)