Cadastro Entrevista RH

[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

[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]

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

Olá Henry,

Gostei bastante. Parabéns!

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

Forte abraço!

[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

[Henry-Systems]

Buenas.

Já dei uma olha.

Ficou beleza, muito grato.

Abraços

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]

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.

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

[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]

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

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]

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

Olá Henry,

Gostei bastante. Parabéns!

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

Forte abraço!

[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.