[Resolvido]Controle de Visitas

Bom dia.
Estou montando um Cadastro de Visitas. Criei um formulário "Cadastro, entrada de Visitantes e saída de visitantes.
Não consigo que o formulario entrada e saída busque o nome no cadastro.
E não deixar que digitem qualquer nome no entrada e saída que não esteja no formulário cadastro.
Podem dar uma olhada no banco e fazer a alteração necessária?

Bom dia Jussamar,

Seja bem-vindo ao fórum!

Vou baixar teu exemplo e analisar.

[]'s

FIM

Bom dia Alexandre fico no seu aguardo. Obrigado

bom dia Jussamar,

Estou finalizando e te entrego hoje ainda.

[]'s

FIM

Jussamar, boa tarde !!!

Tomei a liberdade de fazer algumas alterações e preservei o que vc desenvolveu.

O sistema possui as seguintes telas:

Cadastro de Visitantes:


Este cadastro tem as seguintes validações:

- Função que verifica se o CPF é válido.
- Verifica se o CPF informado já está cadastrado
- Ao informar o CEP, o sistema já carrega os dados através de uma função que acessa uma API da ViaCEP (uma velha conhecida do fórum...rsss)
- Ao excluir o Visitante, o sistema exibe mensagem que haverá exclusão também dos registros de movimentação. (sugiro cautela...rss)


Movimentação de Visitantes:


Este cadastro tem as seguintes validações:
- Exibe a lista no combobox de crachás somente aqueles onde a movimentação possui Data/Hora de Saida
- Exibe a lista no combobox de Visitantes somente aqueles onde a movimentação possui Data/Hora de Saida


De modo geral, o sistema precisa de alguns ajustes, mas acredito que com este exemplo você consiga seguir adiante.

É isso.

Boa Sorte

[]'s

FIM

Alexandre Bom dia
O formulário Cadastro funciona perfeitamente. Fiz algumas modificações pq quando clicava em novo registro no formulário movimentação dava erro de depurar. Porém o único erro que tenho agora é quando é clico para registrar a saída. Ele registra, mas da erro de controle (foco).

Olá Jussamar,

Não sei as alterações que você fez, mas o arquivo que vc disponibilizou está com erro.




Verifique

[]'s

FIM

Segue o arquivo novamente. Como eu disse o problema está apenas na saída conforme as imagens acima.
Esta abrindo normal aqui para mim, faça a extração primeiro, não abra direto pelo sem descompactar.

Jussamar,

Ao abrir o sistema, pressione ALT+F11 simultaneamente para abrir o código. Em seguida, vá no menu Depurar>>Compilar Sicov e veja se dá algum erro.

Fiz os testes aqui e não gerou erro.

Observações: Um detalhe que esqueci de mencionar é não se esqueça de marcar a referencia abaixo para realizar a busca do CEP automatico:




[]'S

FIM

Deletei o meu banco que fiz as alterações e baixei o seu que vc enviou.

Ao dar entrada, clicando no botão adicionar novo(frm_movimento) já da erro.



Após mandar depurar aparece o erro



e Quando vai dar a saída aparece o erro abaixo

Ok...vou verificar o arquivo original.

[]'s

FIM

Jussamar,

Realmente, pra mim não tá gerando o erro, mas inclua a seguinte linha, conforme abaixo:




Provavelmente, não vai mais gerar o erro.

[]'s


FIM

Para dar entrada resolveu, agora só permanece quando dou a saída. Porém eu volto na tabela e está lá o registro salvo.

Quando clico no botão sair, aparece esse erro.

Faz o seguinte:
No código, vá no menu "Ferramentas>>Referencias" e manda um print.

OBS: Qual a versão do teu Office? Qual arquitetura? 32 ou 64 bits?

As referências estão corretas.
Se você compilou e não gerou nenhum erro, não era pra dar esse erro da propriedade "Dirty" do formulário.

Copie e cole o código abaixo, no botão sair do formulário:

Código:


Private Sub cmdSair_Click()
On Error GoTo trata_erro

    If Me.Dirty = True Then
        If MsgBox("Deseja realmente sair. As alterações realizadas serão desconsideradas.", vbQuestion + vbYesNo, "Confirma?") = vbYes Then
            Me.Undo
            DoCmd.Close acForm, Me.Name
            Exit Sub
        End If
    End If
   
    DoCmd.Close acForm, Me.Name
   
    Exit Sub

trata_erro:

    MsgBox "Erro gerado: " & Err.Number & " - " & Err.Description & "", vbCritical, "Erro"
    Exit Sub

End Sub



Ok deu certo obrigado. Só continua esse erro quando eu registro a Saída. O restante já está tudo certo.

Ok.
Quando gerar este ultimo erro, pressione ALT+PAUSE BREAK para cair na linha do erro. Em seguida, mande o print.

[]'s

FIM

Mantendo as teclas conforme mencionado, não executa nada e mantém na tela de erro do frm_Saida como já mandei acima

Alexandre bom dia, obrigado por ter me ajudado a solucionar o problema. Obrigado de verdade.