Caros Amigos,
Onde está esse erro?
'-------------------------------------
Erro gerado: 3075. Erro de sintaxe (operador faltando) na expressão de consulta 'NomeSolicitante = Helena Maria da Silva'.
'-------------------------------------
Private Sub LST_PESQ_DblClick(Cancel As Integer)
'On Error GoTo trata_erro
Set db = CurrentDb
sSQL = "SELECT "
sSQL = sSQL & " Colaborador, NomeSolicitante, DataNascimento, Bairro, Cidade"
sSQL = sSQL & " , TituloZona, FoneZap, FoneTrabalho"
sSQL = sSQL & " , Endereço"
sSQL = sSQL & " FROM TbMala"
sSQL = sSQL & " WHERE NomeSolicitante = " & Me!LST_PESQ.Column(1)
Set rst = db.OpenRecordset(sSQL, dbOpenSnapshot)
DoCmd.Close acForm, "Frm_RegistroPesq Dia DD"
If Not rst.EOF Then
Colaborador = rst("Combinação43")
NomeSolicitante = rst("NomeSolicitante")
Else
Call LimpaCampos(Me)
End If
rst.Close
Set rst = Nothing
Exit Sub
trata_erro:
MsgBox "Erro gerado: " & Err.Number & " - " & Err.Description & "", vbCritical, "Erro"
Exit Sub
End Sub
Desde já, muito grato!
Onde está esse erro?
'-------------------------------------
Erro gerado: 3075. Erro de sintaxe (operador faltando) na expressão de consulta 'NomeSolicitante = Helena Maria da Silva'.
'-------------------------------------
Private Sub LST_PESQ_DblClick(Cancel As Integer)
'On Error GoTo trata_erro
Set db = CurrentDb
sSQL = "SELECT "
sSQL = sSQL & " Colaborador, NomeSolicitante, DataNascimento, Bairro, Cidade"
sSQL = sSQL & " , TituloZona, FoneZap, FoneTrabalho"
sSQL = sSQL & " , Endereço"
sSQL = sSQL & " FROM TbMala"
sSQL = sSQL & " WHERE NomeSolicitante = " & Me!LST_PESQ.Column(1)
Set rst = db.OpenRecordset(sSQL, dbOpenSnapshot)
DoCmd.Close acForm, "Frm_RegistroPesq Dia DD"
If Not rst.EOF Then
Colaborador = rst("Combinação43")
NomeSolicitante = rst("NomeSolicitante")
Else
Call LimpaCampos(Me)
End If
rst.Close
Set rst = Nothing
Exit Sub
trata_erro:
MsgBox "Erro gerado: " & Err.Number & " - " & Err.Description & "", vbCritical, "Erro"
Exit Sub
End Sub
Desde já, muito grato!