Jump to content
Fórum Script Brasil
  • 0

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


Guest --Christian --
 Share

Question

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 to comment
Share on other sites

10 answers to this question

Recommended Posts

  • 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 to comment
Share on other 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 to comment
Share on other 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 to comment
Share on other sites

  • 0

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.

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share



  • Forum Statistics

    • Total Topics
      150.2k
    • Total Posts
      647.4k
×
×
  • Create New...