Boa tarde comunidade!
Venho por este meio colocar uma duvida que me surgiu....eu tenho um frm de Login e fiz um outro agora de alteração de palavra-chave, para quando houver utilizadores novos ou o administrador alterar a palavra-chave o utilizador ao fazer login seja alterada por ele a palavra-chave.
Dessa forma o frm de alteração da Palavra-chave é um frm modal (popUp).
Dessa forma quero que ele seja aberto automaticamente para isso coloquei no VBA o seguinte codigo no frm do Login:
" Private Sub cmdLogin_Click()
Dim X As Byte
Dim strUtilizadores As String
Dim rstPrimeiraVez As Recordset
X = BuscaCodigo()
If X = 1 Then
If IsNull(txtCodigo) Then
MsgBox "Deve introduzir o código do utilizador !", vbCritical + vbOKOnly, glbNomeApp
txtCodigo.SetFocus
Exit Sub
End If
If IsNull(txtChave) Then
MsgBox "Deve introduzir a chave utilizador !", vbCritical + vbOKOnly, glbNomeApp
txtChave.SetFocus
Exit Sub
End If
If strUtilizadores = "Select Utilizadores, Nome, PalavraChave, Departamento, Email, Administrador, PrimeiraVez" Then
FROM ("tblUtilizadores")
WHERE Utilizadores = txtCodigo
Set rstPrimeiraVez = CurrentDb.Execute(strUtilizadores)
End If
End Sub"
Sei que tenho de colocar isto: " If "AlterarPalavraChave" Then
DoCmd.OpenForm "frmAlterarPalavraPasse", acNormal, , , acFormPropertySettings
Exit Sub"
Para poder ir buscar o frm mas não sei onde colocar
Mas ele não esta funcionando alguem me pode ajudar? Obrigado!
Venho por este meio colocar uma duvida que me surgiu....eu tenho um frm de Login e fiz um outro agora de alteração de palavra-chave, para quando houver utilizadores novos ou o administrador alterar a palavra-chave o utilizador ao fazer login seja alterada por ele a palavra-chave.
Dessa forma o frm de alteração da Palavra-chave é um frm modal (popUp).
Dessa forma quero que ele seja aberto automaticamente para isso coloquei no VBA o seguinte codigo no frm do Login:
" Private Sub cmdLogin_Click()
Dim X As Byte
Dim strUtilizadores As String
Dim rstPrimeiraVez As Recordset
X = BuscaCodigo()
If X = 1 Then
If IsNull(txtCodigo) Then
MsgBox "Deve introduzir o código do utilizador !", vbCritical + vbOKOnly, glbNomeApp
txtCodigo.SetFocus
Exit Sub
End If
If IsNull(txtChave) Then
MsgBox "Deve introduzir a chave utilizador !", vbCritical + vbOKOnly, glbNomeApp
txtChave.SetFocus
Exit Sub
End If
If strUtilizadores = "Select Utilizadores, Nome, PalavraChave, Departamento, Email, Administrador, PrimeiraVez" Then
FROM ("tblUtilizadores")
WHERE Utilizadores = txtCodigo
Set rstPrimeiraVez = CurrentDb.Execute(strUtilizadores)
End If
End Sub"
Sei que tenho de colocar isto: " If "AlterarPalavraChave" Then
DoCmd.OpenForm "frmAlterarPalavraPasse", acNormal, , , acFormPropertySettings
Exit Sub"
Para poder ir buscar o frm mas não sei onde colocar
Mas ele não esta funcionando alguem me pode ajudar? Obrigado!