Porque dados colocado no formulário não fica salvo no próprio formulário

Pessoal desculpa em estar abrindo mais 1 tópic sobre este assunto ;
Acontece que irei apresentar hoje este documento para meu chefe

Tava uma belesa o form só que paro de salvar denovo , tentei mecher nas relações más não consegui alguem pode me ajudar POR FAVOR
DOWNLOAD DO MEU FORMULÁRIO

Foi feito um novo filtro.
segue o link https://www.dropbox.com/s/k6q47uzi9qruu4p/Formul%C3%A1rio%20Geral_Old_II.zip

espero ter ajudado

Obs.: retirar nas linhas de código o PTRSAFE coloquei porque meu sistema é 64 bits

Oque você fez para resolver o problema ?
Tentei  nas chave primaria e não consegui
___________________________________________________________--
Tem como deixar o botão filtro TRAVADO com o nome do funcionário para vizualização

Na fonte de registro coloquei a tabela tbFuncionario

coloquei outro filtro para pesquisa quando você colocar para ver o código vera o que foi feito

o form somente vê os registro caso vc selecionar pelo filtro.

Não tem fazer que no filtro ao selecionar o funcionario o nome dele fique a mostra ?

coloque o campo FUNCIONARIO em destaque, dai deve ficar como você quer.
caso não seja isso faça o modelo em um bd e poste que eu te ajudo

Poderia me responder essa pérgunta amigo ?
Tópico

mesmo problema do campo funcionario do topico acima. No campo FONTE DE REGISTRO coloque tbfuncionario.

qual o por quê do id_endereco e endereco.

Obs: não se coloca acento, cedilha nos campos da tabela. assim evita-se muitos problemas

O que deseja que seja feito que eu te ajudo seja especifico.

Abraços

Oque eu quero faze é que ao clicar em filtrar o nome fiquue amostra ,
porque quando você clica em filtra , ele filtra porém o campoo fica em branco '

Tenta usar esse codigo no seu botão de pesquisa

Private Sub Bt_Rasao_Click()
Dim strSearch As String
Dim mysql As String, MyCriteria As String, MyRecordSource As String
strSearch = InputBox$("Para consultar digite a RASÃO SOCIAL ", "Consulta por Rasão Social")
If Not IsNull(strSearch) Then
If Len(strSearch) > 0 Then
DoCmd.OpenForm "frmCliente", A_NORMAL, , "[RazaoSocialcli] Like '*" & strSearch & "*'", A_EDIT, A_NORMAL
mysql = "SELECT * FROM tblClientes WHERE "
MyCriteria = ""
If Me.RecordsetClone.RecordCount = 0 Then
MsgBox "E M P R E S A N Ã O C A D A S T R A D A ! ", 16, "frmClienteCsRasao - CONFECÇÃO"
End If
End If
End If
End Sub

Bom , muito bom.
É possivel criar um formulário com 2 botões para localizar funcionario ;
Como : Localizar pelo nome e Localizar pelo CPF.
___
Eu tentei aqui só que da um erro na linha RECORDSET

adapte o codigo conforme sua necessidade

Bom , muito bom.
É possivel criar um formulário com 2 botões para localizar funcionario ;
Como : Localizar pelo nome e Localizar pelo CPF.
___
Eu tentei aqui só que da um erro na linha RECORDSET

Código:

If Me.RecordsetClone.RecordCount = 0 Then

sim. no meu sistema eu fiz para cada botão de pesquisa um codigo. tipo o que te mandei só mudei onde pesquisar.

tipo FUNCIONARIO

Código:


rivate Sub BtFUNCIONARIO_Click()
Dim strSearch As String
Dim mysql As String, MyCriteria As String, MyRecordSource As String
strSearch = InputBox$("Para consultar digite o NOME DO FUNCIONARIO ", "Consulta por Rasão Social")
If Not IsNull(strSearch) Then
If Len(strSearch) > 0 Then
DoCmd.OpenForm "[b]frmFUNCIONARIO[/b]", A_NORMAL, , "[FUNCIONARIO] Like '*" & strSearch & "*'", A_EDIT, A_NORMAL
mysql = "SELECT * FROM tblFUNCIONARIO WHERE "
MyCriteria = ""
If Me.RecordsetClone.RecordCount = 0 Then
MsgBox "E M P R E S A N Ã O C A D A S T R A D A ! ", 16, "frmClienteCsRasao - CONFECÇÃO"
End If
End If
End If
End Sub


