Errore su OpenRecorset

Question

Buon pomeriggio,

ho provato in diverse maniere ma mi restituisce sempre il seguente errore "Parametri insufficienti. Previsto 1"

Sono nella maschera "Gestione_alunni" e con il pulsante di comando voglio controllare nella tabella "Corsofreq" se l'alunno è già iscritto o meno ad un corso. Se già iscritto apro la maschera "Assegna_corso" per dare la possibilità di modificare il corso altrimenti apro la stessa maschera passando solo il codice fiscale dell'alunno.

Un grazie anticipato a chi mi può dare un suggerimento.

Roberto

---

Private Sub Cmdsc_DblClick(Cancel As Integer)

Dim Db As DAO.Database, Rs As DAO.Recordset, Cfis As String

Set Db = CurrentDb

'metto il cod.fiscale dell'alunno nella variabile

Cfis = Forms!Gestione_alunni!Al_cfis

'inserisco i dati per la query dove seleziono tutti i campi della tabella "Corsofreq" dove il cod.fiscale della tabella deve essere uguale a

' quello prelevato dalla maschera "Gestione_alunni

Set Rs = Db.OpenRecordset("SELECT * from Corsofreq where Cf_cfal =" & Cfis)

'Controllo se ha trovato l'alunno già iscritto

    If Rs.EOF And Rs.BOF Then

        MsgBox "Alunno senza corso"

        DoCmd.OpenForm "Assegna_corso"

    GoTo Fine

    End If

DoCmd.OpenForm "Assegna_corso"

'Metto nel campo cod.fiscale della maschera il cod.fiscale dell'alunno

Forms!Assegna_corso!Cf_cfal = Cfis

Fine:

End Sub

---

Answer 1

Ciao,

il codice fiscale è una stringa quindi devi racchiuderla tra virgolette, prova con:

Set Rs = Db.OpenRecordset("SELECT * from Corsofreq where Cf_cfal ='" & Cfis & "'")

ciao Mimmo

Answer 2

ciao Roberto,

vedi qui :http://www.donkarl.com/it?FAQ6.4

Evita lo spaghetti code è molto brutto, ci sarebbero altre cose da rivedere ma intanto vedi se il link che ti ho indicato ti è di aiuto.

Ciao, Sandro.