COMBOBOX REPETE

NILTON.VIANNA 21/02/2012 01:29:46
#395155
Desculpem amigos não postei minha duvida
Tenho um ComboBox que faz a pesquisa na tabela
Toda vez que refaço a pesquisa ele repete o mesmo item
Grato
NILTON.VIANNA 21/02/2012 01:31:18
#395156

Private Sub cboFornece_Click()
Set rsForneces = New ADODB.Recordset
rsForneces.Open [Ô]Select Nome from Cad_Fornece where Nome = [ô][Ô] & Me.cboFornece & [Ô][ô] order by Nome[Ô], CnSql, adOpenKeyset, adLockOptimistic
If rsForneces.EOF <> True And rsForneces.BOF <> True Then
Me.cboFornece = rsForneces.Fields([Ô]Nome[Ô])
End If
rsForneces.Close
End Sub
Private Sub cboFornece_GotFocus()
Set rsForneces = New ADODB.Recordset
rsForneces.Open [Ô]Select Nome from Cad_Fornece[Ô], CnSql, adOpenKeyset, adLockOptimistic
While Not rsForneces.EOF
cboFornece.AddItem rsForneces!nome
rsForneces.MoveNext
Wend
rsForneces.Close
End Sub
NILTON.VIANNA 21/02/2012 09:30:04
#395160
Já usei isso só quando faço alterações ele apaga o campo depois não sei mais qual era ???
NILTON.VIANNA 21/02/2012 11:08:09
#395166

Seguinte tem um form com os campos produto, marca, fornecedor
No campo fornecedor usei campo combobox ligado na tabela fornecedores
No caso de alteração de algum campo ele limpa o combobox
Depois o cliente não sabe mais qual foi...

Mais ou menos isso
Grato
NILTON.VIANNA 21/02/2012 15:42:44
#395200

Valeu MACYSZYN

é isso mesmo

Obrigado
Tópico encerrado , respostas não são mais permitidas
Voltar