MaximoAccess

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

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 : 24
    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 : 24
    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: Seg 20 Nov 2017, 13:20