Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Cadastro Entrevista RH

Discussões sobre a integração do Excel com o Banco de Dados Access

Moderador: joseA

Henry-Systems
Colaborador
Colaborador
Mensagens: 96
Registrado em: Sáb Nov 26, 2011 1:05 pm
Localização: Rio Grande da Serra - São Paulo
Contato:

Cadastro Entrevista RH

Mensagem por Henry-Systems »

Buenas a todos.

Deixo a minha contribuição a todos com o cadastro em Access, integrado com Excel, e login de acesso, adaptado dos nossos amigos:
tomasvasquez, Mauro Coutinho e José Arnaldo.

Senhas das planilhas: 032164.Onofre
Senhas dos codigos VBA: 032164.Onofre
Login e Senha no arquivo login.docx

Dentro do arquivo consta a versão 01, que os combox puxam as informações da planilha dados.
A versão V02 os combox puxam os dados do Access que são referenciadaspelo código abaixo:
Private Sub PopulacboMarcacao()
Dim Conn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim sql As String

Set Conn = New ADODB.Connection
With Conn
.Provider = "Microsoft.JET.OLEDB.4.0"
.ConnectionString = "Data Source=" & ThisWorkbook.Path & "\Banco_Dados.mdb"
.Open
End With

sql = "SELECT DISTINCT DESLIGAMENTO_EMPRESA FROM [DESLIGAMENTO_EMPRESA]"

Set rst = New ADODB.Recordset
With rst
.ActiveConnection = Conn
.Open sql, Conn, adOpenDynamic, _
adLockBatchOptimistic
End With

Do While Not rst.EOF
If Not IsNull(rst(0).Value) Then
cboMarcacao.AddItem rst(0).Value
End If
rst.MoveNext
Loop

' Fecha o conjunto de registros.
Set rst = Nothing
' Fecha a conexão.
Conn.Close

End Sub

Private Sub UserForm_Initialize()
Call PopulacboMarcacao
End Sub

Dando a possibilidade de se cadastrar os dados que são puxados pelos combox, conforme poderão ver no modelo totalmente funcional.

Caso encontrem bugs reportem e também podem adaptar.

Abraços a todos
Anexos
Macro - RH - BDAccessV02.rar
Cadastro Access
(582.38 KiB) Baixado 1005 vezes


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
webmaster
Administrador
Mensagens: 3114
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

Re: Cadastro Entrevista RH

Mensagem por webmaster »

Olá Henry,

Gostei bastante. Parabéns!

Permite que publique no blog? Faço questão de mencionar a autoria.

Forte abraço!


Henry-Systems
Colaborador
Colaborador
Mensagens: 96
Registrado em: Sáb Nov 26, 2011 1:05 pm
Localização: Rio Grande da Serra - São Paulo
Contato:

Re: Cadastro Entrevista RH

Mensagem por Henry-Systems »

Boa tarde Webmaster.

Pode colocar sim, mas coloca a versão V03, pois fiz alguns melhoramentos e uns ajustes em alguns bugs encontrados.

Já aprendi muita coisa aqui no site e fico feliz em poder contribuir e compartilhar conhecimento com os demais usuários.

Abraços
webmaster escreveu:Olá Henry,

Gostei bastante. Parabéns!

Permite que publique no blog? Faço questão de mencionar a autoria.

Forte abraço!
Anexos
Macro - RH - BDAccessV03.rar
Cadastro Access
(300.56 KiB) Baixado 6771 vezes


Avatar do usuário
webmaster
Administrador
Mensagens: 3114
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

Re: Cadastro Entrevista RH

Mensagem por webmaster »

Olá Henry,

Está lá:

http://www.tomasvasquez.com.br/blog/mic ... l-e-access

Espero que tenha ficado a contento.

Abraços e obrigado mais uma vez


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Henry-Systems
Colaborador
Colaborador
Mensagens: 96
Registrado em: Sáb Nov 26, 2011 1:05 pm
Localização: Rio Grande da Serra - São Paulo
Contato:

Re: Cadastro Entrevista RH

Mensagem por Henry-Systems »

Buenas.

Já dei uma olha.

Ficou beleza, muito grato.

Abraços
webmaster escreveu:Olá Henry,

Está lá:

http://www.tomasvasquez.com.br/blog/mic ... l-e-access

Espero que tenha ficado a contento.

Abraços e obrigado mais uma vez


Henry-Systems
Colaborador
Colaborador
Mensagens: 96
Registrado em: Sáb Nov 26, 2011 1:05 pm
Localização: Rio Grande da Serra - São Paulo
Contato:

