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.
https://www.dropbox.com/s/ss9rgo99wc2td4r/SISTEMA%20PARA%20ESCOLA%20BIBLICA%20DOMINICAL.accdb?dl=0
agradeço desde já meus amigos.
É 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
https://www.dropbox.com/s/ss9rgo99wc2td4r/SISTEMA%20PARA%20ESCOLA%20BIBLICA%20DOMINICAL.accdb?dl=0
agradeço desde já meus amigos.