Boa tarde!
Tenho um problema com uma consulta no Access via formulário.
O Formulário é do vba do Excel, que se conecta ao banco de dados.
Segue abaixo o código completo.
Esse é o código do botão. Ao clicar ele valida qual dos dois botões está marcado (valor true). Se nenhum dos dois estiver selecionado ele mostra mensagem de erro.
Se opção de BP está marcada, ele chama a função e passa para ela o numero do BP digitado pelo usuário no input box. O mesmo acontece caso seja selecionado o CPF.
Private Sub btn_consulta_Click()
Dim BP As String
Dim cpf As String
BP = controlectform.nmbpbox.Value
cpf = controlectform.nmcpfbox.Value
If controlectform.optbp.Value = True Then
Call SelectNome("controle", "NOME", "BP")
Exit Sub
ElseIf controlectform.optcpf.Value = True Then
Call SelectNome("controle", "NOME", "cpf")
Exit Sub
Else
MsgBox "Selecione a opção de consulta!", vbCritical
End If
End Sub
A função recebe os parâmetros e monta a query de pesquisa no banco de dados através da variável sql. É nela que está o where. Mas ele não funciona.
Function SelectNome(Tabela As String, Campo As String, Criterios As String) As Variant
Dim NOMEDB As Variant
Dim sql As String
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cn = New ADODB.Connection
cn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source="_
& enderecoDB & ";Jet OLEDB:Database"
cn.Open
Set rs = New ADODB.Recordset
sql = "SELECT " & Tabela & "." & Campo & " From " & Tabela & " where " & Criterios & ";"
rs.Open sql, cn
If Not rs.EOF Then
Do While Not rs.EOF
NOMEDB = rs(0)
rs.MoveNext
Loop
End If
cn.Close
controlectform.nomecolaboradorbox.Value = NOMEDB
End Function
Ou seja, eu chamo a function:
Call SelectNome()
E passo os argumentos seguindo a ordem, Tabela, Campo, Critério. Nesse caso:
Call SelectNome("controle", "NOME", "BP")
O meu critério é o Where BP.
While
vai percorrer todos os registros da sua consulta e só quando chegar ao final da tabela (EOF
) oloop
será encerrado e depois o valor de NOMEDB copiado para o controle. O problema está nowhere
que não está funcionando? É isto?where
para o entendermos.