Hey, i have been getting this error for some time now, i know there is lots of threads giving Information on it but it doesn't help me with my problem, The Error is, Sub or Function Not defined, i have coloured it where it lights up, here is the code.
I know this is most probably a nooby way of doing it, but i am rather new to VB as im doing the IT Diploma and i find VB very useful and fun,
hope you can help.
Code:
Option Compare Database
Option Explicit
Private Sub Form_Open(Cancel As Integer)
DoCmd.SetWarnings False
'+500 each time
Perbox.Width = 0
ProgressText.Value = "0%"
DoEvents
Me.TimerInterval = 1000
End Sub
-----------------------------
[COLOR="Yellow"]Public Function ProgressBar()[/COLOR]
Perbox.Width = 500
ProgressText.Value = "10%"
Pause (1)
Perbox.Width = 1000
ProgressText.Value = "20%"
Pause (1)
Perbox.Width = 1500
ProgressText.Value = "30%"
Pause (1)
Perbox.Width = 2000
ProgressText.Value = "40%"
Pause (1)
Perbox.Width = 2500
ProgressText.Value = "50%"
Pause (1)
Perbox.Width = 3000
ProgressText.Value = "60%"
Pause (1)
Perbox.Width = 3500
ProgressText.Value = "70%"
Pause (1)
Perbox.Width = 4000
ProgressText.Value = "80%"
Pause (1)
Perbox.Width = 4500
ProgressText.Value = "90%"
Pause (1)
Perbox.Width = 5500
ProgressText.Value = "100%"
Pause (1)
DoCmd.Beep
DoCmd.OpenForm "Menu Screen Admin"
DoCmd.Close
End Function
---------------------------------------------
Private Sub Form_Timer()
Call ProgressBar
End Sub
I know this is most probably a nooby way of doing it, but i am rather new to VB as im doing the IT Diploma and i find VB very useful and fun,
hope you can help.
