MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Erro no tempo de execução '3061'. Parâmetros insuficientes. Eram esperado 1

    Compartilhe

    leandrombmb
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12
    Registrado : 31/03/2015

    [Resolvido]Erro no tempo de execução '3061'. Parâmetros insuficientes. Eram esperado 1

    Mensagem  leandrombmb em Qui 09 Abr 2015, 12:52

    Bom dia !
    Podem me ajudar ?
    Eu não consegui entender a lógica de como usar & ' " nos parâmetros de String e integer. Ao executar informa o erro 3061

    Public Sub DoSQL()

         
       Dim strsql, Estado As String
       Dim codigo  As Integer
         
    codigo = 1
    Estado = "Sim"

    strsql = "UPDATE Tb_Cadt_Familia SET Tb_Cadt_Familia.Grafico_Familia_Sim_Não = Estado WHERE(((Tb_Cadt_Familia.Cod_Faml)= codigo))"

    CurrentDb.Execute strsql
       
       
    End Sub

    leandrombmb
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12
    Registrado : 31/03/2015

    Re: [Resolvido]Erro no tempo de execução '3061'. Parâmetros insuficientes. Eram esperado 1

    Mensagem  leandrombmb em Qui 09 Abr 2015, 14:41

    Resolvido , Bom dia Galera !

    Graças a Deus, consegui resolver, achei a resposta com um de vcs.

    Valor de String fica entre ' " & parametro ' " e sem virgula apos o where
    valor de Integer fica entre " & parametro & "

    Public Sub DoSQL()


    Dim strsql, Estado As String
    Dim codigo As Integer

    codigo = 1
    Estado = "Não"

    strsql = "UPDATE Tb_Cadt_Familia SET Tb_Cadt_Familia.Grafico_Familia_Sim_Não = ' " & Estado & " ' WHERE(((Tb_Cadt_Familia.Cod_Faml)= " & codigo & "))"

    CurrentDb.Execute strsql

    End Sub

      Data/hora atual: Dom 04 Dez 2016, 14:16