CARREGAR TEXT CLICANDO NO COMBO

RICKSOUSA 15/09/2012 14:28:50
#409747
oq estou tentando fazer é o seguinte, clicar no combo e carregar os dados nos text.

estou fazendo da seguinte maneira no evento Keypress do combobox:


[txt-color=#0000f0]Dim sSQL As String
Dim RS As Recordset
sSQL = [Ô]SELECT * FROM Usuarios[Ô]
Conecta True
Set RS = Conexao.Execute(sSQL)
If KeyAscii = 13 Then
LimpaCampos
With RS
If .EOF Then
.Close
Set RS = Nothing
Conecta False
MsgBox [Ô]Usuário não localizado na base de dados[Ô], vbInformation, [Ô]RR[Ô]
cmdCancelar_Click
cbocadastrados.SetFocus
Exit Sub
End If
Do Until .EOF
LimpaCampos
lblCodigo.Caption = .Fields([Ô]Codigo[Ô])
txtNome.Text = .Fields([Ô]Usuario[Ô])
cboFuncao.Text = .Fields([Ô]Funcao[Ô])
txtSenha.Text = .Fields([Ô]Senha[Ô])
txtConfSenha.Text = .Fields([Ô]Senha[Ô])
.MoveNext
Loop
.Close
Set RS = Nothing
End With
End If
Conecta False[/txt-color]

mais não estou tendo exido, alguem pode me da uma sugestão do que eu posso fazer para acertar essa parte?
AZORSCA 15/09/2012 14:42:48
#409749
tenta fazer como abaixo.

No lugar do Combousuários vc coloca o nome do seu combo.

Espero ter ajudado. Abraços.


Dim sSQL As String
Dim RS As Recordset
sSQL = [Ô]SELECT * FROM Usuarios Where usuario=[ô][Ô] & ComboUsuários.text & [Ô][ô][Ô][Ô]
Conecta True
Set RS = Conexao.Execute(sSQL)
If KeyAscii = 13 Then
LimpaCampos
With RS
If .EOF Then
.Close
Set RS = Nothing
Conecta False
MsgBox [Ô]Usuário não localizado na base de dados[Ô], vbInformation, [Ô]RR[Ô]
cmdCancelar_Click
cbocadastrados.SetFocus
Exit Sub
End If
Do Until .EOF
LimpaCampos
lblCodigo.Caption = .Fields([Ô]Codigo[Ô])
txtNome.Text = .Fields([Ô]Usuario[Ô])
cboFuncao.Text = .Fields([Ô]Funcao[Ô])
txtSenha.Text = .Fields([Ô]Senha[Ô])
txtConfSenha.Text = .Fields([Ô]Senha[Ô])
.MoveNext
Loop
.Close
Set RS = Nothing
End With
End If
Conecta False
MARCELO.TREZE 15/09/2012 14:43:08
#409750 Resposta escolhida
assim colega

Dim sSQL As String
Dim RS As Recordset
sSQL = [Ô]SELECT * FROM Usuarios [txt-color=#0000f0]WHERE usuario = [ô][Ô] & Combo.List(Combo.Listindex) & [Ô][ô][Ô][/txt-color]Conecta True
Set RS = Conexao.Execute(sSQL)
If KeyAscii = 13 Then
LimpaCampos
With RS
If .EOF Then
.Close
Set RS = Nothing
Conecta False
MsgBox [Ô]Usuário não localizado na base de dados[Ô], vbInformation, [Ô]RR[Ô]
cmdCancelar_Click
cbocadastrados.SetFocus
Exit Sub
End If
Do Until .EOF
LimpaCampos
lblCodigo.Caption = .Fields([Ô]Codigo[Ô])
txtNome.Text = .Fields([Ô]Usuario[Ô])
cboFuncao.Text = .Fields([Ô]Funcao[Ô])
txtSenha.Text = .Fields([Ô]Senha[Ô])
txtConfSenha.Text = .Fields([Ô]Senha[Ô])
.MoveNext
Loop
.Close
Set RS = Nothing
End With
End If
Conecta False
RICKSOUSA 15/09/2012 14:50:56
#409751
Obrigado AZORSCA e MARCELO eu testei as duas e funcionarão perfeitamente como eu precisava, mais a resposta do marcelo esta mais precisa pq tipo se eu digitar algo no combo vai dar um erro, mais da forma que o marcelo enviou ele pega do list.index ou seja do valor que tiver no combobox mais eu gostaria de dar a pontuação para os dois.
Tópico encerrado , respostas não são mais permitidas
Voltar