Tammy
|
DUQUE DE CAXIAS
RJ - BRASIL
|
|
Postada em 11/12/2009 12:03 hs
Então, eu estou fazendo um sistema bem simples pra apresentar como trabalho na escola...
é o sistema de uma agência de empregos
na tela de admissão do candidato tem o código de admissão , daí eu seleciono o cpf do candidato e automáticamente deveria mostrar o nome da pessoa em uma Label, mas isso não tá acontecendo, em seguida eu escolho o código da vaga de emprego e deveria aparecer a descrição [faxineiro, professor] mas isso também não ocorre... e a data da admissão também não está funcionando... e nem a quantidade de vagas está diminuindo... tem tanto erro T_T
me ajuda aí!
abaixo, código do botão admitir que está dando vários erros:
Private Sub btnadmitir_Click()
Admissao.Index = "Indcodigoadm"
Admissao.Seek "=", cmbcodigoadm.Text
If Not Admissao.NoMatch Then
MsgBox "Candidato já Contratado!", vbInformation, "cadastro"
Else
Admissao.AddNew
Admissao("codigoadm") = cmbcodigoadm.Text
Admissao("cpf") = cmbcpf.Text
Admissao("nome") = lblnome.Caption
Admissao("codigovaga") = cmbcodigovaga.Text
Admissao("descriçao") = lbldescricao.Caption
Admissao.Update
cmbcodigoadm.AddItem cmbcodigoadm.Text
vagas.Edit
vagas("vagas") = vagas("vagas") - 1
vagas.Update
MsgBox "Admissão Concluída!", vbInformation, "cadastrar"
End If
End Sub
|
|
|
|
|
|
PH1959
|
SÃO JOSÉ DOS CAMPOS
SP - BRASIL
|
|
Postada em 11/12/2009 16:25 hs
vc poderia detalhar mais? por ex tipo de conexão e tipo de bd usado? |
|
|
|
|
|
Postada em 13/12/2009 10:56 hs
ESTOU PENSANDO!!! HÁ JÁ VI O ERRO!!! |
|
TÓPICO EDITADO
|
|
|
|
|
|
Postada em 13/12/2009 11:05 hs
TAMMY ME DESCULPE MAIS OLHANDO MELHOR O SEU CÓDIGO PERCEBI AONDE AONDE VC ESTA ERRANDO!!! TAMMY uma das coisas que vc está deixando de fora é de utilizar o comando "on ERROR goto erro", este comando tem a finalidade de mostrar os erros acontecidos lá no BD, tanto como duplicata de registros e os demais! Percebi no seu comando que vc está tentanto achar os erros, através de outras codificações. Tente fazer deste jeito: Private Sub btnadmitir_Click()
on error goto erro
Admissao.AddNew
'procure mudar os objetos "combobox" para caixas de textos "TEXTBOX" 'tente também utilizar o objeto DATA 'OBSERVE QUE OS NOMES QUE ESTÃO DEPOIS DE (!), INDICAM OS CAMPOS NO BD QUE IRÃO RECEBER OS DADOS DAS TEXTBOX. INDEQUE QUAIS OS CAMPOS IRRÃO RECEBER OS DADOS DAS TEXTBOX!!!
data_Admissao!codigoadm = txt_codigoadm.Text
data_Admissao!cpf = txt_cpf.Text
data_Admissao!nome = txt_nome.text
data_Admissao!codigovaga = txt_codigovaga.Text
data_Admissao!descriçao = txt_descricao.text
data_Admissao.Update
'Estes códigos são apenas para inclusão de dados dentro do BD 'Crie outro comand button só para edição (EDIT) dos dados, pois vc estava tentando fazer tudo pelo mesmo botão e ISSO NÃO POODEE! 'o erro 3021, ira te avisar sempre que um cadastro já for existente no seu BD erro: if err = 3021 then msgbox "Este funcionario já exite", vbinformation + vboknoly, "INFORMAÇÃO" else msgbox "Contate o administrador do sistema", vbcritical + vbokonly, "ERRO" end if End Sub
|
|
TÓPICO EDITADO
|
|
|
|
Tammy
|
DUQUE DE CAXIAS
RJ - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 13/12/2009 15:19 hs
eu fiz o que você disse!
daí apareceu o seguinte:
Compile Error:
Label Not Defined
Label não definida? o que isso quer dizer?
ain, to entrando em desespero.. preciso entregar o projeto quarta feira....
|
|
|
|
|
|
Postada em 15/12/2009 13:36 hs
Algum campo que não aceita nulo, ou vazio e não está definido, tenta assim se continuar o erro, é que não aceita vazio. Admissao.AddNew
Admissao("codigoadm") = "" & cmbcodigoadm.Text
Admissao("cpf") = "" & cmbcpf.Text
Admissao("nome") = "" & lblnome.Caption
Admissao("codigovaga") = "" & cmbcodigovaga.Text
Admissao("descriçao") = "" & lbldescricao.Caption
Admissao.Update Agora amigo, rode o programa em projeto com o Debug, ele vai dar Break em cima do erro. vlu//
|
|
|
|
