Mystisk fejlmed.

HVis denne er lavet via VBA kan det vel være at kommandoen onclick() står 2 gange i din kodegenerator. prøv at finde den gamle kode og slet denne fra kodegeneratoren.

det går som regel galt hvis du når du laver en ny knap igen navngiver denne med navnet på den gamle

skriv evt. lige din kode her da det jo også kan være denne der er fejl i ( navne m.m. )

Jeg er nybegynder med Access - har nu prøvet at lave nye knapper med helt anden tekst - men lige meget hjælper det....

tror det er noget \"globalt\" der er i vejen - da en anden knap heller ikke virker mere...

---

Option Compare Database
Option Explicit

Sub Form_Current()
On Error GoTo Form_Current_Err

    If ChildFormIsOpen() Then FilterChildForm

Form_Current_Exit:
    Exit Sub

Form_Current_Err:
    MsgBox Error$
    Resume Form_Current_Exit

End Sub
Sub SkiftKæde_Click()
On Error GoTo SkiftKæde_Click_Err

    If ChildFormIsOpen() Then
        CloseChildForm
    Else
        OpenChildForm
        FilterChildForm
    End If

SkiftKæde_Click_Exit:
    Exit Sub

SkiftKæde_Click_Err:
    MsgBox Error$
    Resume SkiftKæde_Click_Exit

End Sub
Private Sub FilterChildForm()

    If Me.NewRecord Then
        Forms![Fakturaformular].DataEntry = True
    Else
        Forms![Fakturaformular].Filter = \"[Telefonnummer] = \" & \"\"\"\" & Me![Telefonnummer] & \"\"\"\"
        Forms![Fakturaformular].FilterOn = True
    End If

End Sub
Private Sub OpenChildForm()

    DoCmd.OpenForm \"Fakturaformular\"
    If Not Me![SkiftKæde] Then Me![SkiftKæde] = True

End Sub
Private Sub CloseChildForm()

    DoCmd.Close acForm, \"Fakturaformular\"
    If Me![SkiftKæde] Then Me![SkiftKæde] = False

