MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


    [Resolvido]Criar tabela temporária através de parâmetros de formulário - Erro 3061

    avatar
    vinicius.anna
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 199
    Registrado : 29/04/2011

    [Resolvido]Criar tabela temporária através de parâmetros de formulário - Erro 3061 Empty [Resolvido]Criar tabela temporária através de parâmetros de formulário - Erro 3061

    Mensagem  vinicius.anna 7/4/2023, 16:35

    Boa tarde

    Necessito criar uma tabela temporária com dados a partir de parâmetros informados no formulário....., ocorre que, ao tentar executar o código abaixo na linha currentdb.execute é retornado o erro 3061 indicando a falta dos três parâmetros que utilizo para tal criação (txFilial, txAno e txMes)...., algum amigo tem alguma dica para que eu possa resolver a questão?

    Obrigado

    Att.
    Vinicius

    Código:

    On Error GoTo trataerro
    Dim filtro As String

        If IsNull(Me!txAno) Then
            MsgBox "Selecione o Ano!", vbCritical, "Erro"
            Me!cboAno.SetFocus
            Exit Sub
        ElseIf IsNull(Me!txMes) Then
            MsgBox "Selecione o Mês!", vbCritical, "Erro"
            Me!cboMes.SetFocus
            Exit Sub
        ElseIf IsNull(Me!txEmpresa) Then
            MsgBox "Selecione a Empresa!", vbCritical, "Erro"
            Me!lstEmpresas.SetFocus
            Exit Sub
        ElseIf IsNull(Me!txFilial) Then
            MsgBox "Selecione a Filial!", vbCritical, "Erro"
            Me!lstFiliais.SetFocus
            Exit Sub
        Else
            CurrentDb.Execute "SELECT qr_ExportaOK.lancAno, qr_ExportaOK.lancMes, qr_ExportaOK.idFilialFunc, qr_ExportaOK.lancAno, qr_ExportaOK.MesEx, qr_ExportaOK.Matr, qr_ExportaOK.Contr, qr_ExportaOK.TipoLan, qr_ExportaOK.Exportar INTO tbExportarTMP FROM qr_ExportaOK WHERE (((qr_ExportaOK.lancAno) Like [Formulários]![frm_Parametros]![txAno]) AND ((qr_ExportaOK.lancMes) Like [Formulários]![frm_Parametros]![txMes]) AND ((qr_ExportaOK.idFilialFunc) Like [Formulários]![frm_Parametros]![txEmpresa]));"
        End If

    Sair:
        Exit Sub
    trataerro:
        Select Case Err.Number
            Case 9999
                Resume Next
            Case Else
                MsgBox "Aviso - Exportar (CL)." & vbCrLf & "Erro n°: " & Err.Number & vbCrLf & "Descrição: " & Err.Description, vbCritical, "Aviso"
        End Select
        Resume Sair:

    avatar
    vinicius.anna
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 199
    Registrado : 29/04/2011

    [Resolvido]Criar tabela temporária através de parâmetros de formulário - Erro 3061 Empty Re: [Resolvido]Criar tabela temporária através de parâmetros de formulário - Erro 3061

    Mensagem  vinicius.anna 12/4/2023, 14:27

    Bom dia

    Acabei resolvendo com o comando DoCmd.RunSQL.

    Obrigado.

    Att.
    Vinicius

      Data/hora atual: 27/5/2024, 04:28