(Resolvido) Erro Em Tempo De Execução '2450'

[Guest --Christian --]

Tenho um formulário chamado Cadastrodefuncionarios, e para poder cadastrar os funcionários eu criei outro formulario chamado de 'inclusãofuncionarios' ate então tudo funciona bem, mas no final de tudo coloquei para abrir o formulario com o funcionário referido, mas então da este erro '' ERRO EM TEMPO DE EXECUÇÃO '2450'

O Programa Tal não pode localizar o formulário 'cadastrodefuncionarios' referido em uma expressão de macro ou código do visual basic'

a expressão é a seguinte

[Forms]![Cadastrodefuncionarios]![CódigoDoFuncionário] = "000" + Me![CPF]

andei verificando ele ate cadastra o funcionário mas não abre o formulário.

Se poder me Ajudar

Agradeco

[MrMALJ]

Sim você está utilizando esta expressão aonde?

[Guest Visitante]

desculpe mas não entendi?

[MrMALJ]

Você está executando isso, numa consulta, num objeto não acoplado ou num código?

[Guest --visitante --]

num código.

[MrMALJ]

tente assim (lembrando que o formulário Cadastrodefuncionarios tem que estar aberto!):

Forms!Cadastrodefuncionarios!CódigoDoFuncionário.value = "000" & Me.CPF

É desanconselhável utilizar nome de objetos com acentuação ou espaços!

[Guest Visitante]

""ai esta todo o codigo, na verdade seria para funcionar assim: eu tenho um formulário que se chama "cadastrodefuncionarios" e nele tem um botao de cadastro ou seja para incluir um novo,

o codigo deste que inclui os funcionários segue abaixo, ele ate cadastra e não da mais o erro, mas ele o form "cadastrodefuncionarios" não vai ao funcionarios que cadastrei antes.

se poder me ajudar"""

Private Sub OK_Click()

Dim mdb As Database, ARQDADOS As Recordset

Date = Date

Set mdb = CurrentDb

Me![NomeFun] = Trim(Me![NomeFun])

Me![CPF] = Trim(Me![CPF])

If Me![NomeFun] > "" Then

If (Not IsNull(Me![CPF])) Then

Set ARQDADOS = mdb.OpenRecordset("select * from Funcionários where CódigoDoFuncionário='000" + Me![CPF] + "'")

If ARQDADOS.BOF Then

With ARQDADOS

.AddNew

![CódigoDoFuncionário] = Me![CPF]

![Nome] = Me![NomeFun]

![CPF] = Me![CPF]

![Empresa] = Me![Empresa]

![RG] = Me![RG]

![EstadoCivil] = Me![Combinação127]

![TitulodeEleitor] = Me![TitulodeEleitor]

![Escolaridade] = Me![Combinação129]

![Dtnasc] = Me![Data de Nascimento]

![DATAADMISSAO] = Me![DATAADMISSAO]

![salário] = Me![salário]

![NúmeroDoPis] = Me![NúmeroDoPis]

![CarteiradeReservista] = Me![CarteiradeReservista]

![NúmeroDaCarteiraDeTrabalho] = Me![NúmeroDaCarteiraDeTrabalho]

![serie] = Me![serie]

![serie] = Me![Combinação119]

![Observações] = Me![Observações]

![Cargo] = Me![Cargo]

![dtcad] = Date

.Update

End With

Forms!cadastrodefuncionarios!CPF.Value = Me.CPF

DoCmd.Close

Else

MsgBox ("Código já Cadastrado")

Me!CPF.SetFocus

End If

End If

End If

End Sub

[MrMALJ]

ummmm deixa ver se entendi você tá querendo consultar, dados já cadastrados?

Se for aqui no forum tem uns tópicos que devem ter isso, utilizando o metodo findfirst.

[Guest --visitante --]

Na verdade assim

eu entro dentro form "cadastrodefuncionarios" e la dentro deste form eu clico em incluir um novo, dai ele abre o form "inclusaodefuncionarios", eu coloco todos os dados, clico em ok, ele cadastra o novo e tudo,e mesmo assim o form "cadastrodefuncionarios" fica aberto, mas ao termino da inclusao do novo ele não me redireciona a este novo cadastrado.

[MrMALJ]

Ummmm não entendi muito bem este ultimo post, mais como você está utilizando ADO para se conectar as tabelas você terá que usar ADO para se movimentar dentro dos registros.

[Guest --visitante --]

Muito obrigado

era uma rateada minha.

já consegui fazer

valeu

Obrigadao