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

3 participantes

    [Resolvido]inserir o conteúdo pelo insert

    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1811
    Registrado : 23/01/2018

    [Resolvido]inserir o conteúdo pelo insert Empty [Resolvido]inserir o conteúdo pelo insert

    Mensagem  crysostomo 6/5/2019, 19:21

    Boa tarde amigos.
    qual o  erro aqui , eu quero colocar o conteúdo que está dentro da caixa não acoplada
    Código:
    CurrentDb.Execute "INSERT INTO registro" _
                & "(nome, telefone) VALUES " _
                & "(me.teste, me.telefone)
    "


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1772
    Registrado : 13/12/2016

    [Resolvido]inserir o conteúdo pelo insert Empty Re: [Resolvido]inserir o conteúdo pelo insert

    Mensagem  Alexandre Fim 6/5/2019, 19:42

    Boa tarde Crysostomo,
    Estava faltando separar os campos conform abaixo:
    "('"& me.teste &"', '"& me.telefone &"')

    Sugestão:
    Procure separar a instrução em campos e valores.. Segue exemplo

    Código:


    Dim db      As DAO.Database
    Dim sSQL    As String

        Set db = CurrentDb

        sSQL = "INSERT INTO registro"
        'CAMPOS----------------------------------------
        sSQL = sSQL & "("
        sSQL = sSQL & "  nome"
        sSQL = sSQL & " ,telefone"
        sSQL = sSQL & ")"
        'VALORES -------------------------------------
        sSQL = sSQL & " VALUES"
        sSQL = sSQL & "("
        sSQL = sSQL & "  '" & Trim(Me.teste) & "'"
        sSQL = sSQL & " ,'" & Trim(Me.telefone) & "'"
        sSQL = sSQL & ")"

        db.Execute sSQL





    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1811
    Registrado : 23/01/2018

    [Resolvido]inserir o conteúdo pelo insert Empty Re: [Resolvido]inserir o conteúdo pelo insert

    Mensagem  crysostomo 6/5/2019, 19:47

    Rapaz , falta de atenção em mim que não falta de tanto eu buscar por aqui e dar esse vacilo , Obrigado Alexandre.
    vou seguir sua separação.


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1772
    Registrado : 13/12/2016

    [Resolvido]inserir o conteúdo pelo insert Empty Re: [Resolvido]inserir o conteúdo pelo insert

    Mensagem  Alexandre Fim 6/5/2019, 20:19

    Very Happy Very Happy Very Happy
    Tranquilo rapaz....
    Estamos sempre aprendendo a cada dia...

    Boa sorte.

    Abraço

    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1811
    Registrado : 23/01/2018

    [Resolvido]inserir o conteúdo pelo insert Empty Re: [Resolvido]inserir o conteúdo pelo insert

    Mensagem  crysostomo 6/5/2019, 21:49

    Alexandre não abusando da sua boa vontade , porque depois ou antes do insert o verificador de campos vazios não funcionam?

    Código:

      If IsNull(Me.senha) Then
         MsgBox "O campo  é obrigatório.", vbCritical, "Aviso"
    end if
    .....


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1772
    Registrado : 13/12/2016

    [Resolvido]inserir o conteúdo pelo insert Empty Re: [Resolvido]inserir o conteúdo pelo insert

    Mensagem  Alexandre Fim 7/5/2019, 02:34

    Crysostomo,

    Utilize desta forma:

    If IsNull(Me.senha) or Trim(Me.senha)= Empty Then
    MsgBox "O campo é obrigatório.", vbCritical, "Aviso"
    end if
    .....
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1811
    Registrado : 23/01/2018

    [Resolvido]inserir o conteúdo pelo insert Empty Re: [Resolvido]inserir o conteúdo pelo insert

    Mensagem  crysostomo 7/5/2019, 15:44

    Não entendo o porque o operador  " OR " não está funcionando , o usuário pode estar vazio, mas ele grava a senha.
    nem conseguindo registrar a entrada e saída do usuário , ma está dando
    Anexos
    [Resolvido]inserir o conteúdo pelo insert Attachmentoperador não funciona.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (90 Kb) Baixado 7 vez(es)


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    avatar
    zcarloslopes
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 383
    Registrado : 28/10/2010

    [Resolvido]inserir o conteúdo pelo insert Empty Re: [Resolvido]inserir o conteúdo pelo insert

    Mensagem  zcarloslopes 7/5/2019, 16:22

    Boa tarde,

    Os Campos, no que respeita ao valor, podem ser Nulos, Vazios, ou de comprimento zero.

    Para evitar estes transtornos costumo colocar na condição sempre as 3 opções.

    Testei o seu caso com sucesso alterando a linha de código de:
    Código:
    If IsNull(Me.txtcadstrouser) Or Trim(Me.txtCadastroSenha) = Empty Then

    Para:
    Código:
    If IsNull(txtcadstrouser) Or txtcadstrouser = "" Or txtCadastroSenha = Empty Then

    Veja se deu certo.

    Abraço
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1772
    Registrado : 13/12/2016

    [Resolvido]inserir o conteúdo pelo insert Empty Re: [Resolvido]inserir o conteúdo pelo insert

    Mensagem  Alexandre Fim 7/5/2019, 17:33

    Olá Crysostomo,

    Faltou fazer a validação dos dois campos de forma separada.
    Segue código:

    Código:


    Private Sub Comando7_Click()
    On Error GoTo trata_erro
    Dim db      As DAO.Database
    Dim sSQL    As String

        If IsNull(Me.txtcadstrouser) Or Trim(Me.txtcadstrouser) = Empty Then
            MsgBox "O campo Usuário é obrigatório.", vbExclamation, "Aviso"
            Me.txtcadstrouser = ""
            Me.txtCadastroSenha = ""
            Exit Sub
        End If


        If IsNull(Me.txtCadastroSenha) Or Trim(Me.txtCadastroSenha) = Empty Then
            MsgBox "O campo Senha é obrigatório.", vbExclamation, "Aviso"
            Me.txtcadstrouser = ""
            Me.txtCadastroSenha = ""
            Exit Sub
        End If

        Set db = CurrentDb
       
        sSQL = "INSERT INTO tblLogin"
        'CAMPOS----------------------------------------
        sSQL = sSQL & "("
        sSQL = sSQL & "  tbUsuario"
        sSQL = sSQL & " ,tbSenha"
        sSQL = sSQL & ")"
        'VALORES -------------------------------------
        sSQL = sSQL & " VALUES"
        sSQL = sSQL & "("
        sSQL = sSQL & "  '" & Trim(Me.txtcadstrouser) & "'"
        sSQL = sSQL & " ,'" & Trim(Me.txtCadastroSenha) & "'"
        sSQL = sSQL & ")"
        db.Execute sSQL
        Me.Refresh
       
        MsgBox " Senha cadastrada", vbInformation, "Arquivamento-Login"
        Me.txtCadastroSenha = ""
        Me.txtcadstrouser = ""
       
        Exit Sub
    trata_erro:
       
        MsgBox "Erro gerado: " & Err.Number & " - " & Err.Description & "", vbCritical, "Erro"
        Exit Sub
         

    End Sub


    boa sorte

    Abraços
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1772
    Registrado : 13/12/2016

    [Resolvido]inserir o conteúdo pelo insert Empty Re: [Resolvido]inserir o conteúdo pelo insert

    Mensagem  Alexandre Fim 7/5/2019, 19:30

    E ai?
    Deu certo?
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1811
    Registrado : 23/01/2018

    [Resolvido]inserir o conteúdo pelo insert Empty Re: [Resolvido]inserir o conteúdo pelo insert

    Mensagem  crysostomo 7/5/2019, 20:10

    Sim deu certo Alexandre, já a do Zcarlos, continua dando erro.


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1772
    Registrado : 13/12/2016

    [Resolvido]inserir o conteúdo pelo insert Empty Re: [Resolvido]inserir o conteúdo pelo insert

    Mensagem  Alexandre Fim 7/5/2019, 20:54

    Blza...Valeu
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1811
    Registrado : 23/01/2018

    [Resolvido]inserir o conteúdo pelo insert Empty Re: [Resolvido]inserir o conteúdo pelo insert

    Mensagem  crysostomo 8/5/2019, 01:21

    Alexandre, peguei um arquivo sei , mas não esta dando certo comigo, poderia me ajudar?


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.

      Data/hora atual: 18/9/2021, 18:32