"Dé grootste en gratis computerhelpdesk van Nederland"
-
Privacywetgeving
Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.
testbox niet werkend
- Onderwerp starter Edbrug
- Startdatum
- Status
gebruik volgende code om een debiteur toe te voegen.
Vermijdt select en activate, het is zelden nodig en het vertraagt je code.
Code:
Private Sub cmdannuleren_Click()
Unload Me
End Sub
Private Sub cmdOK_Click()
With Sheets("debiteuren")
selrij = .Cells.Find(What:="*", SearchOrder:=xlRows, SearchDirection:=xlPrevious, LookIn:=xlValues).Row + 1
.Cells(selrij, 1).Resize(, 7).Value = Array(txtnaam.Value, , txttav.Value, txtadres.Value, txtpcenwp.Value, txtemail.Value, txtmobiel.Value)
End With
For Each Ctrl In Controls
If TypeName(Ctrl) = "TextBox" Then Ctrl.Value = ""
Next Ctrl
Unload Me
End SubDat is de tabvolgorde en heeft niets met mijn code te maken.
Rechtermuisklik in je kader waar de textboxen staan,daar Tabvolgerde kiezen en aanpassen.
Uw tweede opmerking begrijp ik niet echt.
De bedoeling is toch om een nieuwe debiteur in te vullen.
Rechtermuisklik in je kader waar de textboxen staan,daar Tabvolgerde kiezen en aanpassen.
Uw tweede opmerking begrijp ik niet echt.
De bedoeling is toch om een nieuwe debiteur in te vullen.
Maak slim gebruik van je tabel.
Code:
Private Sub cmdOK_Click()
With Sheets("Debiteuren").ListObjects(1)
.ListRows.Add.Range.Resize(, 7) = Array(txtnaam, Application.Max(.Range.Columns(2)) + 1, txttav, txtadres, txtpcenwp, txtemail, txtmobiel)
End With
For Each ct In Me.Controls
If TypeName(ct) = "TextBox" Then ct.Value = ""
Next ct
End Sub
Laatst bewerkt:
roeljongman
Terugkerende gebruiker
- Lid geworden
- 30 mei 2010
- Berichten
- 1.385
- Office versie
- Microsoft 365
Om velden in de gewenste volgorde te doorlopen op het formulier kun je de tabindex bij de properties (eigenschappen) aanpassen
de huidige waarde tabindex waarde van mobiel is 12 terwijl ok en annuleren 6 en 7 zijn. Als je mobiel aanpast naar 6 zullen ok en annuleren zich aanpassen en daarna afgewerkt worden.
als je op formulier ontwerken staat kun je via F4 de eigenschappen oproepen en aanpassen.
zie schermafdruk
- Status
