Compileerfout cmdAdd

[Svdkl]

Beste forum leden,

Ik probeer via deze weg data in te voeren alleen loop ik helaas tegen een error aan. Ik werk pas sinds een week met VBA en kan na veel googelen niet het juiste antwoord vinden op mijn probleem. Misschien werkt het via deze weg een stuk beter omdat er feedback gegeven kan worden op mijn code.

De commandbutton om de gegevens te bevestigen heet cmdAdd
Ik krijg de volgende melding wanneer ik het formulier heb ingevuld en wil bevestigen: Compileerfout. Kan de methode of het gegevenslid niet vinden.

Excel 2007
Ik heb een voorbeeld gebruikt wat in excel 2003 is gemaakt. Zou hier de oorzaak in kunnen zitten?

De code:

Private Sub cmdAdd_Click()
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("KlantData")

'find first empty row in database
iRow = ws.Cells(Rows.Count, 1) _
  .End(xlUp).Offset(1, 0).Row

'check for a part number
If Trim(Me.txtKlantnaam.Value) = "" Then
  Me.txtKlantnaam.SetFocus
  MsgBox "Please enter Klantnaam"
  Exit Sub
End If

'copy the data to the database
ws.Cells(iRow, 1).Value = Me.txtKlantnaam.Value
ws.Cells(iRow, 2).Value = Me.txtProjectnummer.Value
ws.Cells(iRow, 3).Value = Me.txtActiebenaming.Value
ws.Cells(iRow, 4).Value = Me.txtDebiteurnummer.Value
ws.Cells(iRow, 5).Value = Me.txtProjectmanager.Value
ws.Cells(iRow, 6).Value = Me.txtBackup.Value

'clear the data
Me.txtKlantnaam.Value = ""
Me.txtProjectnummer.Value = ""
Me.txtActiebenaming.Value = ""
Me.txtDebiteurnummer.Value = ""
Me.txtProjectmanager.Value = ""
Me.txtBackup.Value = ""
Me.txtKlantnaam.SetFocus




End Sub

M.v.g,

Stefan van der Klink

 

[Niels28]

Een of meerder van de textboxen heeft niet de juiste naam.
Als je er niet uit komt plaats dan even een voorbeeld bestand


Niels