Ao Fechar o formulário de login, verificar se campo códigoempresa do formulário cadastro de empresa tem valor, se tiver abrir formprincipal, se for null abrir formulário de cadastro da empresa para incluir dados...
2 participantes
Ao Fechar o formulário de login, verificar se campo códigoempresa é null
EltonCosta- Intermediário
- Respeito às regras :
Sexo :
Localização :
Mensagens : 65
Registrado : 02/02/2012
criquio- Moderador Global
- Respeito às regras :
Sexo :
Localização :
Mensagens : 11229
Registrado : 30/12/2009
- Código:
If IsNull(Me.NomeDoCampo) Or Me.NomeDoCampo.Value = "" Then
DoCmd.OpenForm "FormDeCadastr"
Else
DoCmd.OpenForm "OutroForm"
End If
.................................................................................
Meu novo site: www.vcssistemas.com.br Clique aqui e veja um vídeo que explica como fazer pesquisas no forum. DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo: 1 - faça uma cópia do aplicativo 2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar 3 - use o Compactar/Reparar 4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem) Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário. Positive as mensagens que achar útil, no canto superior direito delas. |
EltonCosta- Intermediário
- Respeito às regras :
Sexo :
Localização :
Mensagens : 65
Registrado : 02/02/2012
a verificação é na tblEmpresa e não no form, já q ele não está aberto...desculpem o erro...
criquio- Moderador Global
- Respeito às regras :
Sexo :
Localização :
Mensagens : 11229
Registrado : 30/12/2009
Tente com o DLookup:
- Código:
If IsNull(DLookup("NomeDoCampo", "NomeDaTabela", "Código=" & Me.Código)) Then
DoCmd.OpenForm "FormDeCadastr"
Else
DoCmd.OpenForm "OutroForm"
End If
.................................................................................
Meu novo site: www.vcssistemas.com.br Clique aqui e veja um vídeo que explica como fazer pesquisas no forum. DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo: 1 - faça uma cópia do aplicativo 2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar 3 - use o Compactar/Reparar 4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem) Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário. Positive as mensagens que achar útil, no canto superior direito delas. |
EltonCosta- Intermediário
- Respeito às regras :
Sexo :
Localização :
Mensagens : 65
Registrado : 02/02/2012
está dando erro, ao fechar o formulário "login" ele é pra executar o código, caso não tenha cadastro no "frmEmpresa", ele abre o formulário...Se tiver ele abre o "frmPrincipal"...o erro está dando no código cor laranja...
Private Sub Form_Close()
If IsNull(DLookup("CódigoEmpresa", "tblEmpresa", "Código=" & Me.Código)) Then
DoCmd.OpenForm "frmEmpresa"
Else
DoCmd.OpenForm "frmPrincipal"
End If
End Sub
Private Sub Form_Close()
If IsNull(DLookup("CódigoEmpresa", "tblEmpresa", "Código=" & Me.Código)) Then
DoCmd.OpenForm "frmEmpresa"
Else
DoCmd.OpenForm "frmPrincipal"
End If
End Sub
criquio- Moderador Global
- Respeito às regras :
Sexo :
Localização :
Mensagens : 11229
Registrado : 30/12/2009
Se o código for tipo texto, adicione aspas simples:
If IsNull(DLookup("CódigoEmpresa", "tblEmpresa", "Código='" & Me.Código & "'")) Then
.................................................................................
Meu novo site: www.vcssistemas.com.br Clique aqui e veja um vídeo que explica como fazer pesquisas no forum. DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo: 1 - faça uma cópia do aplicativo 2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar 3 - use o Compactar/Reparar 4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem) Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário. Positive as mensagens que achar útil, no canto superior direito delas. |
EltonCosta- Intermediário
- Respeito às regras :
Sexo :
Localização :
Mensagens : 65
Registrado : 02/02/2012
já mudei e não deu certo...desculpa a ignorância...
Convidad- Convidado
Olá Pessoal
Dando meu pitaco
Se o formulário que está aberto é o de login, acredito que seja o primeiro a ser aberto na aplicação, de onde vem o Me!código?
Lembrando que o formulário de login não tem código de empresa, pois é só para login.
O formulário cadastro também está aberto embaixo do formulário de login?
Abraços
Dando meu pitaco
Se o formulário que está aberto é o de login, acredito que seja o primeiro a ser aberto na aplicação, de onde vem o Me!código?
Lembrando que o formulário de login não tem código de empresa, pois é só para login.
O formulário cadastro também está aberto embaixo do formulário de login?
Abraços
criquio- Moderador Global
- Respeito às regras :
Sexo :
Localização :
Mensagens : 11229
Registrado : 30/12/2009
No caso de usuário, o amigo irá avaliar usuário e senha. Eu passei um modelo para ele na esperança de que o amigo tente solucionar o problema. Está fácil. O amigo já tem o DLookup para fazer a pesquisa. Agora, ele só precisa comparar usuário e senha. Se o amigo der uma pesquisadinha no uso do DLookup na ajuda do vba mesmo encontra muita coisa. Aqui no forum tambem.
Vamos lá amigão. Vamos resolver a questão
Vamos lá amigão. Vamos resolver a questão
.................................................................................
Meu novo site: www.vcssistemas.com.br Clique aqui e veja um vídeo que explica como fazer pesquisas no forum. DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo: 1 - faça uma cópia do aplicativo 2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar 3 - use o Compactar/Reparar 4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem) Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário. Positive as mensagens que achar útil, no canto superior direito delas. |
Conteúdo patrocinado
» Verificar formulário aberto e fechar!
» Fechar formulario sem passar por campo combo
» [Resolvido]Verificar registro duplicado em campo de formulário
» Cancelamento de campo obrigatório para conseguir fechar o formulário
» Como verificar cada campo do formulário antes de inserir nova linha de registro
» Fechar formulario sem passar por campo combo
» [Resolvido]Verificar registro duplicado em campo de formulário
» Cancelamento de campo obrigatório para conseguir fechar o formulário
» Como verificar cada campo do formulário antes de inserir nova linha de registro
|
|