em várias telas do meu programa acontece a mesma coisa:
se alguém souber como resolver me ajude.
Esta tela e de cadastro de transportadora, depois que eu clico no botao de pesquisar transportadora e seleciono uma transportadora a minha tela some alguns campos, como mostrado abaixo.
eu utilizo este código no botao de pesquisar transportadora para fazer isso:
Private Sub cmdFind_Click()
Dim Escolhido As String
On Error GoTo lblErr
Escolhido = objTransportadora.Seleciona_Transportadora 'Aqui chama a tela já carregada para selecionar a transportadora
If Escolhido <> "" Then ' se eu tiver selecionado alguma transportadora ele vai executar o codigo abaixo
DBDataNovo1.Recordset.Requery ' este *DBDataNovo1.Recordset* é aquela barra de rolagem. o banco de dados e
' carregado por ele: DBDataNovo1_IniciaDb
DBDataNovo1.Recordset.Find ConvertSQL("CodTransportadora = " & Escolhido), , , 1
If DBDataNovo1.Recordset.EOF Then
If (DBDataNovo1.Recordset.RecordCount > 0) Then
DBDataNovo1.Recordset.MoveFirst
End If
End If
DBDataNovo1_Reposition ' seta as informacoes nos campos correspondentes
tabInformacoes.Tab = 0
End If
GoTo lblEnd
lblErr:
Data_Error_ADO Err.Number, Err.Description, Err.Source, Cnn.Errors
Resume lblEnd
lblEnd:
End Sub
Question
Ferretto
Pessoal, estou com uma dúvida:
em várias telas do meu programa acontece a mesma coisa:
se alguém souber como resolver me ajude.
Esta tela e de cadastro de transportadora, depois que eu clico no botao de pesquisar transportadora e seleciono uma transportadora a minha tela some alguns campos, como mostrado abaixo.
eu utilizo este código no botao de pesquisar transportadora para fazer isso:
Private Sub cmdFind_Click() Dim Escolhido As String On Error GoTo lblErr Escolhido = objTransportadora.Seleciona_Transportadora 'Aqui chama a tela já carregada para selecionar a transportadora If Escolhido <> "" Then ' se eu tiver selecionado alguma transportadora ele vai executar o codigo abaixo DBDataNovo1.Recordset.Requery ' este *DBDataNovo1.Recordset* é aquela barra de rolagem. o banco de dados e ' carregado por ele: DBDataNovo1_IniciaDb DBDataNovo1.Recordset.Find ConvertSQL("CodTransportadora = " & Escolhido), , , 1 If DBDataNovo1.Recordset.EOF Then If (DBDataNovo1.Recordset.RecordCount > 0) Then DBDataNovo1.Recordset.MoveFirst End If End If DBDataNovo1_Reposition ' seta as informacoes nos campos correspondentes tabInformacoes.Tab = 0 End If GoTo lblEnd lblErr: Data_Error_ADO Err.Number, Err.Description, Err.Source, Cnn.Errors Resume lblEnd lblEnd: End SubLink to comment
Share on other sites
1 answer to this question
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.