NAW hulp bij wijzigen

[wivoe]

Hallo,

Ben bezig om een NAW bestand op te bouwen, maar loop tegen
een probleem aan.
Het bijgevoegde voorbeeld is hier 'geleend' en de betrokken
helper/opsteller herkent het vast wel.
Het probleem is dat bij het aanpassen van de gegevens de onderste
NAW niet te wijzigen is, ik krijg het tenminste niet voor elkaar.
Het is een bestand zonder ID's.

Graag uw zeer gewaardeerde hulp.

Wim

 

[SjonR]

de rode 2 moet je vervangen door een 3. Werkt het dan wel?

Private Sub B_02_Click()                        ' Aanpassen
 If LB_01.ListIndex = -1 Then
        MsgBox "Kies eerst een ingave in de lijst!", vbCritical, "Ingave?"
        LB_01.SetFocus
        Exit Sub
    End If
    If MsgBox("Correcte aanpassing?", vbYesNo + vbQuestion, "Kijk de gegevens na!") = vbNo Then Exit Sub
    Set ws = Worksheets("Data")
    iRow = ws.Cells.Find(What:=T_01, SearchOrder:=xlRows, SearchDirection:=xlPrevious, LookIn:=xlValues).Row
    ws.Cells(iRow, 1).Resize(, [COLOR="#FF0000"]2[/COLOR]).Value = Array(T_01.Value, T_02.Value, T_03.Value)
    MsgBox "De aanpassingen zijn opgeslagen!", vbInformation, "Klaar"
    LB_01.ListIndex = -1
    For Each Ctrl In Controls
        If TypeOf Ctrl Is MSforms.CheckBox Then Ctrl.Value = False
        If TypeName(Ctrl) = "TextBox" Or TypeName(Ctrl) = "ComboBox" Then Ctrl.Value = ""
    Next Ctrl
    Call UserForm_Initialize
End Sub

 

[wivoe]

Hallo SjonR,

Het adres en de woonplaats aanpassen werkt wel, maar de naam niet.

Bij de onderste naam aanpassen krijg ik de melding: Fout 91 tijdens uitvoeren.

 

[SjonR]

Het is zo gemaakt dat er op naam wordt gezocht in de lijst met personen en dat vervolgens de gegevens worden gewijzigd. Een naamswijziging zal dus niet gaan werken.

En ben je echt van mening dat je met de code in jouw userform de woonplaats kan aanpassen zonder de 2 in een 3 te veranderen?

 

[wivoe]

Hallo SjonR,

De 2 had ik in een 3 veranderd. Ik denk dat je gelijk heb, de adressen en
woonplaatsen zijn wel te wijzigen, maar niet de namen.

Wim

 

[wivoe]

SjonR,

Zou dat dan betekenen dat je zo'n bestand alleen maar volledig
kan aanpassen met behulp van een ID nummer waarop gezocht
kan worden?

Wim

 

[SjonR]

Nee hoor, alleen een andere manier van benaderen. Dus niet zoeken op naam.

Private Sub B_02_Click()                        ' Aanpassen
 If LB_01.ListIndex = -1 Then
        MsgBox "Kies eerst een ingave in de lijst!", vbCritical, "Ingave?"
        LB_01.SetFocus
        Exit Sub
    End If
    If MsgBox("Correcte aanpassing?", vbYesNo + vbQuestion, "Kijk de gegevens na!") = vbNo Then Exit Sub
    Set ws = Worksheets("Data")
  [COLOR="#FF0000"] Blad1.ListObjects(1).DataBodyRange.Cells(LB_01.ListIndex + 1, 1).Resize(, 3) = Array(T_01.Value, T_02.Value, T_03.Value)[/COLOR]
    MsgBox "De aanpassingen zijn opgeslagen!", vbInformation, "Klaar"
    LB_01.ListIndex = -1
    For Each Ctrl In Controls
        If TypeOf Ctrl Is MSforms.CheckBox Then Ctrl.Value = False
        If TypeName(Ctrl) = "TextBox" Or TypeName(Ctrl) = "ComboBox" Then Ctrl.Value = ""
    Next Ctrl
    Call UserForm_Initialize
End Sub

 

[wivoe]

SjonR,

Alle NAW veranderd en vervangen en het werkt perfect!

Hartelijk dank hiervoor en respect.

Met vriendelijke groet,

Wim

 

[SjonR]

:thumb:

Graag gedaan!

 

[HSV]

Twee keer controleren op de listindex lijkt mij overbodig.
Als de listindex = -1 dan wordt het afgebroken.
Indien de code niet wordt afgebroken is de listindex > -1 toch?

 

[wivoe]

Hallo Harry,

Bij het wijzigen van ListIndex = -1 in ListIndex > -1 (waarvan er 3 zijn in code Aanpassen)
kreeg ik foutmeldingen waaronder Compileerfout, Syntaxis fout. Heb weer de ListIndexen op
ListIndex = -1 gezet.


Een nieuw probleem is nu, bij het ingeven van een nieuwe NAW, worden wel de N en A opgeslagen
maar niet de W. Is dit nog te verhelpen?

Wim

 

[HSV]

Dan doe je iets niet helemaal goed.
Als ik mijn voordeur met het sleuteltje open doe, ik ga naar binnen, dan hoef ik mijn voordeur niet nog een keer van het slot te doen.

Plaats het bestand eens met hoever je bent.

 

[SjonR]

Ik had de code in # 7 aangepast. Die zou moeten werken toch?

 

[HSV]

Dat had je dan ook even moeten vermelden Sjon als je de code ± 11 uur later aanpast.

 

[SjonR]

Beter laat dan nooit . Maar daarvoor werkte de code ook al .

 

[HSV]

Dat zal wel kloppen, maar met meerdere keren een controle of de listindex > -1 is, terwijl je bij de eerste keer al een 'Exit Sub' geeft als het -1 is.
Vandaar mijn commentaar.

 

[wivoe]

Heren,

Ik heb de code werkend gekregen, beiden heel hartelijk bedankt.

Zal hem op opgelost zetten.

Groeten, Wim