[VB] cercare in tutte le tabelle

[ddies]

Hai provato quello che ti ho scritto?

[Francesco_76]

si ma non va dice

Errore di run-time '3079'
"il riferimento al campo specificato 'codice' potrebbe essere relativo a piu tabelle elencate nella proposizione FROM dell'istruzione SQL

[xegallo]

e provare ad aprire un recordset
"select * form tab1,tab2,tab3"

poi filtrare i risultati?

[Francesco_76]

scusa ma non è come ho fatto io??

[xegallo]

Originariamente inviato da Francesco_76
scusa ma non è come ho fatto io??

io dico di aprirlo e poi
sCriteria = "tab1.codice ='pippo' OR tab2.codice ..."
rec.filter = sCriteria

[Francesco_76]

scusami ma non so come applicare il tuo suggerimento puoi farmi un'esempio sul mio codice

Dim sqlstring As String
Dim db1 As Database
Dim rs1 As Recordset
sqlstring = "select * from tabella1, tabella2 where codice='" & codice & "' AND tipo='" & List1 & "'"
Set db1 = OpenDatabase(App.Path & "\database.mdb", False, False)
Set rs1 = db1.OpenRecordset(sqlstring)
Set Data2.Recordset = rs1
If Not Data2.Recordset.EOF Then
Do While Not Data2.Recordset.EOF
cod = (Data2.Recordset.Fields("codice"))

Data2.Recordset.MoveNext
Loop
Else
MsgBox "Nessun record"
End If

rs1.Close

grazie

[xegallo]

Originariamente inviato da Francesco_76
scusami ma non so come applicare il tuo suggerimento puoi farmi un'esempio sul mio codice

Dim sqlstring As String
Dim db1 As Database
Dim rs1 As Recordset
sqlstring = "select * from tabella1, tabella2 where codice='" & codice & "' AND tipo='" & List1 & "'"
Set db1 = OpenDatabase(App.Path & "\database.mdb", False, False)
Set rs1 = db1.OpenRecordset(sqlstring)
Set Data2.Recordset = rs1
If Not Data2.Recordset.EOF Then
Do While Not Data2.Recordset.EOF
cod = (Data2.Recordset.Fields("codice"))

Data2.Recordset.MoveNext
Loop
Else
MsgBox "Nessun record"
End If

rs1.Close

grazie

potevi dirlo che usavi Dao ormai lo usi solo tu

[Francesco_76]

Originariamente inviato da xegallo

potevi dirlo che usavi Dao ormai lo usi solo tu

[Francesco_76]

Non ci riesco
aiuto per favore

[optime]

hai letto il messaggio che ti riporta vb? ti dice che non sa quale campo codice prendere: se quello di tabella1 o quello di tabella2. dato che lui e' per definizione stupido (e quando fa l'intelligente sono guai...) devi dirglielo tu. tutto qui.