Userform VBA compile error: Method or data member not found

[Stevehhm]

Beste, Ik krijg de foutmelding "Compile error: Method or data member not found" bij het opslaan van een userform. De code staat hieronder en de error wordt aangegeven bij:
'copy the data to the database
ws.Cells(newrow, 1).Value = Me.txtTxt_Nummer.Value



Kan iemand mij helpen met het oplossen van deze foutmelding?



Private Sub artikelnrleverancier_Change()

End Sub

Private Sub Label1_Click()

End Sub

Private Sub Sluiten_Click()
Unload Me
End Sub

Private Sub cmdOpslaan_Click()
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("voorraadartikelen")
Dim Txt_Nummer As Integer


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

'copy the data to the database
ws.Cells(newrow, 1).Value = Me.txtTxt_Nummer.Value
ws.Cells(newrow, 2).Value = Me.txtartikelnrleverancier.Value
ws.Cells(newrow, 3).Value = Me.txtOmschrijving.Value
ws.Cells(newrow, 4).Value = Me.txtcbHoofdgroep.Value
ws.Cells(newrow, 5).Value = Me.txtSubgroep.Value
ws.Cells(newrow, 6).Value = Me.txtmerk.Value
ws.Cells(newrow, 7).Value = Me.txtaantalinverpakking.Value
ws.Cells(newrow, 8).Value = Me.txtEenheid.Value
ws.Cells(newrow, 9).Value = Me.txtprijsperverpakking.Value
ws.Cells(newrow, 10).Value = Me.txtprijspereenheid.Value
ws.Cells(newrow, 11).Value = Me.txtLeverancier.Value
ws.Cells(newrow, 12).Value = Me.txtTHCB.Value
ws.Cells(newrow, 13).Value = Me.txtRefresh.Value
ws.Cells(newrow, 14).Value = Me.txtInstructiekeuken.Value
ws.Cells(newrow, 15).Value = Me.txtFacilitairbedrijf.Value
ws.Cells(newrow, 16).Value = Me.txtCampus.Value

'clear the data
Me.txtTxt_Nummer.Value = ""
Me.txtartikelnrleverancier.Value = ""
Me.txtOmschrijving.Value = ""
Me.txtcbHoofdgroep.Value = ""
Me.txtSubgroep.Value = ""
Me.txtmerk.Value = ""
Me.txtaantalinverpakking.Value = ""
Me.txtEenheid.Value = ""
Me.txtprijsperverpakking.Value = ""
Me.txtprijspereenheid.Value = ""
Me.txtLeverancier.Value = ""
Me.txtTHCB.Value = ""
Me.txtRefresh.Value = ""
Me.txtInstructiekeuken.Value = ""
Me.txtFacilitairbedrijf.Value = ""
Me.txtCampus.Value = ""


End Sub


Private Sub UserForm_Initialize()

Txt_Nummer.Value = WorksheetFunction.Max(Worksheets("voorraadartikelen").Range("A:A")) + 1

With cbHoofdgroep
.AddItem "Bier"
.AddItem "China & Glassware"
.AddItem "Cleaning Supplies"
.AddItem "Disposibles"
.AddItem "DKW"
.AddItem "Frisdrank"
.AddItem "Gedistilleerd"
.AddItem "Giftshop"
.AddItem "Guest Supplies"
.AddItem "Koffie"
.AddItem "Linnen"
.AddItem "Overig"
.AddItem "PSV"
.AddItem "Thee"
.AddItem "Wijn"
.AddItem "Zuivel"
End With

With Subgroep
.AddItem "Azijn"
.AddItem "Bierglas"
.AddItem "Bindmiddelen"
.AddItem "Buitenlands"
.AddItem "Chocola"
.AddItem "Cleaning Supplies"
.AddItem "Cognac"
.AddItem "Conserven"
.AddItem "Gin"
.AddItem "Guest Supplies"
.AddItem "Kassarol"
.AddItem "Kruiden & Specerijen"
.AddItem "Koffieautomaat"
.AddItem "Koffiekoekjes"
.AddItem "Kookwijn"
.AddItem "Likeur"
.AddItem "Noten & Zuidvruchten"
.AddItem "Olie & Vetten"
.AddItem "Pasta"
.AddItem "Port"
.AddItem "Sherry"
.AddItem "Siroop"
.AddItem "Soepen & Sauzen"
.AddItem "Tafelzuren"
.AddItem "Zoetstoffen"
End With

