[Access]Verificare se c'e' un valore in una tabella

[cassioli]

Come faccio in VBA a verificare se in un certo campo di una certa tabella c'e' un certo valore?
Se uso Dlookup, ho dei problemi:

Codice: Seleziona tutto

If DLookup("[cam]", "tab", "[cam]=" + "'" + dest + "'") <> dest Then
    [immetti valore]
Else
    [valore gia' presente]
End If


Se nel campo CAM della tabella TAB c'e' il valore contenuto in DEST, l'espressione DLookup("[cam]", "tab", "[cam]=" + "'" + dest + "'") restituisce il valore stesso, ossia una stringa; ma se il valore non c'e', restituisce il valore NULL; quindi in teoria il codice sopra è giusto.... invece no! Vado sempre a finire nell' "else"!

E non posso testare direttamente l'espressione, perche' il risultato puo' essere o una stringa o un null, che sono tipi diversi e quindi mi da' errore.

E allora???
Come faccio????

[archimede]

Non sono sicuro di capire: cerchi il campo CAM della tabella TAB di quale record?

Provo a suggerire

Codice: Seleziona tutto

If IsNull(DLookup("[cam]", "tab", "[CampoChiave]=" + mioID)) Then

HTH.

Alessandro

[cassioli]

Non sono sicuro di capire: cerchi il campo CAM della tabella TAB di quale record?

Provo a suggerire

Codice: Seleziona tutto

If IsNull(DLookup("[cam]", "tab", "[CampoChiave]=" + mioID)) Then

HTH.

Alessandro

Volevo sapere se c'e' quel valore in un record QUALUNQUE.
Forse ho trovato un modo alternativo:

Codice: Seleziona tutto

Dim dbs As Database, rst As Recordset
    Dim strCriteri As String

    ' Restituisce il riferimento al database corrente.
    Set dbs = CurrentDb
    ' Definisce i criteri di ricerca.
    strCriteri = "[cam] = '" + dest + "'"
    ' Crea un oggetto Recordset di tipo dynaset in base alla tabella tab.
    Set rst = dbs.OpenRecordset("tab", dbOpenDynaset)
    ' Trova il primo record corrispondente.
    rst.FindFirst strCriteri

' Controlla se il record è stato trovato.
    If rst.NoMatch Then
.........


Liberamente adattato dall'help di Access

Cmq grazie per avermi spiegato come testare se una variabile vale NULL.

[archimede]

Volevo sapere se c'e' quel valore in un record QUALUNQUE.

Ah, ok. Forse è più semplice:

Codice: Seleziona tutto

If DCount("*", "tab", "[cam]='" + dest + "'") = 0 Then

HTH.

Alessandro

[cassioli]

e come faccio, invece, a leggere tutti i record uno per uno? Ho provato con findfirst "*" ma non va...

[archimede]

e come faccio, invece, a leggere tutti i record uno per uno?

Informazioni insufficienti: spiegati meglio.

Alessandro

[Alexsandra]

Ti stavo per chiedere la stessa cosa anch'io. Vuoi associare la ricerca a un textbox in cui digiti il testo da cercare oppure vuoi scorrere tutti i record(ma manca il criterio di ricerca)

[cassioli]

Volevo... semplicemente scorrere TUTTI i record, senza nessun criterio di ricerca particolare!
Ma ho risolto usando FindFirst/FindNext con criterio <>'' invece che ='*'.