Hulp met access - label not defined

[LeonieO]

Hoi,

Ik heb een probleempje, ik probeer error handling in te bouwen voor het geval je een duplicate primary key probeert in te voeren, maar ik krijg een error: Compile error: label not defined op de On Error regel.

Dit is mijn code, weet iemand hoe dit op te lossen?
Alvast bedankt,

Private Sub bladeren_Click()
    
      Me!afbeelding = BrowseFiles()
      
       On Error GoTo Err_Click

       
    End Sub


    
     
Private Sub Err_Click(DataErr As Integer, Response As Integer)
Select Case DataErr
        Case 3022
             MsgBox "You added a record which duplicates an existing key."
             Response = acDataErrContinue
        Case Else
             Response = acDataErrDisplay
    End Select
   ' MsgBox Err.Description
   
Resume Exit_bladeren_Click


End Sub

 

[Guus2005]

Hoi,

Ik heb een probleempje, ik probeer error handling in te bouwen voor het geval je een duplicate primary key probeert in te voeren, maar ik krijg een error: Compile error: label not defined op de On Error regel.

Dit is mijn code, weet iemand hoe dit op te lossen?
Alvast bedankt,

Het label waarnaar verwezen wordt is Err_Click
Je geeft op : On Error Goto <label>
Dat label was in je code niet aanwezig. In plaats daarvan maak je een nieuwe procedure met die naam (Err_Click). Zo werkt dat niet in VBA.
Ik heb hieronder je code een beetje aangepast.


HTH

Private Sub bladeren_Click()
    
      Me!afbeelding = BrowseFiles()
      
       On Error GoTo Err_Click

Exit_bladeren_Click:
    Exit sub

Err_Click:
Select Case Err
        Case 3022
             MsgBox "You added a record which duplicates an existing key."
             Response = acDataErrContinue
        Case Else
             Response = acDataErrDisplay
    End Select
   ' MsgBox Err.Description
   
Resume Exit_bladeren_Click

End Sub

 

[LeonieO]

Okee super bedankt ik krijg in ieder geval geen foutmeldingen meer .

Alleen hij doet nog niet wat ik wil. Met die knop voer ik een foto in (de link in een tekstveld) en die bestandsnaam is de primary key. Als die dubbel is wil ik dat hij die boodschap geeft, maar hij geeft pas die boodschap bij het klikken op de knop om naar een ander record te gaan. Weet iemand hoe ik dit werkend krijg? De pagina refreshen ofzo?

bedankt!

 

[Guus2005]

Onder

Me!afbeelding = BrowseFiles()

kan je met een dlookup in je database controleren of je prim key al bestaat