[Resolvido]erro run time 3075

Olá, pessoal

 Tenha dúvida no filtro que executa no formulário.Quando faço uma duplicação nos dados que tenho, apareçe o erro run time de execução 3075 no filtro abaixo.

DoCmd.ApplyFilter , "Id_chamado =" & Me!cboConsulta
Me!Tipo_chamado.SetFocus
Me!cboConsulta = Null

Alguém poderia me ajudar nesse problema?

Olá Renato,
Em qual das linhas está a dar o erro?
Caso seja na primeira (DoCmd.ApplyFilter , "Id_chamado =" & Me!cboConsulta) aparece a amarelo
Verifique o valor e tipo de dados do campo Me!cboConsulta.
Fica a suposição.
Abraço

O erro está acontecendo na primeira linha do filtro.
Este ao lado=> DoCmd.ApplyFilter , "ID_CHAMADO =" & Me!cboConsulta
o tipo é numérico.

Olá Renato,
1) Qual é o valor que tem o campo Me!cboConsulta
2) Numerico ou texto?
Abraço

boa noite!
o tipo que falo é numérico.

Olá, se é uma caixa de combinação, deve escolher o campo dependente.
Caso seja o primeiro, teste:

Código:


DoCmd.ApplyFilter , "Id_chamado =" & Me!cboConsulta(0)

Abraço

prezado AhTeixeira, boa noite!!

Inclui o valor "(0)"deu um erro 451 -Procedimento property Let não foi definido e o procedimento property get não retornou um objeto.
Este texto não conheço.

Olá, vamos testar assim então:

Numerico:

Código:

DoCmd.ApplyFilter , "[Id_chamado] = " & Me!cboConsulta & ""

Alfanumerico:

Código:

DoCmd.ApplyFilter , "[Id_chamado] = '" & Me!cboConsulta &"'"

Caso se mantenha, será melhor postar a base de dados com os objectos envolvidos.
Abraço

prezado, boa noite!!

  Postei o arquivo teste do banco que estou desenvolvendo. o erro é que vem acontecendo que é quanto clico no botão duplicar o meu sistemas acusa o erro de colagem.
   Neste formulário tem um combox de filtragem dos registros, quando desabilito esta esta filtragem o botão de duplicação roda normal.mas quando fica habilitado para filtragem emite erro rum time 3075.
   já fiz o que você pediu mas não está dando certo.

Espero que me ajude a desvendar o erro.
não estou conseguindo postar o banco.

Olá, parece estar complicado.
Para postar deve compactar/reparar a base de dados.
Depois zipar, deve ser ZIP, o fórum não aceita rar.
Depois deve escolher o ficheiro zipado e de seguida no botão "submeter"
Depois será no botão enviar
Aguardamos, Abraço

prezado Ah Teixeira!

 Muito obrigado pela informação, postei o arquivo em que estou desenvolvendo.

espero que me ajude nessa.

Olá Renato,
Estive a ver o seu projecto, ao compliar apresenta erros.

Quanto ao copiar acho mais adequado uma consulta SQL, fiz um teste de exemplo.
Altere o código da sub "Duplicar" por este e verifique:

Código:

Private Sub Cmd_Duplicar_Click()
On Error GoTo Err_Cmd_Duplicar_Click

Dim duplicar As String
duplicar = MsgBox("VOCÊ DESEJA O DUPLICAR O CHAMADO???", vbYesNo + vbInformation)
If duplicar = vbYes Then

    DoCmd.RunSQL "INSERT INTO Tb_Chamado ( Nome_Atendente, Status_Chamado, Data, Horário, Tipo_Chamado," _
                   & " Nome_Solicitante) SELECT '" & Me.Nome_Atendente & "','" & Me.Status_Chamado & "',#" _
                   & Me.Data & "#,#" & Me.Horário & "#,'" & Me.Tipo_Chamado & "','" & Me.Nome_Solicitante & "';"

    'DoCmd.Save
   ' Me.Data = Date
    'Me.Horário = Time
   ' Me.Galpão_Solicitante = ""
   ' Me.Pto_Referência = ""
   ' Me.Descrição_Chamado = ""
  '  Me.Localização = ""
    Me.cboConsulta.Enabled = True
End If

Exit_Cmd_Duplicar_Click:
   Exit Sub

Err_Cmd_Duplicar_Click:
    MsgBox Err.Description
    Resume Exit_Cmd_Duplicar_Click
    
End Sub

Se for o que pretende, deverá completar o resto da instrução SQL com os campos necessários.
Abraço

Prezado ahteixeira, boa noite!!


 Não enviei nos dias, porque estava muito ocupado para resolver outras questões.mas fiz alguns ajustes da dica que vc me deu, pois código rodou tranquilo.

Muito obrigado

Olá Renato, obrigado pelo retorno.
Abraço