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]Erro no tempo de execução '3061'. Parâmetros insuficientes. Eram esperado 1

    avatar
    leandrombmb
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  leandrombmb Qui 9 Abr - 8: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
    avatar
    leandrombmb
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  leandrombmb Qui 9 Abr - 10: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: Seg 5 Dez - 14:57