mshflexgrid (movefirst)
HOLA
TE COMENTO QUE EL MSHFLEXGRID NOS MUESTRA DATOS QUE TOMA DE UNA BASE DE DATOS CREADA CON EL DATA CONTROL
Y PARA DETERMINAR EL ANCHO DEL MSHFLEXGRID USAMOS EL SGTE. CODIGO
Private Sub Form_Resize()
With Me.MSHFlexGrid1
.Left = 0
.Top = 0
.Height = Me.ScaleHeight
.Width = Me.ScaleWidth
.ColWidth(0) = .Width * 0.33
.ColWidth(1) = .Width * 0.33
.ColWidth(2) = .Width * 0.33
.ColWidth(3) = .Width * 0.33
.ColWidth(4) = .Width * 0.33
.ColWidth(5) = .Width * 0.33
End With
End Sub
Private Sub MSHFlexGrid1_DblClick()
With Me.MSHFlexGrid1
If .Col = 0 Then
cosecha.clave = .Text
Me.Hide
End If
End With
End Sub
USAMOS DOS FORMULARIOS, UNO CONTIENE EL CONTROL MSHFLEXGRID DEL CUAL OBTENEMOS LOS DATOS QUE VOLCAMOS AL OTRO FORMULARIO(PRINCIPAL) LA PRIMER VEZ QUE EJECUTAMOS EL FORMULARIO PRINCIPAL OBTIENE LOS DATOS EN FORMA CORRECTA, PERO LA SEGUNDA VEZ NO DA ERROR EN EL MOVEFIRST
EL CODIGO DEL BOTON QUE LLAMA AL MSHFLEXGRID ES EL SIGUIENTE
Option Explicit
Public clave As String
Private Sub ver_lista_cosecha_Click()
Me.clave = ""
frm_lista_lote_cosecha.Show vbModal
If Me.clave <> "" Then
With campo_cosecha.rscom_cosecha
.MoveFirst
.Find "nro=" & CInt(Me.clave)
End With
End If
Unload frm_lista_lote_cosecha
tipo_cereal_cosecha.Enabled = True
tipo_cereal_cosecha.SetFocus
End Sub
usamos un data control para guardar los registros
ayuda urgente
TE COMENTO QUE EL MSHFLEXGRID NOS MUESTRA DATOS QUE TOMA DE UNA BASE DE DATOS CREADA CON EL DATA CONTROL
Y PARA DETERMINAR EL ANCHO DEL MSHFLEXGRID USAMOS EL SGTE. CODIGO
Private Sub Form_Resize()
With Me.MSHFlexGrid1
.Left = 0
.Top = 0
.Height = Me.ScaleHeight
.Width = Me.ScaleWidth
.ColWidth(0) = .Width * 0.33
.ColWidth(1) = .Width * 0.33
.ColWidth(2) = .Width * 0.33
.ColWidth(3) = .Width * 0.33
.ColWidth(4) = .Width * 0.33
.ColWidth(5) = .Width * 0.33
End With
End Sub
Private Sub MSHFlexGrid1_DblClick()
With Me.MSHFlexGrid1
If .Col = 0 Then
cosecha.clave = .Text
Me.Hide
End If
End With
End Sub
USAMOS DOS FORMULARIOS, UNO CONTIENE EL CONTROL MSHFLEXGRID DEL CUAL OBTENEMOS LOS DATOS QUE VOLCAMOS AL OTRO FORMULARIO(PRINCIPAL) LA PRIMER VEZ QUE EJECUTAMOS EL FORMULARIO PRINCIPAL OBTIENE LOS DATOS EN FORMA CORRECTA, PERO LA SEGUNDA VEZ NO DA ERROR EN EL MOVEFIRST
EL CODIGO DEL BOTON QUE LLAMA AL MSHFLEXGRID ES EL SIGUIENTE
Option Explicit
Public clave As String
Private Sub ver_lista_cosecha_Click()
Me.clave = ""
frm_lista_lote_cosecha.Show vbModal
If Me.clave <> "" Then
With campo_cosecha.rscom_cosecha
.MoveFirst
.Find "nro=" & CInt(Me.clave)
End With
End If
Unload frm_lista_lote_cosecha
tipo_cereal_cosecha.Enabled = True
tipo_cereal_cosecha.SetFocus
End Sub
usamos un data control para guardar los registros
ayuda urgente