busca

[bocafeina 0]

boa tarde

Bom sou novo em programação mas quando eu vi o visual basic gostei muito mas estou como um problema. Gostária de fazer uma pesquisa que me retornace os valores nos textbox do form mas ja tentei milhares de coisas e não da certo ele não retorna ou da algum erro. O banco de dados fiz através do objeto data e no visual data manager segue abaixo o código e uma imagen pra verem se conseguem me ajudar.

desde já muito obrigado

 

Private Sub cmd_busca_click()
Dim pesquisa As String
pesquisa = InputBox("Número da op", "Busca no Cadastro")
If pesquisa = "" Then
Data1.Recordset.FindFirst "op= &&pesquisa&"""
Exit Sub
Else
If Data1.Recordset.NoMatch Then
MsgBox "Op não localizado", vbInformation, "Cadastro de Ops"
Exit Sub
End If
End If
End Sub

Private Sub cmd_novo_Click()
Txt_op.Enabled = True
txt_referencia.Enabled = True
txt_valortotaldolote.Enabled = True
txt_valorporpeça.Enabled = True
txt_dataentrada.Enabled = True
txt_datasaida.Enabled = True
txt_observacoes.Enabled = True
txt_quantidadedepeças.Enabled = True
cmd_salvar.Enabled = True
cmd_excluir.Enabled = True
Data1.Recordset.AddNew
Txt_op.SetFocus
End Sub

Private Sub cmd_sair_Click()
Unload Me
End Sub

Private Sub cmd_salvar_Click()
Data1.UpdateRecord
MsgBox "Salvo com sucesso", vbInformation, "cadastramento"
Txt_op.Enabled = True
txt_referencia.Enabled = True
txt_valortotaldolote.Enabled = True
txt_valorporpeça.Enabled = True
txt_dataentrada.Enabled = True
txt_datasaida.Enabled = True
txt_observacoes.Enabled = True
txt_quantidadedepeças.Enabled = True
cmd_salvar.Enabled = True
cmd_novo.Enabled = True
cmd_busca.Enabled = True
End Sub

Private Sub cmd_excluir_Click()
Dim exclui As String
exclui = MsgBox("Confirmar exclusão", vbQuestion + vbYesNo, "procedimento de exclusao")
If exclui = vbYes Then
	If Data1.Recordset.EOF Or Data1.Recordset.BOF Then
	Else
	End If
Txt_op.Enabled = False
txt_referencia.Enabled = False
txt_valortotaldolote.Enabled = False
txt_valorporpeça.Enabled = False
txt_dataentrada.Enabled = False
txt_datasaida.Enabled = False
txt_observacoes.Enabled = False
txt_quantidadedepeças.Enabled = False
cmd_salvar.Enabled = False
cmd_excluir.Enabled = True
cmd_novo.Enabled = True
cmd_busca.Enabled = True
End If
End Sub

Private Sub frm_ordemproducao_Load()
Txt_op.Enabled = False
txt_referencia.Enabled = False
txt_valortotaldolote.Enabled = False
txt_valorporpeça.Enabled = False
txt_dataentrada.Enabled = False
txt_datasaida.Enabled = False
txt_observacoes.Enabled = False
txt_quantidadedepeças.Enabled = False
cmd_salvar.Enabled = False
cmd_excluir.Enabled = False
End Sub

[Claudio Neto 3]

Você configurou as propriedades datamember e datafild de todas as suas text para receberem os dados do banco