[VBA] Zoeken bestaande waarde *

[Verwijderd]

Bij het maken van een soort helpdesk-applicatie in Access 2003 heb ik een formulier waar PC gegevens opgevraagd kunnen worden. Het gaat hier om PC's met een vast nummer (in een bedrijf). Werkt allemaal prima en alles loopt goed.

In dit formulier heb ik een knop gemaakt die een nieuw formulier opent, namelijk "PC gegevens toevoegen". Zoals de titel al zegt kun je hiermee een nieuwe PC toevoegen aan de database.
Nu heb ik het volgende probleem: bij het invullen van het PC-nummer moet er gekeken worden of dit nummer al bestaat. Zo ja, moet er een MsgBox naar voren komen dat er een ander nummer ingevuld moet worden, omdat deze al bestaat.

Ik heb zelf al geëxperimenteerd en ben zo ver gekomen:

code:

Private Sub PC_LostFocus()
Dim PCnr As String
PCnr = PC.Value

If IsNull("DoCmd.FindRecord PCnr, , False, acSearchAll, False, acCurrent, False") = True Then

    MsgBox "Dit nummer bestaat al.", vbOKOnly
    
End If

End Sub

Misschien is het een klein probleempje waarin ik iets over het hoofd zie, maar in ieder geval kom ik er niet meer uit.

[gorgi_19]

Heb je nog een suggestie voor een volledige titel?

[OZ-Gump]

Kijk eens naar wat DCount voor je kan doen.

Verder zou je natuurlijk ook gewoon kunnen proberen de gegevens toe te voegen en er bij een fout op die actie van uit gaan dat dat komt omdat het nummer al bestaat, maar dat is niet zo netjes... En dat werkt ook alleen als je het nummer uniek voor de tabel hebt gemaakt

[ Voor 48% gewijzigd door OZ-Gump op 18-03-2005 10:17 ]

[Verwijderd]

gorgi_19 schreef op vrijdag 18 maart 2005 @ 10:12:
Heb je nog een suggestie voor een volledige titel?

sorry lette niet goed op... wat dacht je van: "Zoeken bestaande waarde"?

OZ-Gump schreef op vrijdag 18 maart 2005 @ 10:15:
Kijk eens naar wat DCount voor je kan doen.

Verder zou je natuurlijk ook gewoon kunnen proberen de gegevens toe te voegen en er bij een fout op die actie van uit gaan dat dat komt omdat het nummer al bestaat, maar dat is niet zo netjes... En dat werkt ook alleen als je het nummer uniek voor de tabel hebt gemaakt

Ik zal s kijken