Click to rate this post!
[Total: 1 Average: 4]
Il seguente esempio permette di capire come prendere i valori del DB e come assegnarli in variabili.
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
Per utilizzare il recordset occorre dal VBA instanziare l’oggetto microsoft DAO
Subscribe
Login
0 Comments