Erro "Run-time error '424' Object Required

[Thiago Caires]

Olha... eu tenho uma programa que funciona e alguma penitenciarias....

ai como sempre esta mudando de diretores, me pediram para fazer um cadastro de diretor

eu elaborei esse cadastro mas está dando erro....

"Erro "Run-time error '424' Object Required"

a base se dados é em access a tabela da base de dados se chama "DIRETOR"....

eu preciso que quando o usuario clique no "incluir" a pessoa possa cadastrar um novo diretor...

tem um botão "gravar"

tem um botão para "cancelar"

tem um botão para "excluir"

e outro botão para sair...

e tem o campo para digitar "txtnome" para digitar o nome do proximo diretor e cadastrar...

vou colocar a programação a baixo espero que vocês possam me ajudar a achar o erro....

Private Sub txtnome_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
If KeyAscii = 13 Then
  
  Data1.RecordSource = "select * from diretor where esta='SIM'"
  Data1.Refresh
    
  Data1.RecordSource = "select * from diretor=' & txtnome.Text & " '"
  
   End If


End Sub


Private Sub cmdcancelar_Click()

Data1.Recordset.CancelUpdate
Data1.Refresh

cmdincluir.Enabled = True
cmdgravar.Enabled = False
cmdcancelar.Enabled = False
cmdexcluir.Enabled = True
cmdsair.Enabled = True
cmdlocalizar.Enabled = True
cmdimprimir.Enabled = True
Data.Enabled = True



cmdincluir.SetFocus

End Sub

Private Sub cmdexcluir_Click()

If MsgBox("Deseja Excluir: " & txtnome.Text & " da lista", vbYesNo + vbInformation, "Excluir ?") = vbYes Then
  Data.Recordset.Delete
  Data.Refresh
End If

End Sub

Private Sub cmdgravar_Click()

If txtnome.Text = "" Then
  MsgBox "Nome em Branco!", vbExclamation, "Atenção!"
  txtnome.SetFocus
 Exit Sub
End If

Data1.Recordset.Update
Data1.Refresh

cmdincluir.Enabled = True
cmdgravar.Enabled = False
cmdcancelar.Enabled = False
cmdexcluir.Enabled = True
cmdsair.Enabled = True
Data1.Enabled = True



cmdincluir.SetFocus

End Sub


Private Sub cmdincluir_Click()

Data1.Recordset.AddNew

cmdincluir.Enabled = True
cmdgravar.Enabled = True
cmdcancelar.Enabled = True
cmdexcluir.Enabled = False
cmdsair.Enabled = False
Data1.Enabled = False



txtnome.Text = "    "
txtnome.SetFocus

End Sub


Private Sub cmdsair_Click()
 Unload Me
End Sub
Private Sub Form_Load()
  
  var0b = Conexao(diretor, caminho_bd, "qpalzmMZN", False)
  
  
     End Sub

Agradeço desde já a todos!

Thiago Caires

Editado Março 30, 2009 por kuroi
Adicionar tag CODE

[kuroi]

em qual linha acontece esse erro??

[Thiago Caires]

Ele não me fala sóh dá esse erro....

"Erro "Run-time error '424' Object Required"

:(

[kuroi]

hum, mas como não fala??

você ta rodando a partir do .exe compilado?? você não ta rodando dentro do editor, apertando F5??

se você tiver rodando a partir do editor de codigo, quando aparece o erro, se você clicar debug, ele vai mostrar pra você a linha do erro (em amarelo).

Editado Março 31, 2009 por kuroi

[raphael_suporte]

isso ocorre em qual evento o que você está tentando rodar, pode ser alguma declaração de Variável...