tipo CPF

Código:


rivate Sub BtCPF_Click()
Dim strSearch As String
Dim mysql As String, MyCriteria As String, MyRecordSource As String
strSearch = InputBox$("Para consultar digite o CPF DO FUNCIONARIO ", "Consulta por Rasão Social")
If Not IsNull(strSearch) Then
If Len(strSearch) > 0 Then
DoCmd.OpenForm "[b]frmFUNCIONARIO[/b]", A_NORMAL, , "[CPF] Like '*" & strSearch & "*'", A_EDIT, A_NORMAL
mysql = "SELECT * FROM tblFUNCIONARIO WHERE "
MyCriteria = ""
If Me.RecordsetClone.RecordCount = 0 Then
MsgBox "E M P R E S A N Ã O C A D A S T R A D A ! ", 16, "frmClienteCsRasao - CONFECÇÃO"
End If
End If
End If
End Sub


Euc onsegui criar os 2 botões.
Eu queria colocar esses 2 botões em 1 formulário separado. do
ControleDeFuncionario
Esses 2 otões iria pesquisar o funcionario no FControleDeFuncionario
Só que da um erro no Recordset

está assim o código

FUNCIONARIO

Código:

Option Compare Database
Option Explicit
Private Sub BtFUNCIONARIO_Click()
Dim strSearch As String
Dim mysql As String, MyCriteria As String, MyRecordSource As String
strSearch = InputBox$("Para consultar digite o NOME DO FUNCIONARIO ", "Consulta por Rasão Social")
If Not IsNull(strSearch) Then
If Len(strSearch) > 0 Then
DoCmd.OpenForm " FControleDeFuncionario", A_NORMAL, , "[FUNCIONARIO] Like '*" & strSearch & "*'", A_EDIT, A_NORMAL
mysql = "SELECT * FROM tbFuncionario WHERE "
MyCriteria = ""
[color=#ffcc33]If Me.RecordsetClone.RecordCount = 0 Then[/color]
MsgBox "E M P R E S A N Ã O C A D A S T R A D A ! ", 16, "frmClienteCsRasao - CONFECÇÃO"
End If
End If
End If
End Sub

CPF

Código:

Private Sub BtCPF_Click()
Dim strSearch As String
Dim mysql As String, MyCriteria As String, MyRecordSource As String
strSearch = InputBox$("Para consultar digite o CPF DO FUNCIONARIO ", "Consulta por Rasão Social")
If Not IsNull(strSearch) Then
If Len(strSearch) > 0 Then
DoCmd.OpenForm "FControleDeFuncionario", A_NORMAL, , "[CPF] Like '*" & strSearch & "*'", A_EDIT, A_NORMAL
mysql = "SELECT * FROM tbFuncionario WHERE "
MyCriteria = ""
[color=#ffcc33]If Me.RecordsetClone.RecordCount = 0 Then[/color]
MsgBox "E M P R E S A N Ã O C A D A S T R A D A ! ", 16, "frmClienteCsRasao - CONFECÇÃO"
End If

End If
End If
End Sub

me passa o link do bd pra eu ver, mas tenta tirar essa linha e ver se funciona

Option Explicit

Como seria essa separação que vc quer?
Tem como me explicar ou ja tem no bd o que vc quer

Eu gostaria que ficasse assim ;

, no formulário ControleDeFuncionario teria 1 botão chamado Localizar Funcionário neste botão teria um comando para abrir um formulário
que teria 2 botões LOCALIZAR FUNCIONARIO PELO NOME E LOCALIZAR FUNCIONARIO PELO CPF , quando as pessoas colocar os dados ( O NOME DO FUNC OU O CPF DELE ) , e clicava em OK abriria o formulário ControleDeFuncionario que apareceria os dados do funcionario.

OBS : De uma olhada nos formulários existe um form com o nome Localizar Funcionario este é o formulário mestre desta operação !