Estou criando uma "Form" de consulta no meu programa, e não estou conseguindo carregar os resultados no DBlist, vou passar o código, se vcs puderem me dar uma força agradeço!!. Obrigado.
Código:
Dim ws As Workspace
Dim DB As Database
Dim tblcad As Recordset
Private Sub Command1_Click()
Unload frmBusca
End Sub
Private Sub DBList1_Click()
LoadRecs DBList1.BoundText
End Sub
Private Sub Form_Load()
Set DB = DBEngine.Workspaces(0).OpenDatabase(App.Path & "cadfun.mdb")
Set tblcad = DB.OpenRecordset("tblcad", dbOpenTable)
tblcad.Index = "IndCod"
tblcad.Index = "Nome"
Data1.RecordSource = "SELECT codigo,nome,endereco * FROM tblcad ORDER BY nome"
Set tblcad = Data1.Recordset
DBList1.ListField = "Nome"
End Sub
Private Sub Text1_Change()
Dim SQL As String
Dim criterio As String
criterio = Chr$(39) & Text1.Text & "*" & Chr(39)
SQL = "SELECT codigo,nome,endereço * FROM tblcad WHERE nome LIKE " & criterio
Data1.RecordSource = SQL
Data1.Refresh
End Sub
Private Function LoadRecs()
txtc.Text = tblcad!codigo
txtn.Text = tblcad!nome
txte.Text = tblcad!endereço
End Function