End Sub
Private Function ChildFormIsOpen()

    ChildFormIsOpen = (SysCmd(acSysCmdGetObjectState, acForm, \"Fakturaformular\") And acObjStateOpen) <> False

End Function


Private Sub Søg_Click()
On Error GoTo Err_Søg_Click


    Screen.PreviousControl.SetFocus
    DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70

Exit_Søg_Click:
    Exit Sub

Err_Søg_Click:
    MsgBox Err.Description
    Resume Exit_Søg_Click
   
End Sub
Private Sub Mobil_rapport_Click()
On Error GoTo Err_Mobil_rapport_Click

    Dim stDocName As String

    stDocName = \"Mobil oversigt\"
    DoCmd.OpenReport stDocName, acPreview

Exit_Mobil_rapport_Click:
    Exit Sub

Err_Mobil_rapport_Click:
    MsgBox Err.Description
    Resume Exit_Mobil_rapport_Click
   
End Sub
Private Sub Dupliker_Click()
On Error GoTo Err_Dupliker_Click


    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
    DoCmd.DoMenuItem acFormBar, acEditMenu, 2, , acMenuVer70
    DoCmd.DoMenuItem acFormBar, acEditMenu, 5, , acMenuVer70 \'Paste Append

Exit_Dupliker_Click:
    Exit Sub

Err_Dupliker_Click:
    MsgBox Err.Description
    Resume Exit_Dupliker_Click
   
End Sub
Private Sub ISDN_rapport_Click()
On Error GoTo Err_ISDN_rapport_Click

    Dim stDocName As String

    stDocName = \"ISDN oversigt\"
    DoCmd.OpenReport stDocName, acPreview

Exit_ISDN_rapport_Click:
    Exit Sub

Err_ISDN_rapport_Click:
    MsgBox Err.Description
    Resume Exit_ISDN_rapport_Click
   
End Sub
Private Sub Opdater_Click()
On Error GoTo Err_Opdater_Click


    DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70

Exit_Opdater_Click:
    Exit Sub

Err_Opdater_Click:
    MsgBox Err.Description
    Resume Exit_Opdater_Click
   
End Sub
Private Sub Kommandoknap62_Click()
On Error GoTo Err_Kommandoknap62_Click

    Dim stDocName As String

    stDocName = \"Diverse Oversigt\"
    DoCmd.OpenReport stDocName, acPreview

Exit_Kommandoknap62_Click:
    Exit Sub

Err_Kommandoknap62_Click:
    MsgBox Err.Description
    Resume Exit_Kommandoknap62_Click
   
End Sub
Private Sub Kommandoknap80_Click()
On Error GoTo Err_Kommandoknap80_Click


    DoCmd.GoToRecord , , acNewRec

Exit_Kommandoknap80_Click:
    Exit Sub

Err_Kommandoknap80_Click:
    MsgBox Err.Description
    Resume Exit_Kommandoknap80_Click
   
End Sub
Private Sub Bruger_indtast_Click()
On Error GoTo Err_Bruger_indtast_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = \"Kundeformular\"
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Bruger_indtast_Click:
    Exit Sub

Err_Bruger_indtast_Click:
    MsgBox Err.Description
    Resume Exit_Bruger_indtast_Click
   
End Sub
Private Sub Fakturaoversigt_Click()
On Error GoTo Err_Fakturaoversigt_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = \"LæsFaktura\"
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Fakturaoversigt_Click:
    Exit Sub

Err_Fakturaoversigt_Click:
    MsgBox Err.Description
    Resume Exit_Fakturaoversigt_Click
   
End Sub
Private Sub FakturaData_Click()
On Error GoTo Err_FakturaData_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = \"Fakturaformular\"
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_FakturaData_Click:
    Exit Sub

Err_FakturaData_Click:
    MsgBox Err.Description
    Resume Exit_FakturaData_Click
   
End Sub
Private Sub Opdater_Click()
On Error GoTo Err_Opdater_Click


    DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70

Exit_Opdater_Click:
    Exit Sub

Err_Opdater_Click:
    MsgBox Err.Description
    Resume Exit_Opdater_Click
   
End Sub
Private Sub FakturaData_Click()
On Error GoTo Err_FakturaData_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = \"Fakturaformular\"
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_FakturaData_Click:
    Exit Sub

Err_FakturaData_Click:
    MsgBox Err.Description
    Resume Exit_FakturaData_Click
   
End Sub
Private Sub Kommandoknap103_Click()
On Error GoTo Err_Kommandoknap103_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = \"Fakturaformular\"
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Kommandoknap103_Click:
    Exit Sub

Err_Kommandoknap103_Click:
    MsgBox Err.Description
    Resume Exit_Kommandoknap103_Click
   
End Sub
Private Sub Kommandoknap104_Click()
On Error GoTo Err_Kommandoknap104_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = \"Fakturaformular\"
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Kommandoknap104_Click:
    Exit Sub

Err_Kommandoknap104_Click:
    MsgBox Err.Description
    Resume Exit_Kommandoknap104_Click
   
End Sub

Der er da vist en masse der går igen flere gange til sidst? - Ser ud til at hvis man laver en ny knap og tror man sletter den igen, bare ved at markere og trykke delete, ligger der \"rester\"...

Har selv slettet en masse der så ud til at stå dobbelt i koden - og nu virker det igen :-)

Jeg håber så bare ikke jeg har slettet for meget...

Når du sletter en kommandoknap sletter du kun knappen i formularen - koden ligger stadig inde i dit VBA-modul. For ikke at få fejlen, er du nødt til at slette både knap og kode.   

Hvad står VBA-modul for? - Er det den grundlæggende del, der går at databasen gør som den gør, mon?

Korrekt - et VBA-modul er der, hvor du skriver din kode (programmeringsvinduet har jeg også set det omtalt).
Du var selv inde på svaret 20/8 kl 13:19, disse rester er den kode der tilhørte en slettet kommandoknap.