Theshowstealer
New member
- Local time
- Today, 06:04
- Joined
- Nov 2, 2004
- Messages
- 5
I hate stuff like this but i need to do it for a school project.
This is a bit of code from my database, could someone point out the veriables to me, thanks, so i know where to go with it.
Option Compare Database
Private Sub Form_Open(Cancel As Integer)
' Minimize the database window and initialize the form.
' Move to the switchboard page that is marked as the default.
Me.Filter = "[ItemNumber] = 0 AND [Argument] = 'Default' "
Me.FilterOn = True
End Sub
Private Sub Form_Current()
' Update the caption and fill in the list of options.
Me.Caption = Nz(Me![ItemText], "")
FillOptions
End Sub
-----------
Private Sub Command23_Click()
On Error GoTo Err_Command23_Click
'The above code says if there is an error the procedure
'will change and an error message will be output
DoCmd.GoToRecord , , acLast
'The above code makes the record to be skipped to the last when
'clicked
Exit_Command23_Click:
Exit Sub
'The above code exits the subroutine
Err_Command23_Click:
MsgBox Err.Description
Resume Exit_Command23_Click
'The above code happens if an error occurs and it will output
'a error message
End Sub
Thanks in advance.
This is a bit of code from my database, could someone point out the veriables to me, thanks, so i know where to go with it.
Option Compare Database
Private Sub Form_Open(Cancel As Integer)
' Minimize the database window and initialize the form.
' Move to the switchboard page that is marked as the default.
Me.Filter = "[ItemNumber] = 0 AND [Argument] = 'Default' "
Me.FilterOn = True
End Sub
Private Sub Form_Current()
' Update the caption and fill in the list of options.
Me.Caption = Nz(Me![ItemText], "")
FillOptions
End Sub
-----------
Private Sub Command23_Click()
On Error GoTo Err_Command23_Click
'The above code says if there is an error the procedure
'will change and an error message will be output
DoCmd.GoToRecord , , acLast
'The above code makes the record to be skipped to the last when
'clicked
Exit_Command23_Click:
Exit Sub
'The above code exits the subroutine
Err_Command23_Click:
MsgBox Err.Description
Resume Exit_Command23_Click
'The above code happens if an error occurs and it will output
'a error message
End Sub
Thanks in advance.