Access - Tomar datos de una tabla!

 
Vista:
sin imagen de perfil
Val: 4
Ha aumentado su posición en 38 puestos en Access (en relación al último mes)
Gráfica de Access

Tomar datos de una tabla!

Publicado por Sebastian (3 intervenciones) el 18/03/2015 17:22:35
Hola! Es mi primer posteo, soy muy nuevo en lo que se refiere a programación, recien estoy aprendiendo y trato de aplicar lo que voy aprendiendo a la base de datos que manejo en la fábrica. En esta oportunidad estableci en una tabla un campo cuyo valor es "Si/No", en un formulario necesito captar ese dato pero no logro hacerlo. No puedo vincular esa tabla al SELECT del formulario por lo que trato de usar código pero no termino de hacerlo bien. Podrian decirme en que estoy fallando?

Les dejo el código


Private Sub Form_Open(Cancel As Integer)
Dim rstPeso As Recordset

PesoTara = -1
CtrlReal = False

Set rstPeso = CurrentDb.OpenRecordset("SELECT PiezaPorKg.Modelos * FROM Modelos")

Me.chkKg = rstPeso!PiezaPorKg

If Me.chkKg Then
RelMáxPesos = 100
RelMínPesos = 0.001
Else
RelMínPesos = 0.95
RelMáxPesos = 1.05
End If
rstPeso.Close
' If IsNull(Me.Filter) Or Me.Filter = "" Then
' me.txtLeyendaEstadoTrabajo.Locked = True
' me.txtLeyendaEstadoTrabajo.Enabled = True
' Else
' me.txtLeyendaEstadoTrabajo.Locked = True
' End If

If Me.RecordsetClone.RecordCount = 0 Then
MsgBox ("No hay datos para mostrar. Verifique el Número de Orden ingresado, y el estado de la misma. (SÓLO PUEDE CARGARSE UNA ORDEN FUNDIDA")
Cancel = True
Else
If (Me.txtCódigoCliente <> Forms!CopiaControlDeRemitos.txtCódigoCliente) Then
MsgBox "ATENCIÓN!! " & vbCrLf _
& "NO se puede agregar al Orden de Trabajo seleccionada al Remito activo. " & vbCrLf _
& "Ambos deben corresponder al mismo Cliente."
Cancel = True
End If
End If

If (NombreUsuario() = "dbadministrator") Then
Me!altRelPesos.Visible = True
Else
Me!altRelPesos.Visible = False
End If

End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder