[VBA/ACCESS] Query per verifiche su Codice Fiscale

[twing]

Help! Una cosa urgente:
Ho una tabella in un db Access e devo fare un controllo sulla correttezza del codice fiscale inserito in un campo.
Vogliono che presenti una query con i record che hanno il codice fiscale sbagliato.
Io ho scritto una routine VBA ma ora come faccio ad utilizzarla in una query???

Vi prego aiutatemi subito!!!

[maxmalici]

ciaooo

allora... ti crei un pulsante.....

sul click del pulsante ti carichi tutti i record dalla tabella....

poi ti metti sul primo elemento del Recordset e per ogni elemento
lo passi alla routine VBA che ne controlla la correttezza
se è errato lo visualizzi ...altrimenti no........

dico bene????
ciao max

[twing]

Mi fai un esempio di codice? Per favore... sono disperata!

[maxmalici]

difficile fare esempi di codice.....quando si hanno poche info....

comunque sul click del pulsante fai....

conn.open
strSQL = "select codfiscale from mia tabella"
rs.open conn,strSQL,3,2

if not (rs.BOF and rs.EOF) then
do while not rs.EOF
call CONTROLLACODFISCALE(rs(o),esito)
if esito = "OK" then......
rs.movenext
loop
end if

...
etc

che ne pensi????

[twing]

Grazie!
Ci provo...

[twing]

Qualcuno sa dirmi che errore c'è in questo codice, mi idce tipo non corrispondente nella riga:

Set rst = dbs.OpenRecordset(strSQL)

ma non capisco perchè!!!




Private Sub CmdCodFiscale_Click()
On Error GoTo Err_CmdCodFiscale_Click
Dim strSQL As String
Dim dbs As Database
Dim rst As Recordset

strSQL = "Select NumeroDomanda, CognomeRichiedente, NomeRichiedente, SessoRichiedente, LuogoNascRichiedente, DataNascRichiedente, CodFiscRichiedente From Dati"

Set dbs = CurrentDb
Set rst = dbs.OpenRecordset(strSQL)
Do While Not rst.EOF
If Not CheckCodiceFiscale(rst("CodFiscRichiedente"), rst("NomeRichiedente"), rst("CognomeRichiedente"), rst("DataNascRichiedente"), rst("SessoRichiedente"), rst("LuogoNascRichiedente")) Then
MsgBox rst("NumeroDomanda")

End If
rst.MoveNext
Loop

Screen.PreviousControl.SetFocus
DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70

Exit_CmdCodFiscale_Click:
Exit Sub

Err_CmdCodFiscale_Click:
MsgBox Err.Description & Err.Number
Resume Exit_CmdCodFiscale_Click

End Sub

[twing]

Ok, ho risolto il problema del recordset, ho cambiato proprio modo, adesso uso ADoDB e funziona.
Il problema adesso è un altro, come faccio a popolare una datagrid con i risultati della query, in VBA sempre dentro Access???

Grazie!!!