No me muestra los datos que quiero

[gasuton]

Buenas noches a todos, tengo un problema con un proyecto que estoy haciendo:

Tengo que hacer un form de unidades de medidas con sub unidades que se guarden en una DB de access, esto ya lo hice sin problemas el tema que tengo aqui es que a la hora de hacer mis subunidades tengo que reprsentar la relacion de las mismas, esto es por ejempo "1 KG = 1000 Gr."

Para hacer esto hice el siguientye codigo:

Código:

Private Sub Form_Load()

coef.Text = "1 '" & DataCombo1.DataField & "' = '" & relauni(1).DataField & "' '" & Text1(0).DataField & "'"

End Sub

El problema es que en mi text me muestra lo siguiente:

1 'selctunidadmaest' = 'relacion' 'nombuni'

Basicamente lo que esta entre las comillas simples es el titulo de la columna de la tabla donde estan los datos.

[lokoman]

Hola!
Y si usas la propiedad TEXT en vez de DATAFIELD?

[gasuton]

Iniciado por lokoman

Hola!
Y si usas la propiedad TEXT en vez de DATAFIELD?

mmmm que extraño ahora me sale lo siguiente:


1 '' = '' 'Kg'

cuando deberia decir 1 Kg = 1000 Gr

mmmm ya se me sale asi, porque me esta tomando el primer registo de la tabla, en vez de tomar los datos del registro en el que estoy parado. Solo que como hago que me tome en el que estoy parado...

[lokoman]

Y la propiedad 'BOUNDTEXT'?

Al datacombo le pasas el nombre del campo en la propiedad datafield, el boundtext te traerá los registros del campo seleccionado en el datafield

[gasuton]

Iniciado por lokoman

Y la propiedad 'BOUNDTEXT'?

Al datacombo le pasas el nombre del campo en la propiedad datafield, el boundtext te traerá los registros del campo seleccionado en el datafield

no me ha funcionado de hecho e intentado varias cosas de msde en relacion a boundtext pero nada.

Código:

unidades.RecordSource = "select unidades(selctunidadmaest)" & " as dtc1 from unidades"
DataCombo1.DataField = "dtc1" y aqui me da runtie error 505 unable to bind to field or datamember: 'dtc1'
unidades.Refresh

coef.Text = "1 '" & dtc1 & "' = '" & relauni(1).Text & "' '" & Text1(0).Text & "'"

Y lo raro es que solo puedo poner boundtext en una sola parte de mi codigo

Código:

Private Sub Form_Load()

coef.Text = "1 '" & DataCombo1.BoundText & "' = '" & relauni(1).Text & "' '" & Text1(0).Text & "'"

End Sub

ya que en las otras opciones relauni(1) y text1(0), no tengo la opcion de boundtext.

[lokoman]

A ver, intenta asi:

Código vb:

unidades.RecordSource = "select unidades(selctunidadmaest) as dtc1 from unidades"
DataCombo1.DataField = unidades!dtc1
unidades.Refresh
 
coef.Text = "1 " & DataCombo1.BoundText  & " = " & relauni(1).Text & " " & Text1(0).Text
 

Que control es "relauni(1)"?
Si no es un DataCombo no te va a salir el BoundText

[gasuton]

Iniciado por lokoman

A ver, intenta asi:

Código vb:

unidades.RecordSource = "select unidades(selctunidadmaest) as dtc1 from unidades"
DataCombo1.DataField = unidades!dtc1
unidades.Refresh
 
coef.Text = "1 " & DataCombo1.BoundText  & " = " & relauni(1).Text & " " & Text1(0).Text
 

Que control es "relauni(1)"?
Si no es un DataCombo no te va a salir el BoundText

Con ese codigo e da un runtime error 438, object doesn't support this property or method.

haciendo referencia a la linea de cofigo: DataCombo1.DataField = unidades!dtc1

con especto a relauni y text, ambos 2 son textbox.

[lokoman]

Bueno, chequea:

• Propiedades del DataCombo1:

BoundColumn=Nombre del Campo
DataField=Nombre del Campo
ListField=Nombre del Campo que presentará el DataCombo

• Codigo:

Código vb:

Private Sub Form_Load()
    Cargar
    Presentar_Datos
End Sub
 
Private Sub Cargar()
    On Error Resume Next
    
    Dim rstUNIDADES As ADODB.Recordset
    Set rstUNIDADES = New ADODB.Recordset
 
    With rstUNIDADES
        .ActiveConnection = CONEXION
        .Open "select unidades(selctunidadmaest) as dtc1 from unidades"
    End With
 
    Set DataCombo1.RowSource = rstUNIDADES
 
    IF rstUNIDADES.STATE=1 THEN rstUNIDADES.CLOSE
    Set rstUNIDADES = Nothing
End Sub
 
Private Sub Presentar_Datos()
    coef.Text = "1 " & DataCombo1.BoundText  & " = " & relauni(1).Text & " " & Text1(0).Text
End Sub
 

Lo mas sencillo es usar un Combo normal y cargarlo asi:

Código vb:

Dim rstUNIDADES As ADODB.Recordset
    Set rstUNIDADES = New ADODB.Recordset
 
    With rstUNIDADES
        .ActiveConnection = CONEXION
        .Open "select unidades(selctunidadmaest) as dtc1 from unidades"
    End With
 
   cboNormal.Clear
 
   If rstUNIDADES.EOF = False Then
      Do While rstUNIDADES.EOF = False
         cboNormal.AddItem rstUNIDADES!DTC1
         rstUNIDADES.MoveNext
         DoEvents
      Loop
   Else
      cboNormal.AddItem "No hay datos"
   End if