[VBA/ACCESS] Colorare casella di testo in base al valore del campo ID

[pagineasp2]

in questo codice mi dà errore sulla If rs.Fields("ID").Value = 2 Then
in pratica dovrei fare questo:
ad un determianto "id" deve cambiare di colore la casella di testo.
spero di essere stato chairo.
Dim rs As Object
Dim stSql As String
Dim intOption As Integer
Dim fld As Field


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

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


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


rs.MoveNext
Wend

rs.Close
Set rs = Nothing
Set con = Nothing

[alka]

Correggo il titolo io per amore della pace, altrimenti oggi non ce la possiamo fare.
Buona prosecuzione...

[oregon]

Originariamente inviato da alka
... altrimenti oggi non ce la possiamo fare.

D'accordo ... c'e' anche caldo ... pero' ...

una frase come questa

"mi dà errore"

non aiuta affatto a capire cosa succede ...

[pagineasp2]

scusate ma che titolo devo mettere

[oregon]

Originariamente inviato da pagineasp2
scusate ma che titolo devo mettere

Il titolo e' gia' stato inserito dal moderatore ... non te ne sei accorto?

Piuttosto, rispondi alla domanda ... quale errore ti da' di preciso?

[pagineasp2]

di blocca su questa if
If rs.Fields("ID").Value = 2 Then
mi dice: item cannot be found in the collection corresponding to the requested name or ordinal

[oregon]

Quindi il campo non si chiama ID ...

Se non sai come si chiama il campo del tuo db, andiamo bene ...

[pagineasp2]

scusami tanto

While (Not (rs.EOF))
If rs.Fields("IDdirittocivile").Value = 2 Then
Me.MATERIA_Etichetta.BackColor = "red"
MsgBox (ok)
End If

adesso mi dice tipo non corrispondente (If rs.Fields("IDdirittocivile").Value = 2 Then
)

[oregon]

Se ti dice "tipo non corrispondente" ci sara' un motivo, no?

IDdirittocivile e' un numero o una stringa?

Se e' una stringa, allora

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

[pagineasp2]

scusa ti chiedo un ultima cosa, adesso sembra funzionare ma invece di colorarmi
di rosso solo la casella di testo con l'IDdirittocivile uguale a 2 mi colora tutto, come mai?
Dim con As Object
Dim rs As Object
Dim stSql As String
Dim intOption As Integer
Dim fld As Field


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

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


While (Not (rs.EOF))
If rs.Fields("IDdirittocivile").Value = "2" Then
Me.MATERIA.BackColor = 8388863

MsgBox (ok)
End If


rs.MoveNext
Wend

rs.Close
Set rs = Nothing
Set con = Nothing

End Sub