rackaef
16-03-2012, 11:15
salve a tutti, per motivi di lavoro utilizzo un database access da me realizzato. Questo database era stato creato su un vecchio computer con windows 2000. Adesso mi hanno sostituito il pc con un "nuovissimo" windows xp e contestualmente alla ricerca in una casella di record mi appare un errore di compilazione ("impossibile trovare il progetto o la libreria") su questa sezione:
---inizio sezione----
Private Sub Cerca_Click()
' In Base allo stato delle caselle per la ricerca viene '
' impostato il RowSource della List alla query adatta '
If Not IsNull(Me.id) Then Me.List.RowSource = "Cerca_id"
If Not IsNull(Me.Ditta) Then Me.List.RowSource = "Cerca_Ditta"
If Not IsNull(Me.Loca) Then Me.List.RowSource = "Cerca_Località"
If Not IsNull(Me.Prov) Then Me.List.RowSource = "Cerca_Prov"
' Se non viene trovato nulla allora appare un MsgBox '
If Me.List.ListCount = 0 Then
strMsg = MsgBox("Nessun record trovato !", vbExclamation, "Attenzione...")
End If
--fine sezione---
questo codice funzionava sul vecchio pc. Non sono pratico di visual basic. quando si apre la schermata VB si evidenzia "strMsg" .
Come lo risolvo?
---inizio sezione----
Private Sub Cerca_Click()
' In Base allo stato delle caselle per la ricerca viene '
' impostato il RowSource della List alla query adatta '
If Not IsNull(Me.id) Then Me.List.RowSource = "Cerca_id"
If Not IsNull(Me.Ditta) Then Me.List.RowSource = "Cerca_Ditta"
If Not IsNull(Me.Loca) Then Me.List.RowSource = "Cerca_Località"
If Not IsNull(Me.Prov) Then Me.List.RowSource = "Cerca_Prov"
' Se non viene trovato nulla allora appare un MsgBox '
If Me.List.ListCount = 0 Then
strMsg = MsgBox("Nessun record trovato !", vbExclamation, "Attenzione...")
End If
--fine sezione---
questo codice funzionava sul vecchio pc. Non sono pratico di visual basic. quando si apre la schermata VB si evidenzia "strMsg" .
Come lo risolvo?