Re: Cadastro Entrevista RH - Deixar campo como abrigatório

Mensagem por Henry-Systems »

Caro webmaster, preciso de uma ajudinha.

Quero que determinados campos sejam de preenchimento obrigatório... até aí sem problemas.
Estou utilizando o código abaixo:

'Validação dos Campos
Private Function ValidaCamposFormulario() As Boolean
If Me.txtCargo.Value = "" Then
Me.txtCargo.SetFocus
MsgBox " 'Setor txtCargo' é um campo obrigatório. ", vbOKOnly, " Campo Obrigatório "
ValidaCamposFormulario = False
Exit Function
End If
ValidaCamposFormulario = True
End Function

e

'Altera
If optAlterar.Value Then
Call Alterar_Registro

If ValidaCamposFormulario = False Then
Exit Sub
End If

lblMensagem.Caption = "Registro salvo com sucesso."
lblMensagem1.Caption = "Registro salvo com sucesso."

With MultiPage1
.Pages(0).Enabled = True
.Pages(2).Enabled = False
.Pages(3).Enabled = False
End With
End If

O código funciona ao se clicar no OK... mas se não digitar nada e clicar no botão cancelar o campo fica em branco, perdendo a informação que estava.
Tem como resolver esse probleminha, pois agora emperrei nessa questão.
Abraços.
webmaster escreveu:Olá Henry,

Está lá:

http://www.tomasvasquez.com.br/blog/mic ... l-e-access

Espero que tenha ficado a contento.

Abraços e obrigado mais uma vez


Avatar do usuário
webmaster
Administrador
Mensagens: 3114
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

Re: Cadastro Entrevista RH

Mensagem por webmaster »

Henry,

Eu resolveria do jeito simples, colocando um MsgBox no evento do botão cancelar, informando que se ele prosseguir, todos os dados serão perdidos e se deseja realmente continuar.

Resolve?


Henry-Systems
Colaborador
Colaborador
Mensagens: 96
Registrado em: Sáb Nov 26, 2011 1:05 pm
Localização: Rio Grande da Serra - São Paulo
Contato:

Re: Cadastro Entrevista RH

Mensagem por Henry-Systems »

Rapaz... resolveu...

Codigo colocado no btCancelar:
Private Sub btnCancelar_Click()

Dim MSG As VbMsgBoxResult
MSG = MsgBox("Deseja Cancelar a operação ? Irá perder todos os dados", vbYesNo, "Confirmação")
If MSG = vbYes Then
MsgBox "Cadastro Cancelado"


btnOK.Enabled = False
btnCancelar.Enabled = False
Activar
Call DesabilitaControles
Call HabilitaBotoesAlteracao
Call HabilitaBotoesNavegaçao
lblMensagem.Caption = Empty
lblMensagem1.Caption = Empty

With MultiPage1
.Pages(0).Enabled = True
.Pages(2).Enabled = False
.Pages(3).Enabled = False
End With
End If
End Sub
Muito grato.

Abraços
webmaster escreveu:Henry,

Eu resolveria do jeito simples, colocando um MsgBox no evento do botão cancelar, informando que se ele prosseguir, todos os dados serão perdidos e se deseja realmente continuar.

Resolve?


Henry-Systems
Colaborador
Colaborador
Mensagens: 96
Registrado em: Sáb Nov 26, 2011 1:05 pm
Localização: Rio Grande da Serra - São Paulo
Contato:

Re: Cadastro Entrevista RH - Ultima Versão

Mensagem por Henry-Systems »

Salve Webmaster.

Estou disponibilizando a última versão da entrevista de RH, com uns melhoramentos e novas inclusões tanto na tela de cadastro como na tela de pesquisa, uma delas é a questão da pesquisa entre datas e a exportação dos dados para o banco de dados expecifico em excel.

Se quiser substituir a versão do blog pode ficar à vontade.

Abarços
webmaster escreveu:Olá Henry,

Gostei bastante. Parabéns!

Permite que publique no blog? Faço questão de mencionar a autoria.

Forte abraço!
Anexos
Macro - RH - BDAccess.rar
Entrevista RH V05
(375.19 KiB) Baixado 797 vezes


Avatar do usuário
Valderei
Colaborador
Colaborador
Mensagens: 47
Registrado em: Qui Dez 27, 2012 9:57 pm
Localização: Caxias do Sul - RS

Re: Cadastro Entrevista RH

Mensagem por Valderei »

Boa tarde.
Estava olhando seu sistema Henry e lhe dou os parabéns.
Baixei ele mas não estou conseguindo acessar, qual o usuário e senha para poder entrar?

Obrigado.


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder