Boa tarde, estou fazendo uma consulta SQL, logo ao abrir o formulário todavia está sendo exibida a seguinte mensagem: "Parâmetros insuficientes. Eram esperados 1.", já tentei de diversas formas mais não estou conseguindo, poderiam me auxiliar?
Obrigado.
- Código:
Private Sub Form_Open(Cancel As Integer)
DoCmd.SetWarnings (False)
Dim rs As DAO.Recordset
Dim db As Database
Dim sSql As String
Dim iContador As Integer
Dim identificacao As Integer
If Me.txt_Usuario.Value = DLookup("[RACF]", "[Tbl_Funcionario]", "[RACF]= '" & Me.txt_Usuario & "'") Then
identificacao = DLookup("[ITAUAGENCIAS]", "[Tbl_Funcionario]", "[RACF] = '" & Me.txt_Usuario & "'")
Select Case identificacao
Case True
sSql = "SELECT CHAVE"
sSql = sSql & " FROM Tbl_Analise"
sSql = sSql & " WHERE ANALISE = FALSE"
sSql = sSql & " AND USUARIO IS NULL AND SEGMENTO = [ITAU AGENCIAS] ORDER BY DATAPRIMEIROENVIO"
Set rs = CurrentDb.OpenRecordset(sSql)
Obrigado.