Newsgroup: it.comp.appl.access
Titolo: utilizzo di recorset

Ciao a tutti!!
ho un problema e non riesco a trovare una soluzione.
ho caricato il segente codice:
Private Sub Gruppo_NotInList(NewData As String, Response As Integer)
   Dim IntNuovo As Integer, strTitolo As String
   Dim IntFinestraMsg As Integer, strMsg As String
   strTitolo = "Gruppo digitato non in elenco"
   strMsg = "Vuoi aggiungere" & Chr(13) & Chr(10) & NewData & Chr(13) &
Chr(10) & "in elenco?"
   IntFinestraMsg = vbYesNo + vbQuestion
   IntNuovo = MsgBox(strMsg, IntFinestraMsg, strTitolo)
   If IntNuovo = vbYes Then
       Dim miorst As Recordset
       Set miorst = CurrentDb.OpenRecordset("Gruppo")
       miorst.AddNew
       miorst!Descrizione = NewData
       Me![Gruppo] = miorst![IDGruppo]
       miorst.Update
       miorst.Close
       strTitolo = "Inserimento nuovo Gruppo in elenco"
       strMsg = "Inserimento in elenco di" & Chr(13) & Chr(10) & NewData &
Chr(13) & Chr(10) & "con successo"
       IntFinestraMsg = vbOKOnly + vbExclamation
       IntNuovo = MsgBox(strMsg, IntFinestraMsg, strTitolo)
       Response = acDataErrAdded
       Me![Gruppo].Requery
   Else
       strTitolo = "Nome del Gruppo errato"
       strMsg = NewData & " non è in elenco." & Chr(13) & Chr(10) &
"Seleziona un Gruppo dall'elenco"
       IntFinestraMsg = vbOKOnly + vbExclamation
       IntNuovo = MsgBox(strMsg, IntFinestraMsg, strTitolo)
       Response = acDataErrContinue
       Me![Gruppo].Undo
   End If
End Sub
PROBLEMA : mi si presenta questo errore
errore di run_time 13
sulla riga di comando        Set miorst = CurrentDb.OpenRecordset("Gruppo")
Ho cercato di capire dalla guida e da altri esempi come o dove dichiarare
l'utilizzo del recordset o casa altro fare per far funzionare i codici che
funzionano perfettamente in altri database.
non ci sono riuscito (troppo imbranato ??)
se qualcuno può aiutarmi .
GRAZIE MILLE

 ...
Error 13 Type Mismatch Error on DAO OpenRecordset Method
http://support.microsoft.com/search/preview.aspx?scid=kb;en-us;Q181542
--
HTH
Karl
*********
Access-FAQ (tedesco): 
http://www.donkarl.com

 wrote in message
HSab9.271$c66...@tornado.fastwebnet.it...

Il codice che hai postato fa riferimento alle librerie DAO., e se usi Access
97 non dovresti avere problemi, dette librerie sono di default.
Se tu invece usi Access 2000 oppure Access XP, prova ad aggiungere
esplicitamente ai riferimenti del tuo database i riferimenti alle librerie
DAO, avendo cura che nell'elenco dei riferimenti compaiano prima dei
riferimenti alle librerie ADO.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

 prima dei riferimenti alle librerie ADO.
Ciao Roberto,
Invece di solo fidarsi della posizione del riferimento è meglio cosa in
inglese si chiama "disambiguate" = scrivere anche la biblioteca:
Dim rs As DAO.Recordset
o
Dim rs As ADODB.Recordset
ecc.
Cosi la posizione del riferimento non importa e il codice è un po
più veloce perché Access non debbe cercare nelle biblioteche.
-- 
cu


 *********
Ciao Karl,
giustissima la tua osservazione!!
Ciao
Roberto


il problema è anche il mio, quella riga dove va inserita? purtroppo non ho
molta familiarità con le righe di codice,
sono agli inzi.! Un aiutino?
Ciao 7.4

 wrote in message
ako9mo$e7u$1...@lacerta.tiscalinet.it...

Nella definizione della variabile Recordset.
Facendo riferimento alla routine VBA di cui parla Roberto, devi sostituire
la riga di codice:
Dim miorst As Recordset
con questa
Dim miorst As DAO.Recordset
Resta il fatto che devi aggiungere ai riferimenti del tuo database i
riferimenti alle librerie DAO.


 ha scritto nel messaggio
news:TT%b9.127640$lu5.3...@twister1.libero.it...

ahh ecco!!!! aggiungere ai riferimenti del  database i
 riferimenti alle librerie DAO.  :-(((((

  riferimenti alle librerie DAO.  :-(((((
Funge!!! Bene.