[VB] aiuto con if

[teolo]

:master: L'errore può essere dovuto alla dichiarazione di idText.
Mi spiego, se il campo ID della tabella nel database è un 'intero lungo' allora la variabile idText di vb devi impostarla come Long.
Se invece il campo ID è una stringa allora idText deve essere dichiarato come stringa e la if deve essere riscritta in questo modo:
if idText <> "0" then
.....
Prova a vedere se funziona così

ciao

[debbelandia]

si infatti è quello che cercavo di capire!!

[Francesco_76]

Facendo cosi mi dato un'altro errore però credo che quello di prima adesso va

Private Sub Form_Load()
Dim idText As String
Dim sqlstring As String
Dim Db As Database
Dim Rs As Recordset

If idText <> "0" Then
sqlstring = "select * from [Anagrafico Incarico] where ID like '*" & Replace(idText, "'", "''") & "*'"  'la funzione replace per non avere errori se inserisci apici nella stringa di ricerca
Set Db = OpenDatabase("C:\Progetto Immobiliare\database.mdb")
Set Rs = Db.OpenRecordset(sqlstring)
Set Data1.Recordset = Rs
If Not Data1.Recordset.EOF Then
Do While Not Data1.Recordset.EOF
Nome = (Data1.Recordset.Fields("ID"))
Data1.Recordset.MoveNext
Loop
Else
MsgBox "Nessun record"
End If
End If
End Sub

mi ha dato l'errore sulla riga che ho evidenziato in nero
e mi dice "necessario Oggetto"

quel codice cosi com'e funziona

Grazie mille

[debbelandia]

Data1. esiste?

[Francesco_76]

:metallica :metallica

vai funziona

Grazie mille

giustamente non avevo creato l'oggetto "Data1"

Grazie ancora



:mavieni:

[Francesco_76]

ops..

mi da sempre l'ultimo record

Perchè??????

Private Sub Form_Load()
Dim idText As String
Dim sqlstring As String
Dim Db As Database
Dim Rs As Recordset

If idText <> "0" Then
sqlstring = "select * from [Anagrafico Incarico] where ID like '*" & Replace(idText, "'", "''") & "*'"  'la funzione replace per non avere errori se inserisci apici nella stringa di ricerca
Set Db = OpenDatabase("C:\Progetto Immobiliare\database.mdb")
Set Rs = Db.OpenRecordset(sqlstring)
Set Data1.Recordset = Rs
If Not Data1.Recordset.EOF Then
Do While Not Data1.Recordset.EOF
Nome = (Data1.Recordset.Fields("Nome")) & (Data1.Recordset.Fields("Cognome"))
Data1.Recordset.MoveNext
Loop
Else
MsgBox "Nessun record"
End If
End If
End Sub

[optime]

usi una select like (che ti restituira' tutti i records che contengono la stringa idText) e poi cicli fino all'ultimo... cosa ti aspetti?

[Francesco_76]

:adhone: (non sono molto pratico)

come dovrei fare......

[Genius7115]

Vi faccio rilevare un paio di incongruenze

1) se hai già un oggetto recordset RS perchè devi creare l'oggetto data1? non serve e rubi memoria al sistema inutilmente.

2) scommetto che il modo di passare la IDTEXT è impostando questa come public o come global. E' sbagliatissimo studiati un pò le property get e let che sono molto più utili. Può sembrare inutile ma alla fine vedrai che non è cosi.

Ciao

[Francesco_76]

Grazie mille, piano piano imparerò tutto....

Mi sapresti dare una mano in merito all'errore che mi ha segnalato supersaibal??

Grazie mille

[supersaibal]Originariamente inviato da optime
usi una select like (che ti restituira' tutti i records che contengono la stringa idText) e poi cicli fino all'ultimo... cosa ti aspetti? [/supersaibal]