|
|
Postada em 30/07/2010 22:07 hs
oi pessoal estou montando um projeto de ponto eletronico para funcionarios, so para me aprimorar um pouco mais.
mais estou com uma problema. no meu projeto tenho 4 textbox sendo uma para a data, outra para a hora, uma para numero de registro, e por fim uma para o nome do funcionario. tenho 2 botoes de comando um para registrar entrada e outro para a saida e um banco de dados com os seguintes campos nome, registro, data, entrada e saida.
pois bem preciso montar uma rotina em que ao digitar o registro de funcionario o sistema realize uma consulta ao banco de dados e verifique se o mesmo existe e insira automaticamente o nome do funcionario em uma textbox somente para o usuario do sistema verificar se esta insirindo o registro certo.
se alguem puder me ajudar agradeço muito.
|
|
|
|
|
|
gerarda
|
MONTE SIAO
MG - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 08/08/2010 15:06 hs
' declarar variaveis do banco de dadosPublic bancodedados As DatabasePublic banco As Recordset' no evento load do formSet bancodedados = OpenDatabase(App.Path & "ome do seu banco de dados.mdb")' colocar um botao para validar o registroPrivate Sub botaovalidaregistro_Click()Set banco = bancodedados.OpenRecordset("select nome from registros where registro='" & Textboxnumeroregistro.Text & "'")If banco.RecordCount = 0 ThenMsgBox "Registro não encontrado", vbInformation + vbOKOnly, ". . : RELOGIO DE PONTO by GIOGALI "Exit SubEnd IfTextnome.Text = banco("nome")End Sub' no evento unload do formbanco.closebancodedados.close
|
|
|
|
gerarda
|
MONTE SIAO
MG - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 08/08/2010 15:25 hs
|
|
TÓPICO EDITADO
|
|
|
|
gerarda
|
MONTE SIAO
MG - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 08/08/2010 15:33 hs
' declarar variaveis do banco de dados
Public bancodedados As Database
Public banco As Recordset
' no evento load do form
Set bancodedados = OpenDatabase(App.Path & "ome do seu banco de dados.mdb")
' colocar um botao para validar o registro
Private Sub botaovalidaregistro_Click()
Set banco = bancodedados.OpenRecordset("select nome from registros where registro='" & Textboxnumeroregistro.Text & "'")
If banco.RecordCount = 0 Then
MsgBox "Registro não encontrado", vbInformation + vbOKOnly, ". . : RELOGIO DE PONTO by GIOGALI "
Exit Sub
End If
Textnome.Text = banco("nome")
End Sub
' no evento unload do form
banco.close
bancodedados.close
|
|
|
|
