urente!! repeticion de datos combo

[lokoman]

Saludos!!!

Yo lo haria asi:

En el evento Load

Código vb:

'LIMPIAMOS LOS COMBOS
Combo4.Clear
Combo5.Clear
Combo6.Clear
Combo7.Clear
 
'CONECTAMOS EL QUERY
strSQL = "SELECT DISTINCT COD_R FROM SOLICITAR "
rsLogin.Open strSQL, cnn, adOpenDynamic, adLockOptimistic
 
'CARGAMOS EL COMBO 4
if rsLogin.eof=false then
do while not rsLogin.eof = true
Combo4.AddItem rsLogin!COD_R
rsLogin.movenext
loop
end if
 

Ahora para cargar los demas combos, en el evento CLICK del COMBO 4:

Código vb:

strSQL = "SELECT *  from funcionario where COD_R  ='" & COMBO4.TEXT & "'"
rsLogin.Open strSQL, cnn, adOpenDynamic, adLockOptimistic
                                    
Combo5.AddItem srLogin!sucursal
Combo6.AddItem srLogin!depto
Combo7.AddItem srLogin!nombre
 

NOTA: en tu codigo la segunda consulta es con el campo: "COD_F ", el COMBO 4 lo cargas con el campo: "COD_R", son campos distintos... si la consulta va con el campo: "COD_F":

Código vb:

'PRIMERO OBTENEMOS EL CAMPO "COD_F" CORRESPONDIENTE AL REGISTRO SELECCIONADO
strSQL = "SELECT DISTINCT COD_F FROM SOLICITAR WHERE COD_R='" & COMBO4.TEXT & "'"
rsLogin.Open strSQL, cnn, adOpenDynamic, adLockOptimistic
 
if rsLogin.eof=false then
strSQL = "SELECT *  from funcionario where COD_F  ='" & rsLogin!COD_F & "'"
rsLogin1.Open strSQL, cnn, adOpenDynamic, adLockOptimistic
 
if rsLogin1.eof=false then
do hile not rsLogin1.eof=true                                    
Combo5.AddItem rsLogin1!sucursal
Combo6.AddItem rsLogin1!depto
Combo7.AddItem rsLogin1!nombre
rsLogin1.movenext
loop
end if
 

Prueba a ver!!!