TEXTBOX ALIMENTADO POR RECORDSET

USUARIO.EXCLUIDOS 01/04/2004 09:44:36
#17961
é o seguinte.: Com o código abaixo consigo buscar no DM1 e carregar no txtDesc a descrição do material, se o mesmo existir no Banco. O problema é se ele não existir da a mensagem(No current record)como faço colocar em foco novamente o TxtDesc e edita-lo manualmente?

Private Sub TxtDesc_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim Desc As String
Set DB1 = OpenDatabase("C:\Estoque\Materiais.mdb")
Desc = "SELECT Descrição FROM Localizacao WHERE Código = '" & TxtCod.Text & "'"
Set TB1 = DB1.OpenRecordset(Desc)
TxtDesc.Text = TB1!Descrição
End Sub
USUARIO.EXCLUIDOS 01/04/2004 10:03:55
#17962 Resposta escolhida
Tente

Private Sub TxtDesc_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim Desc As String
Set DB1 = OpenDatabase("C:\Estoque\Materiais.mdb")
Desc = "SELECT Descrição FROM Localizacao WHERE Código = '" & TxtCod.Text & "'"
Set TB1 = DB1.OpenRecordset(Desc)
if desc.recordcount then
TxtDesc.Text = TB1!Descrição
end if
End Sub
USUARIO.EXCLUIDOS 01/04/2004 10:50:54
#17979
modifique para


Private Sub TxtDesc_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim Desc As String
Set DB1 = OpenDatabase("C:\Estoque\Materiais.mdb")
Desc = "SELECT Descrição FROM Localizacao WHERE Código = '" & TxtCod.Text & "'"
Set TB1 = DB1.OpenRecordset(Desc)

if desc.recordcount 0 then
TxtDesc.Text = TB1!Descrição
end if
End Sub
USUARIO.EXCLUIDOS 01/04/2004 13:34:15
#18038
Porque pediste desculpa?

Se deu tudo OK pode fechar o tópico
Tópico encerrado , respostas não são mais permitidas
Voltar