Dubbele klanten niet toegelaten

[qelvin]

Beste VBA-specialisten

In bijlage mijn voorbeeldbestandje.
Op dit (trouwens magnifiek forum) heb ik verschillende onderwerpen gevonden met betrekking tot mijn probleem, maar de juiste code kreeg ik nog niet te pakken...
Mijn bedoeling is te vermijden dat 2 x dezelfde nieuwe klant kan aangemaakt worden. VBA gaat naar de laatste lege rij maar mag de gegevens uit de textboxen dus pas wegschrijven als de naam nog niet voorkomt in de database.

Al bedankt op voorhand

 

[TomP]

Het zou hiermee kunnen:

If Application.WorksheetFunction.CountIf(ws.Columns(1), Me.TextNaam.Value) > 0 Then
    MsgBox "naam bestaat al"
End If

Tuurlijk wel even goed nadenken waar je precies op wilt controleren. Is de naam een unieke eigenschap?

Gr. Tom

 

[qelvin]

Tom,

Er zou een controle moeten gebeuren op 3 zaken: als zowel naam als straat reeds voorkomen op dezelfde rij moet de melding komen: 'naam bestaat al'

groetjes,
Kristof

 

[qelvin]

Ik bedoelde natuurlijk controle op 2 zaken...

 

[qelvin]

De 1 ste voorwaarde is dus de waarde van TextNaam

If Application.WorksheetFunction.CountIf(ws.Columns(1), Me.TextNaam.Value) > 0 Then
    MsgBox "naam bestaat al"
End If

De 2 de voorwaarde TextStraat zou in deze formule moeten ingevoegd worden zodat zowel naam als straat verschillend moeten zijn bij het aanmaken van een nieuwe klant.

 

[TomP]

Dan kun je formule countifs gebruiken. Je zou hier nog meer voorwaarden in kunnen zetten...

If Application.WorksheetFunction.CountIfs(ws.Columns(1), Me.TextNaam.Value,ws.Columns(6), Me.TextStraat.Value) > 0 Then
    MsgBox "naam bestaat al"
End If

 

[qelvin]

Works for me :thumb:

Thx