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]Validação nao inseri na tabela

    maguim
    maguim
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 449
    Registrado : 15/05/2013

    [Resolvido]Validação nao inseri na tabela Empty [Resolvido]Validação nao inseri na tabela

    Mensagem  maguim 2/5/2017, 20:13

    ola meus amigos !

    Boa tarde!


    Tenho um formulário onde eu aperto um botão ele valida com a data atual e nome de usuário. porem ele nao salva na tabela a data e o nome, ressaltando o formulário não esta acoplado.


    esse form que postei seria somente pra teste, pois tenho outras ideias.

    o que seria ?

    Código:
    Private Sub Comando0_Click()
    If IsNull(Me.data) Then
        If MsgBox("Deseja fazer alteração?", vbQuestion + vbYesNo, "Atenção") = vbYes Then
            Me.data = Date
            Dim rs As Recordset
            Set rs = CurrentDb.OpenRecordset("select cod, dt from teste where cod=" & Me.data)
            Me.data.Enabled = False
            Me.validarnome = getUsuarioAtual()
            Me.validarnome.Enabled = False
            Me.Comando0.Enabled = False
        Else
            Me.data = ""
            MsgBox "Informação Cancelada !!!", vbInformation, "Cancel"
    End If
    End If
       
    End Sub
    Anexos
    [Resolvido]Validação nao inseri na tabela AttachmentDatabase9.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (405 Kb) Baixado 5 vez(es)


    .................................................................................
    O conhecimento é a Dadiva da Vida. Sem ele o que seriamos ?! Surprised
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5121
    Registrado : 20/04/2011

    [Resolvido]Validação nao inseri na tabela Empty Re: [Resolvido]Validação nao inseri na tabela

    Mensagem  Silvio 2/5/2017, 20:30

    Boa tarde....

    Veja essa linha com calma e achará o provável erro.

    Set rs = CurrentDb.OpenRecordset("select cod, dt from teste where cod=" & Me.data)

    Salvo se o Cod...for a data em questão. Foi o que mais me chamou a atenção.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    maguim
    maguim
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 449
    Registrado : 15/05/2013

    [Resolvido]Validação nao inseri na tabela Empty Re: [Resolvido]Validação nao inseri na tabela

    Mensagem  maguim 3/5/2017, 13:14

    Silvio bom dia !


    entao, seguindo suas dicas achei melhor trocar a opção de add no banco de dados, porem sem sucesso.


    fiquei ate de madru ontem, tentando resolver em casa. Crying or Very sad

    optei por fazer desse jeito. porem não esta lançando na tabela a data

    Private Sub Comando0_Click()
    Dim db As Database
    Dim rs As Recordset

    Set db = CurrentDb
    Set rs = db.OpenRecordset("teste")

    If IsNull(Me.data) Then
        If MsgBox("Deseja fazer alteração?", vbQuestion + vbYesNo, "Atenção") = vbYes Then
         
           
           rs.AddNew
           Me.data = Date
           rs("dt") = Me.data

           
           
           Me.data.Enabled = True
           Me.validarnome = getUsuarioAtual()
           Me.validarnome.Enabled = False
           Me.Comando0.Enabled = False
        Else
           Me.data = ""
           MsgBox "Informação Cancelada !!!", vbCritical, "Cancel"
    End If
    End If
       
    End Sub

    abraços


    .................................................................................
    O conhecimento é a Dadiva da Vida. Sem ele o que seriamos ?! Surprised
    CassioFabre
    CassioFabre
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 731
    Registrado : 18/01/2013

    [Resolvido]Validação nao inseri na tabela Empty Re: [Resolvido]Validação nao inseri na tabela

    Mensagem  CassioFabre 4/5/2017, 12:10

    Bom dia,

    Na tabela teste altere o campo dt para Data/Hora. E no código do Comando0 do form teste coloque:

    Código:
    Private Sub Comando0_Click()
    If IsNull(Me.data) Then
        If MsgBox("Deseja fazer alteração?", vbQuestion + vbYesNo, "Atenção") = vbYes Then
            Me.data = Date
            Me.data.Enabled = False
            Me.validarnome = getUsuarioAtual()
            Me.validarnome.Enabled = False
            Me.Comando0.Enabled = False
           
            Dim rs As Recordset
            Set rs = CurrentDb.OpenRecordset("teste")
           
            rs.AddNew
                rs("dt") = Me.data
                rs("vlnome") = validarnome
            rs.Update
            rs.Close
           
        Else
            Me.data = ""
            MsgBox "Informação Cancelada !!!", vbInformation, "Cancel"
    End If
    End If
       
    End Sub

    Veja se atende.

    Abraço.
    maguim
    maguim
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 449
    Registrado : 15/05/2013

    [Resolvido]Validação nao inseri na tabela Empty Re: [Resolvido]Validação nao inseri na tabela

    Mensagem  maguim 4/5/2017, 12:23

    cassio me atendeu sim.

    uma duvida....

    Dim rs As Recordset
    Set rs = CurrentDb.OpenRecordset("tabela")


    alem do rs.AddNew e rs("campo")

    pra poder lancar os dados na tabela ele precisa do rs.Update e rs.Close. Se nao ele nao lança ?


    qual a relação do rs.Update e rs.Close no codigo ?

    abraços


    .................................................................................
    O conhecimento é a Dadiva da Vida. Sem ele o que seriamos ?! Surprised
    CassioFabre
    CassioFabre
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 731
    Registrado : 18/01/2013

    [Resolvido]Validação nao inseri na tabela Empty Re: [Resolvido]Validação nao inseri na tabela

    Mensagem  CassioFabre 4/5/2017, 12:32

    Bom dia,

    Sim, é necessário "atualizar" o recordset a cada interação e é esse processo que fará com que o registro seja salvo, por isso a escrita básica de um recordset de adição seria (substituindo por variáveis):

    Set rs = currentdb.OpenRecordset("[TABELA]")

    rs.AddNew
    rs("campo") = txtCampo
    rs.Update

    Leia mais a respeito aqui (copiar e colar no navegador): msdn.microsoft.com/pt-br/library/office/ff821467.aspx

    Já o rs.close é a forma de fechar o processo pois se voce deixa o rs aberto, ele fica consumindo espaço na memória e consequentemente causa perda de desempenho.

    Abraço.
    maguim
    maguim
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 449
    Registrado : 15/05/2013

    [Resolvido]Validação nao inseri na tabela Empty Re: [Resolvido]Validação nao inseri na tabela

    Mensagem  maguim 4/5/2017, 13:27

    Cassio


    Cara mto obrigado pelo informação. Aprendendo constantemente com vcs do forum.


    Abraços


    RESOLVIDO !


    .................................................................................
    O conhecimento é a Dadiva da Vida. Sem ele o que seriamos ?! Surprised

    Conteúdo patrocinado


    [Resolvido]Validação nao inseri na tabela Empty Re: [Resolvido]Validação nao inseri na tabela

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 9/12/2024, 04:59