|
Ciao a tutti!
non riesco a capire cosa succede
Dim DBCorrente As DAO.Database
Dim Tabeinc As DAO.Recordset
Dim Tabe1 As DAO.Recordset
Dim chiave1 As String
Dim chiave2 As String
Dim depzona As String
Dim Fine1 As Boolean
Dim Fine2 As Boolean
Dim inc1 As String
Dim inc2 As String
Dim inc3 As String
Dim inc4 As String
Dim inc5 As String
Dim tiporapporto As String
Set DBCorrente = CurrentDb
' si apre la tabella tipo rapporto
Set Tabe1 = DBCorrente.OpenRecordset("Zone rappresentate", dbOpenDynaset)
Set Tabe2 = DBCorrente.OpenRecordset("Zone rappresentate", dbOpenDynaset)
Set Tabeinc = DBCorrente.OpenRecordset("Incompatibilitàrapportiscuola", dbOpenDynaset)
'Posizionamoci sul record di incompatibilità
'siamo posizionati sul primo record
tiporapporto = Me![Tipo rapporto]
Tabeinc.FindFirst "[Codrapp]" = tiporapporto
If Tabeinc.NoMatch Then
'NoMatch è True se non c'è stata già alcuna scrittura
MsgBox "Parametri non trovati"
Else
MsgBox "Parametri trovati!!!"
inc1 = Tabinc.Fields("Inc1")
inc2 = Tabinc.Fields("Inc2")
inc3 = Tabinc.Fields("Inc3")
inc4 = Tabinc.Fields("Inc4")
inc5 = Tabinc.Fields("Inc5")
End If
mi dice sempre "il modulo di gestione...bla bla bla non riconosce "Falso" come nome o espressione valida errore di run time 3070
dove sbaglio?
grazie!!!!
| 
