SETFOCUS

USUARIO.EXCLUIDOS 20/04/2004 11:41:17
#21554
Amigos, não consigo dar o setFocus para o TxtDataLocacao, da a mensagem de erro:(erro não especifico). Onde estou errando?

Private Sub TxtRegistro_AfterUpdate()
Dim Desc As String
Set banco = OpenDatabase("C:\Estoque\Lcf.mdb")
Desc = "SELECT Endereco,Aluguel,Refere,Proprietario,Tipo FROM Imoveis WHERE Codigo = '" & TxtRegistro.Text & "'"
Set tbImoveis = banco.OpenRecordset(Desc)

If tbImoveis.RecordCount = 0 Then
MsgBox "Imóvel não casdastrado. Favor efetuar o cadastro!", vbInformation, " Aviso ao usuário"
TxtRegistro.SetFocus
Exit Sub
End If

TxtLocador1.Text = tbImoveis!Proprietario
TxtEndereco1.Text = tbImoveis!Endereco
TxtValor1.Text = tbImoveis!Aluguel
TxtTipo.Text = tbImoveis!Tipo
TxtCarac.Text = tbImoveis!Refere


TxtLocador1.Enabled = False
TxtEndereco1.Enabled = False
TxtValor1.Enabled = False
TxtTipo.Enabled = False
TxtCarac.Enabled = False
TxtDataLocacao.SetFocus
End Sub
USUARIO.EXCLUIDOS 20/04/2004 11:46:31
#21558 Resposta escolhida

Quias são os valores das propriedades do TxtDataLocacao no momento da execução do SetFocus?
- Enabled
- Locked
- Visible
USUARIO.EXCLUIDOS 20/04/2004 12:14:43
#21593

Como o Luis perguntou, qual é o tipo de controle TxtRegistro? é um TextBox, um Label, ComboBox, DataGrid?

E quais são os valores das propriedades do TxtDataLocacao?

Enabled = True ou False?
Visible = True ou False?
Tópico encerrado , respostas não são mais permitidas
Voltar