Module/ global variable problem

[panteraboy]

Hello again Humble helpfulls. Im having difficult with a module i have created. As its my first it was never going to be straightforward lol. But I was looking at one of the other treads and found it quite helpful about global variables but i eventually ran into difficulty..
the following code is for the click event that calls the Clicker Module

Private Sub Image30_Click()
Dim counterx As Module
Set counterx = Clicker
counterx.IncrementCounter
 
If (counterx.GetCount > 3) Then
DoCmd.OpenForm ("pcspecs2")
counterx.ResetCounter
Else
Exit Sub
End If
 

Tye following is the code for my Clicker Module

Public count As Integer
 
Option Compare Database
 
 
Public Function GetCount() As Integer
    GetCount = count
End Function
 
Public Function IncrementCounter()
  count = count + 1
End Function
 
Public Function ResetCounter()
count = 0
End Function
 

The idea is that when the user click on an icon 3 times they will be brought to a new form. Any pointers on Module declareation and use would be apprieciated. Also i tried To initialise the count variable but it would not work. Can you not initialise a global variable or have i declared that wrong too lol.

Regards
Panteraboy

[ADezii]

Hello again Humble helpfulls. Im having difficult with a module i have created. As its my first it was never going to be straightforward lol. But I was looking at one of the other treads and found it quite helpful about global variables but i eventually ran into difficulty..
the following code is for the click event that calls the Clicker Module

Private Sub Image30_Click()
Dim counterx As Module
Set counterx = Clicker
counterx.IncrementCounter
 
If (counterx.GetCount > 3) Then
DoCmd.OpenForm ("pcspecs2")
counterx.ResetCounter
Else
Exit Sub
End If
 

Tye following is the code for my Clicker Module

Public count As Integer
 
Option Compare Database
 
 
Public Function GetCount() As Integer
    GetCount = count
End Function
 
Public Function IncrementCounter()
  count = count + 1
End Function
 
Public Function ResetCounter()
count = 0
End Function
 

The idea is that when the user click on an icon 3 times they will be brought to a new form. Any pointers on Module declareation and use would be apprieciated. Also i tried To initialise the count variable but it would not work. Can you not initialise a global variable or have i declared that wrong too lol.

Regards
Panteraboy

Hello Panteraboy, I think you may want to take a different approach to this problem:

Private Sub Image30_Click()
'Declaring a Variable as 'Static' enables it to retain its
'value between successive calls to this Click() Event
Static intClickCount As Integer
 
intClickCount = intClickCount + 1
 
If intClickCount = 3 Then       'Image clicked 3 times
  intClickCount = 0             'Reset Variable
  'it's the 3rd click, so Open the Form
  DoCmd.OpenForm "<Your Form Name>", YadaYadaYada...
Else
  'don't need this, but just an illustration to indicate
  'that you take no action
End If
End Sub

[panteraboy]

Thanks a million. I had code similar to that but my variable wasnt static. Helpfull as always
Regards
Pantera boy