Onde está errado

Favor me ajudem!!!

Private Sub B_OK_Click()
If IsNull(Ticket) Or IsNull(Hr_Inicio) Or IsNull(Hr_Previsao) Then
Else
Dim DB As Database, Rs, Rs1 As Recordset
Set DB = CurrentDb()
Set Rs = DB.OpenRecordset("TB_Master_Outages")
Rs.AddNew
Rs("Cod_Solic") = COD_SOLIC
Rs("Cod_Imovel") = Cod_Imovel
Rs("Endereco") = ENDERECO
Rs("Complemento") = Complemento
Rs("EPO") = EPO
Rs("Cod_Manut") = Cod_Manut
Rs("Obs_Cliente") = Obs_Cliente
Rs("Celula") = Celula
Rs("Node_Ativ") = Node_Ativ
Rs("Tp_Origem") = TP_ORIGEM
Rs("Ticket") = Ticket
Rs("Hr_Inicio") = Hr_Inicio
Rs("Hr_Previsao") = Hr_Previsao
Rs("Tp_Servico") = TP_CONST
Rs("Dt_Recebido") = Format([Hr_Inicio], "dd/mm/yy")
Rs("Dt_Envio_Lider") = Now
Rs.Update

Set Rs1 = DB.OpenRecordset("SELECT Consulta1.Distrito, Consulta1.HUB, Consulta1.Base_RE, Consulta1.Email FROM Consulta1 WHERE (((Consulta1.Distrito)=Forms!Fr_Outages_Cadastro!Distrito));")

Dim email As New Outlook.Application
Dim MAIL As MailItem
Set MAIL = email.CreateItem(olMailItem)
MAIL.To = Rs1!email
MAIL.Subject = "MDU EM RECONST / MANUT - OUTAGE - " & Date
MAIL.Body = "ENDEREÇO: " & ENDERECO & " " & Complemento & vbNewLine & "NODE: " & Distrito & vbNewLine & "CÉLULA: " & Celula & vbNewLine & "HR_INICIO: " & Hr_Inicio & vbNewLine & "HR_PREVISAO: " & Hr_Previsao
MAIL.Display

Set Rs = Nothing
Set DB = Nothing
Set Rs1 = Nothing
Set DB1 = Nothing
DoCmd.Close
Forms!Fr_Outages_Cadastro_TB!Sub_Outages_Andamento.Requery
End If
End Sub

quote:

If IsNull(Ticket) Or IsNull(Hr_Inicio) Or IsNull(Hr_Previsao) Then
Else

Onde está a instrução daqui ?

Ticket, Hr_inicio, Hr_previsao sao campos que estão no formulario e nao está na tabela

Erro 3061: Too few parameters. Expected '|'. EXTENDED

Pode ser algum problema na consulta OrigemDoRelatório principalmente se essa tiver parâmetros.

Nao sei se é problema do RecordSet.

Fiz o teste no formulario, somente a consulta funciona perfeitamente e no recordset ou runsql nao funcionam direito só aparece erro, onde posso enxergar o erro?

quote:

Erro 3061: Too few parameters. Expected '|'. EXTENDED

O que a msg de erro diz é que estão faltando parâmetros.

Verique tanto na consulta quanto no formulário.

Olá!!!

Esse erro ocorre em duas situações:
1 - Uso incorreto de apóstrofos em parâmetros tipo texto;
2 - Quando uma instrução sql é interpretada, o access tenta encontrar os campos e tabelas. Se algum nome que for diferente, cod_cli ao inves de codcli por exemplo, o access assume isso como parâmetro.
Sugiro que você verifique todos os nomes digitados, e todas as aspas utilizadas.

Espero ter ajudado,.

Sucesso,

quote:

Erro 3061: Too few parameters. Expected '|'. EXTENDED
O que a msg de erro diz é que estão faltando parâmetros.
Verique tanto na consulta quanto no formulário.

Como foi dito antes: verifique tudo que pode estar ocorrendo com parâmetros utilizados.

Set Rs1 = DB.OpenRecordset("SELECT Consulta1.Distrito, Consulta1.HUB, Consulta1.Base_RE, Consulta1.Email FROM Consulta1 WHERE (((Consulta1.Distrito)=" & Forms!Fr_Outages_Cadastro!Distrito & "));")

Ok

Já solucionei o problema, agradeço de todos por me ajudar achar erro.

Agora estou com a cabeça fria. rsss