Questo sito utilizza cookies, anche di terze parti, per mostrare pubblicità e servizi in linea con il tuo account. Leggi l'informativa sui cookies.
Username: Password: oppure
Visual Basic 6 - Variabile globale che ritorna errore
Forum - Visual Basic 6 - Variabile globale che ritorna errore

Avatar
Iohoilpotere (Ex-Member)
Pro


Messaggi: 80
Iscritto: 13/09/2009

Segnala al moderatore
Postato alle 17:12
Giovedì, 18/11/2010
Oggi sono alle prese con le variabili globali che, se spostate da un progetto all'altro, ritornano l'errore di runtime 91: variabile di oggetto o variabile del blocco with non impostata. Ho cercato su google questo errore ma non ho ottenuto altro che scoprire che è un errore comune e che si trova un po ovunque. Dunque, posto il codice ma sarebbe superfluo in quanto lo stesso IDENTICO codice, su un altro progetto (con gli stessi identici moduli) funziona.

Codice sorgente - presumibilmente VB.NET

  1. Function Get_OK(ByVal BD As String) As String
  2. Dim rs1, rs2 As Recordset
  3. Dim ssql, msg  As String
  4.  
  5. msg = ""
  6. ssql = "Select QRY, WARNING from TZ_CONTROLS where " & BD & " = true"
  7. Set rs1 = DB.OpenRecordset(ssql)
  8. While Not rs1.EOF
  9.     ssql = "select count(*) as Cnt from " & rs1("QRY")
  10.     Set rs2 = DB.OpenRecordset(ssql)
  11.     If CInt(rs2("Cnt")) > 0 Then
  12.         msg = msg & rs2("Cnt") & " Record " & rs1("Warning") & vbCrLf
  13.     End If
  14.     rs2.Close
  15.     rs1.MoveNext
  16. Wend
  17. Get_OK = msg
  18.  
  19. End Function



Il problema si verifica su:

Set rs1 = DB.OpenRecordset(ssql)

La variabile DB di tipo database viene dichiarata in un modulo così:

Codice sorgente - presumibilmente Visual Basic 6

  1. Global DB As Database



e successivamente, durante l'esecuzione del codice:

Codice sorgente - presumibilmente Visual Basic 6

  1. Set DB = CurrentDb



Tutto questo in moduli VB in Access.

Qualcuno saprebbe darmi una mano?

PM