|
|
|||||||||
|
|||||||||
|
|||||||||
| |
||
| |||||||||
![]() |
|
|
«
Previous Thread
|
Next Thread
»
|
Thread Tools | Search this Thread | Rate Thread | Display Modes |
|
#1
|
|||
|
|||
|
Compile error:
Hi,
I just started using access this May so I apologize in advance for my basic questions. My database is currently made of several forms, each form having its own table. I have linked each form with a previous and next button. I have also created a combo box for which each option (a specific form) will lead to the opening of the desired form and the closing of the current form. I have written the following code: Private Sub Combo475_Click() On Error GoTo Err_Combo475_Click: Dim stDocName As String Dim stLinkCriteria As String DoCmd.Close If (Combo475 = 1) Then stDocName = "Background A" DoCmd.OpenForm stDocName, , , stLinkCriteria Else If (Combo475 = 2) Then stDocName = "Background B" DoCmd.OpenForm stDocName, , , stLinkCriteria Else If (Combo475 = 3) Then stDocName = "Background C" DoCmd.OpenForm stDocName, , , stLinkCriteria Else If (Combo475 = 4) Then stDocName = "Background D" DoCmd.OpenForm stDocName, , , stLinkCriteria Else If (Combo475 = 5) Then stDocName = "Background E" DoCmd.OpenForm stDocName, , , stLinkCriteria Else If (Combo475 = 6) Then stDocName = "Background F" DoCmd.OpenForm stDocName, , , stLinkCriteria Else If (Combo475 = 7) Then stDocName = "Background G" DoCmd.OpenForm stDocName, , , stLinkCriteria Else If (Combo475 = 8) Then stDocName = "Background H" DoCmd.OpenForm stDocName, , , stLinkCriteria End If End If End If End If End If End If End If End If Exit_Combo475_Click: Exit Sub Err_Combo_475_Click: MsgBox Err.Description Resume Exit_Combo475_Click: End Sub Problem: I keep getting a "Compile error: label not defined" message and the second line: On Error GoTo Err_Combo475_Click: is highlighted when this error message pops up. Can someone tell me what is wrong with this line? Thanks! |
|
#2
|
|||
|
|||
|
I may be remembering wrong, but I don't think you want to include the colon in this line
Code:
On Error GoTo Err_Combo475_Click:
__________________
====== Doug G ====== I didn't attend the funeral, but I sent a nice letter saying I approved of it. --Mark Twain |
![]() |
| Viewing: ASP Free Forums > Programming > Visual Basic Programming > Compile error: |
| Thread Tools | Search this Thread |
| Display Modes | Rate This Thread |
|
|
|
|
|