MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Dúvida: Inserir dados a uma tabela usando o VBA

    Compartilhe

    wagnermarinsjc
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 93
    Registrado : 23/03/2013

    [Resolvido]Dúvida: Inserir dados a uma tabela usando o VBA

    Mensagem  wagnermarinsjc em Seg 10 Ago 2015, 22:53

    Bom dia amigos fórum!

    É o seguinte: Estou fazendo um app para utilizar na escola bíblica na igreja.

    Está quase concluído! vou explicar como funciona:

    Tenho uma tabela (Controle_Ponto) onde armazena a frequência dos alunos, tantos para os
    alunos "MATRICULADOS" quanto os "VISITANTES".

    Para atribuí um "Visitante" na respectiva classe usei um botão de comando.

    resumindo: Quero capturar "VISITANTE" e sua respectiva "CLASSE" na tabela "Controle_Ponto"


    Observação:Quando Clico no botão do Visitante correspondente a "Classe", Ele capta a data o código e hora.
    no caso não consigo captar o nome "Visitante" e a "Classe" respectiva.

    segue abaixo a imagem ilustrando.. e código e também o bd para visualizarem.
    Código:
    Dim sql As String
    Dim rst As Recordset

    sql = "SELECT * FROM matricula WHERE cd=" & Me.txt_rf.Value

            Set rst = CurrentDb.OpenRecordset(sql)

    If IsNull(DLookup("[cd]", "matricula", "[cd]=" & Me!txt_rf)) Then
        MsgBox "Registro não encontrado !", vbOKOnly + vbCritical, "Atenção"
        Me.txt_rf.Value = ""
        DoCmd.CancelEvent
    Else
        Me.txt_aviso.Visible = True
        Me.txt_aviso.BorderStyle = 0
        Me.txt_aviso.Caption = rst!nome1
        Me.txt_sala.Visible = True
        Me.txt_sala.BorderStyle = 0
        Me.txt_sala.Caption = rst!Sala1
        Me.Foto.Visible = True
        Me.Foto = rst!Foto
    End If


    If MsgBox("CLICK EM OK OU TECLE ENTER PARA CONFIRMAR!", vbOKCancel, "REGISTRAR PONTO") = vbOK Then



            DoCmd.SetWarnings False 'desativa a exibição de mensagens do sistema
     DoCmd.RunSQL "INSERT INTO controle_ponto (cd,entrada1,pontodata) select " & Me.txt_rf & ",#" & Time & "#,#" & Format(Date, "mm/dd/yyyy") & "#"
            DoCmd.SetWarnings True
          
           Me.txt_rf.Value = Null
        Me.txt_aviso.Visible = False
        Me.txt_aviso.BorderStyle = 0
        Me.txt_aviso.Caption = ""
        Me.txt_sala.Visible = False
        Me.txt_sala.BorderStyle = 0
        Me.txt_sala.Caption = ""
        Me.Foto.Visible = False
        Me.Foto = ""
    End If

        Set rst = Nothing
    End Sub

    [Você precisa estar registrado e conectado para ver esta imagem.]

    [Você precisa estar registrado e conectado para ver este link.]
    agradeço desde já meus amigos.


    .................................................................................
    "Não basta ser inteligente; é necessário persistir. Pois os que persistem sempre alcançam a meta final" (autor desconhecido)

    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5889
    Registrado : 05/11/2009

    Re: [Resolvido]Dúvida: Inserir dados a uma tabela usando o VBA

    Mensagem  Alexandre Neves em Ter 11 Ago 2015, 18:35

    Boa tarde,
    DoCmd.RunSQL "INSERT INTO controle_ponto (cd,entrada1,pontodata) VALUES (" & Me.txt_rf & ",#" & Time & "#,#" & Format(Date, "mm/dd/yyyy") & "#)"


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

    wagnermarinsjc
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 93
    Registrado : 23/03/2013

    Re: [Resolvido]Dúvida: Inserir dados a uma tabela usando o VBA

    Mensagem  wagnermarinsjc em Ter 11 Ago 2015, 19:13

    Grande Alexandre!

    Obrigado pelo retorno.

    Ficou perfeito meu amigo

    É muito bom contar com pessoas como você e outros
    que compartilham seus conhecimento enriquecendo aprendizado
    com o access. E sem falar que o aprendizado fica como legado em poder ajudar outras pessoas com dúvidas.

    Abraços.


    Última edição por wagnermarinsjc em Ter 11 Ago 2015, 19:40, editado 1 vez(es)


    .................................................................................
    "Não basta ser inteligente; é necessário persistir. Pois os que persistem sempre alcançam a meta final" (autor desconhecido)

    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5889
    Registrado : 05/11/2009

    Re: [Resolvido]Dúvida: Inserir dados a uma tabela usando o VBA

    Mensagem  Alexandre Neves em Ter 11 Ago 2015, 19:39

    DoCmd.RunSQL "INSERT INTO controle_ponto (cd,entrada1,pontodata,nome_aluno,classe,status)VALUES('" & Me.txt_rf & "',#" & Format(Date, "mm/dd/yyyy") & "#,#" & Time & "#, '" & Me.txt_nome & "','" & Me.txt_classe & "', '" & Me.txt_status & "')"


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

    wagnermarinsjc
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 93
    Registrado : 23/03/2013

    Re: [Resolvido]Dúvida: Inserir dados a uma tabela usando o VBA

    Mensagem  wagnermarinsjc em Ter 11 Ago 2015, 19:41

    Grande Alexandre!

    Obrigado pelo retorno.

    Ficou perfeito meu amigo

    É muito bom contar com pessoas como você e outros
    que compartilham seus conhecimento enriquecendo aprendizado
    com o access. E sem falar que o aprendizado fica como legado em poder ajudar outras pessoas com dúvidas.

    Abraços.


    .................................................................................
    "Não basta ser inteligente; é necessário persistir. Pois os que persistem sempre alcançam a meta final" (autor desconhecido)

    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5889
    Registrado : 05/11/2009

    Re: [Resolvido]Dúvida: Inserir dados a uma tabela usando o VBA

    Mensagem  Alexandre Neves em Qua 12 Ago 2015, 18:12

    Boa tarde,
    Ainda bem que resolveu
    Não altere as dúvidas colocadas e que ajudarão outros colegas a entender cada passo da construção da solução


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

      Data/hora atual: Sex 09 Dez 2016, 13:27