MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    conexao com via vba com banco de dados access

    avatar
    arturgov
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 07/06/2014

    conexao com via vba com banco de dados access  Empty conexao com via vba com banco de dados access

    Mensagem  arturgov em 3/10/2020, 20:09

    Boa tarde, estou com problema para fazer conectar o formulario ao banco de dados. quando vou inserir um registro ele da um erro " variavel do objeto
    ou avariavel do bloco with não foi definida. Desde ja agraço.


    Option Compare Database
    Public db As Database
    Public cmd As String
    Public rs As Recordset

    Function Connection()

    Set db = CurrentDb



    End Function

    Function valida_rs()

    Set rs = db.OpenRecordset(cmd, dbOpenDynaset)

    End Function


    codigo do botão salvar segue a baixo:

    Private Sub CmdSalvar_Click()
    cmd = "INSERT INTO TB01_EMPRESA (NOME,ENDERECO,NUMERO,BAIRRO,CIDADE,CEP,CNPJ" _
    & ")VALUE('" & Me.TxtNome & "','" & Me.TxtEndereco & "','" & Me.TxtNumero & "','" & Me.TxtBairro & "','" & Me.TxtCidade & "','" & Me.TxtCep & "','" & Me.TxtCnpj & "') "

    db.Execute (cmd)
    MsgBox ("Dados cadastrado com sucesso!"), vbInformation + vbOKOnly, "Sucesso"

    Call CmdSair_Click
    End Sub

    arturgov gosta desta mensagem

    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3618
    Registrado : 04/04/2010

    conexao com via vba com banco de dados access  Empty Re: conexao com via vba com banco de dados access

    Mensagem  Avelino Sampaio em 3/10/2020, 20:21

    Olá!

    VALUES e não VALUE.  acrescente espaços:

    ...) VALUES (...


    Aguardamos


    .................................................................................
    Quer aprender a montar ribbons ?  
    Clique AQUI e conheça o meu aplicativo.

    arturgov gosta desta mensagem

    avatar
    arturgov
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 07/06/2014

    conexao com via vba com banco de dados access  Empty Re: conexao com via vba com banco de dados access

    Mensagem  arturgov em 5/10/2020, 18:08

    Bom dia, amigos gostei da sua resposta fiz alteração mas continua o erro em tempo de execução 91
    a variavel do objeto ou a variavel do bloco with não foi definida, estou usando o access 2013 sera que tem alguma coisa haver?

    arturgov gosta desta mensagem

    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3618
    Registrado : 04/04/2010

    conexao com via vba com banco de dados access  Empty Re: conexao com via vba com banco de dados access

    Mensagem  Avelino Sampaio em 5/10/2020, 20:11

    Oi

    Acrescente o DAO

    Public db As dao.Database
    Public cmd As String
    Public rs As dao.Recordset
    ...


    Aguardamos


    .................................................................................
    Quer aprender a montar ribbons ?  
    Clique AQUI e conheça o meu aplicativo.

      Data/hora atual: 20/10/2020, 18:21