With Eenheid
.AddItem "Bak"
.AddItem "Blik"
.AddItem "Bos"
.AddItem "Box"
.AddItem "Can"
.AddItem "Doos"
.AddItem "Emmer"
.AddItem "Flacon"
.AddItem "Fles"
.AddItem "Fust"
.AddItem "Krat"
.AddItem "Krimp"
.AddItem "Overdoos"
.AddItem "Pak"
.AddItem "Pot"
.AddItem "Rol"
.AddItem "Rol 10 stuks"
.AddItem "Stuk"
.AddItem "Tray"
.AddItem "Tube"
.AddItem "Wikkel"
.AddItem "Zak"
End With

With Leverancier
.AddItem "Acertys"
.AddItem "Alpheios bv"
.AddItem "Brand Bier brouwerij"
.AddItem "CCV Holland"
.AddItem "Centraal Magazijn"
.AddItem "Chateau Gilbert"
.AddItem "Cleopatra"
.AddItem "Deli XL"
.AddItem "Dockwork bv"
.AddItem "Douwe egberts Nederland"
.AddItem "Drijvers Rob Wijnkisten"
.AddItem "Ecolab"
.AddItem "Hago"
.AddItem "HAIL Europe"
.AddItem "Hanos"
.AddItem "Hans de Haan bv"
.AddItem "Heeren van Heusden Wijnkopers"
.AddItem "Index"
.AddItem "Intros hotelsupplies"
.AddItem "Kalimba"
.AddItem "Koekjes royal"
.AddItem "Levert & Schudel wijnkopers"
.AddItem "Mokrupak verpakkingen"
.AddItem "Ouwerkerk wijnhandel"
.AddItem "PML bags"
.AddItem "Promo tools"
.AddItem "Quality equipment"
.AddItem "Rudeco"
.AddItem "Thiessen wijnkopers"
.AddItem "Top wines 4U"
.AddItem "Verbunt wijnkopers"
.AddItem "Verstegen kruiden"
.AddItem "Vinisol wijnhuis Meerssen"
.AddItem "Vinites bv"
.AddItem "Walraven Sax"
.AddItem "Weska"
.AddItem "Wijngoed Hoeve Nekum"
.AddItem "WMF Nederland"

End With
End Sub

 

[OctaFish]

Doe ons een lol en pas je code aan en zet er CODE tags omheen; Dit is echt onleesbaar...

 

[Stevehhm]

Private Sub cmdOpslaan_Click()
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("voorraadartikelen")
Dim TxtNummer As String



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

'copy the data to the database
ws.Cells(newrow, 1).Value = Me.TxtNummer.Value
ws.Cells(newrow, 2).Value = Me.artikelnrleverancier.Value
ws.Cells(newrow, 3).Value = Me.Omschrijving.Value
ws.Cells(newrow, 4).Value = Me.cbHoofdgroep.Value
ws.Cells(newrow, 5).Value = Me.Subgroep.Value
ws.Cells(newrow, 6).Value = Me.merk.Value
ws.Cells(newrow, 7).Value = Me.aantalinverpakking.Value
ws.Cells(newrow, 8).Value = Me.Eenheid.Value
ws.Cells(newrow, 9).Value = Me.prijsperverpakking.Value
ws.Cells(newrow, 10).Value = Me.prijspereenheid.Value
ws.Cells(newrow, 11).Value = Me.Leverancier.Value
ws.Cells(newrow, 12).Value = Me.THCB.Value
ws.Cells(newrow, 13).Value = Me.Refresh.Value
ws.Cells(newrow, 14).Value = Me.Instructiekeuken.Value
ws.Cells(newrow, 15).Value = Me.Facilitairbedrijf.Value
ws.Cells(newrow, 16).Value = Me.Campus.Value

'clear the data
Me.TxtNummer.Value = ""
Me.artikelnrleverancier.Value = ""
Me.Omschrijving.Value = ""
Me.cbHoofdgroep.Value = ""
Me.Subgroep.Value = ""
Me.merk.Value = ""
Me.aantalinverpakking.Value = ""
Me.Eenheid.Value = ""
Me.prijsperverpakking.Value = ""
Me.prijspereenheid.Value = ""
Me.Leverancier.Value = ""
Me.THCB.Value = ""
Me.Refresh.Value = ""
Me.Instructiekeuken.Value = ""
Me.Facilitairbedrijf.Value = ""
Me.Campus.Value = ""


End Sub

Er zijn al enkele fouten gevonden. hij geeft nu echter een 1004 foutcode aan bij het de button voor het opslaan. Wie kan ons helpen.