access

[pagineasp2]

salve ho un piccolo problema con access:

Dim con As Object
Dim rs As Object
Dim stSql As String
Dim intOption As Integer


Set con = Application.CurrentProject.Connection
stSql = "SELECT * FROM edit1"

Set rs = CreateObject("ADODB.Recordset")
rs.Open stSql, con, 1 ' 1 = adOpenKeyset


If (rs.EOF) Then


While (Not (rs.EOF))

If ID = 2 Then
Me.MATERIA_Etichetta.BackColor = "red"
MsgBox (ok)
End If


rs.MoveNext
Wend
End If

mi spiego quello che voglio fare:
ad un determianto "id" mi deve cambiare di colore la casella di testo, ma non mi riesce.
garzie

[oregon]

Presumo che ID sia un campo della tabella Edit1 e quindi dovresti scrivere

If rs.Fields("ID").Value = 2 Then




P.S. Il titolo del thread non è adeguato ... dai un'occhiata al regolamento ...

[pagineasp2]

While (Not (rs.EOF))

If rs.Fields("ID").Value = 2 Then
Me.MATERIA_Etichetta.BackColor = "red"
MsgBox (ok)
End If


rs.MoveNext
Wend

ho provato ma non funziona comunque

[oregon]

Certo ... se scrivi

If (rs.EOF) Then
While (Not (rs.EOF))

che sono due controlli contraddittori, come fa a funzionare?

[pagineasp2]

la if già l'avevo tolta ma non funziona cmq.
grazie

[oregon]

Allora mostra il codice che stai *esattamente* usando altrimenti non fai altro che perdere tempo tu e farlo perdere agli altri ...

A questo punto, bisognerebbe capire se effettivamente c'e' un record con ID = 2 ... prova a fare un po' di debug ...

[alka]

Chiudo anche questa, visto che il Regolamento di quest'area è già stato ignorato più volte: si veda qui e qui.