Ir para conteúdo
Fórum Script Brasil
  • 0

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


Guest --Christian --

Pergunta

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

Link para o comentário
Compartilhar em outros sites

10 respostass a esta questão

Posts Recomendados

  • 0

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!

Link para o comentário
Compartilhar em outros sites

  • 0
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

Link para o comentário
Compartilhar em outros sites

  • 0
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.

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,8k
×
×
  • Criar Novo...