Recordset e Parametri insufficienti previsto 1

[fransyk]

RAgazzi ho un problema.

Ho una tabella ABBONATO(codice , nome) e una maschera con una textbox dove bisogna inserire il codice e un pulsante.

Al click del pulsante vorrei che il sistema controllasse se nel db esiste gia un abbonato con lo stesso codice allora ho provato cosi:

Dim rs as DAO.Recordset

set rs = CurrentDb.OpenRecordset("SELECT codice FROM abbonato WHERE abbonato.Codice = Me.Codicet")

e poi gestisto il rs estratto.

Quando lo provo mi esce una msgbox con scritto "Parametri insufficienti. Previsto 1"

Aiuto :-(

[oregon]

set rs = CurrentDb.OpenRecordset("SELECT codice FROM abbonato WHERE abbonato.Codice = " & Val(Codicet.Text))

[fransyk]

Ti ringrazio, ho fatto degli aggiustamenti e funziona:

Set rs = CurrentDb.OpenRecordset("SELECT * FROM ABBONATO WHERE ABBONATO.Codice= '" & Me.Codice.Value & "'")


Ora come faccio a verificare se il record che mi ha restituito è nullo oppure no? Ho provato

if isNull(rs("Codice") then

msgbox "Nullo"

else

msgbox "non nulla"

end if


Mi fa sempre sull'else e mai sul primo anche se il rs è nullo

[fransyk]

Mi rispondo da solo ho fatto cosi:

if (rs.Recordcount = 0) then

Msgbox

else

msgbox

end if

[oregon]

Se il contenuto del campo e' nullo o il recordset non contiene record, sono due concetti diversi.

La IsNull fa la prima operazione, con la RecordCount esegui la seconda ...

[fransyk]

Per "nullo" intendo se il recordset non mi trova quello che cerco allora per me è nullo.

In pratica il recordset dovrebbe verificare se quello che ho inserito nella textbox esiste gia in tabella ABBONATO e se no lo inserisco..

[oregon]

In questo caso e' meglio parlare di "recordset vuoto" ...