broncode blijft foutmelding geven

[Gruber]

netjes vanuit een boek de broncodes overgenomen om een de velden te legen als ik op 'clear' druk, vol verwachting klopte mijn hart tijdens het testen en .......

opnieuw de codes na gelezen tot ik vierkante ogen kreeg maar ik krijg het niet voor elkaar .

Wie o wie kan mij op het goede spoor zetten, het zal wel in een klein detail zitten. Ik heb de complete geupload.

thnx in advance :thumb:

Gruber

 

[Hoornvan]

Gruber,

Maak van deze code,

Elseif TypeName(ctl) = "CheckBox" Then

dit,

If TypeName(ctl) = "CheckBox" Then

 

[Gruber]

Hi Wim,

dat is inderdaad de oplossing voor de 'clear' knop :thumb:, echter hij zou ook moeten werken voor de knop 'OK' .... helaas... z
was mis ik hier ?? thnx Gruber

 

[Hoornvan]

Gruber,

DE rode regel geef ook een fout, Blad1 bestaat niet.

Private Sub cmndOK_Click()
' Write data to worksheet
[COLOR="Red"]Rowcount = Worksheets("blad1").Range("A1").CurrentRegion.Rows.Count[/COLOR]
With Worksheets("blad1").Range("A1")
.Offset(Rowcount, 0).Value = Me.txtOrdernummer.Value
.Offset(Rowcount, 1).Value = Me.txtKlant.Value
.Offset(Rowcount, 2).Value = Me.txtDoorgang.Value
.Offset(Rowcount, 3).Value = Me.txtBewerking.Value
.Offset(Rowcount, 4).Value = Me.cbDrukformaat.Value
.Offset(Rowcount, 5).Value = Me.txtOplage.Value
.Offset(Rowcount, 6).Value = DateValue(Me.txtLeverdatum.Value)
.Offset(Rowcount, 7).Value = DateValue(Me.txtMateriaaldatum.Value)
.Offset(Rowcount, 9).Value = DateValue(Me.txtDrukgereed.Value)
.Offset(Rowcount, 10).Value = Me.cbAfwerking.Value

End With

' Clear the form
For Each ctl In Me.Controls
If TypeName(ctl) = "TextBox" Or TypeName(ctl) = "comboBox" Then ctl.Value = ""
[COLOR="red"]If TypeName(ctl) = "CheckBox" Then ctl.Value [/COLOR]= "" 'False

Next ctl

 

[Hoornvan]

Gruber,

Als het bladnaam planning moet zijn dan loopt hij nu wel door.

Private Sub cmndOK_Click()
' Write data to worksheet
Rowcount = Worksheets("planning").Range("A1").CurrentRegion.Rows.Count
With Worksheets("planning").Range("A1")
.Offset(Rowcount, 0).Value = Me.txtOrdernummer.Value
.Offset(Rowcount, 1).Value = Me.txtKlant.Value
.Offset(Rowcount, 2).Value = Me.txtDoorgang.Value
.Offset(Rowcount, 3).Value = Me.txtBewerking.Value
.Offset(Rowcount, 4).Value = Me.cbDrukformaat.Value
.Offset(Rowcount, 5).Value = Me.txtOplage.Value
.Offset(Rowcount, 6).Value = DateValue(Me.txtLeverdatum.Value)
.Offset(Rowcount, 7).Value = DateValue(Me.txtMateriaaldatum.Value)
.Offset(Rowcount, 9).Value = DateValue(Me.txtDrukgereed.Value)
.Offset(Rowcount, 10).Value = Me.cbAfwerking.Value

End With

' Clear the form
For Each ctl In Me.Controls
If TypeName(ctl) = "TextBox" Or TypeName(ctl) = "comboBox" Then ctl.Value = ""
If TypeName(ctl) = "CheckBox" Then ctl.Value = "" 'False

Next ctl
End Sub

 

[Gruber]

:thumb: opgelost!!

thnx

gruber

 

[snb]

Nog niet helemaal

Als een code in de module van het userform staat is het weeergeven van het userform overbodig

Gebruik dus txtOrdernummer.Text of Me("txtordernummer").Text
Me.txtOrdenummer.Text is in dit geval dubbelop.

En omdat je toch gebruik maakt van de Hongaarse notatie (txt, cb ...) is het wel zo consistent ook de defaulteigenschap van een tekstvak - Text - te gebruiken.

Maar omdat je defaulteigenschappen wil hebben, hoef je ze niet te specificeren.

De Variabele rowcount is overbodig, want met With kun je de laatse gevulde cel in kolom A direkt adresseren/benaderen.

With Sheets("planning").cells(rows.count,1).end(xlup)
    .Offset(, 0).Value = txtOrdernummer.Text
    .Offset(, 1).Value = txtKlant.Text
    .Offset(, 2).Value = txtDoorgang.Text
    .Offset(, 3).Value = txtBewerking.Text
    .Offset(, 4).Value = cbDrukformaat.Value
    .Offset(, 5).Value = txtOplage.Text
    .Offset(, 6).Value = DateValue(txtLeverdatum.Text
    .Offset(, 7).Value = DateValue(txtMateriaaldatum.Text)
    .Offset(, 9).Value = DateValue(txtDrukgereed.Text)
    .Offset(, 10).Value = cbAfwerking.Value
End With

of met 3 regels

With Sheets("planning").cells(rows.count,1).end(xlup)
    for j=0 to 10
     .Offset(, j) = choose(j,txtOrdernummer,txtKlant,txtDoorgang,txtBewerking,cbDrukformaat,txtOplage,DateValue(txtLeverdatum),DateValue(txtMateriaaldatum),'",DateValue(txtDrukgereed),cbAfwerking)
   next
End With

of in 1 regel

Sheets("planning").cells(rows.count,1).end(xlup).resize(, 10) = split(txtOrdernummer & "|" & txtKlant& "|" & txtDoorgang & "|" & txtBewerking & "|" & cbDrukformaat & "|" &txtOplage & "|" & DateValue(txtLeverdatum) & "|" & DateValue(txtMateriaaldatum)&  "||" & DateValue(txtDrukgereed) & "|" & cbAfwerking,"|")