problema con list

Ivan
05 de Octubre del 2003
tengo el siguiente problema :
tengo una malla de reservas de horas la cual tienes las siguientes condiciones Private Sub malla_DblClick()
Dim m As Integer
Dim n As Integer
Dim w As String
Dim z As Integer

m = malla.Col
n = malla.Row
z = 0
w = lista.Text


'If malla.Text = "" Then
'malla.Text = lista.Text
'If malla.SelectionMode = flexSelectionByRow Then
If opcion3.Value = True Then
For a = 1 To malla.Cols - 1
malla.Col = a
If lista.Text = "" Then
MsgBox "Debe seleccionar un usuario", 48, Advertencia
Else
If malla.Text = "" And malla.CellBackColor <> &H8000000F Then
malla.Text = lista.Text
Data4.Recordset.AddNew
Data4.Recordset.Fields(0) = calendario.Value
'Data4.Recordset.Fields(0) = xfecha
Data4.Recordset.Fields(1) = malla.Row
Data4.Recordset.Fields(2) = lista.Text
Data4.Recordset.Fields(3) = malla.Col
Data4.Recordset.Update
Data4.Refresh

'Else
' MsgBox ("Ya Esta Reservado o El Equipo esat maskasklfjd"), 48, "Advertencia"
End If
End If
Next a
Else
If lista.Text = "" Then
MsgBox "Debe seleccionar un usuario", 48, Advertencia
Else

If malla.Text = "" And malla.CellBackColor <> &H8000000F Then
For b = 1 To malla.Rows - 1
For c = 1 To malla.Cols - 1
malla.Row = b
malla.Col = c
If malla.Text = w Then
z = z + 1
End If
Next c
Next b
malla.Col = m
malla.Row = n
If z >= 2 Then
MsgBox "Solo hasta 2 Modulos "
malla.Text = ""
Else
malla.Text = lista.Text
Data4.Recordset.AddNew
Data4.Recordset.Fields(0) = calendario.Value
'Data4.Recordset.Fields(0) = xfecha
Data4.Recordset.Fields(1) = malla.Row
Data4.Recordset.Fields(2) = lista.Text
Data4.Recordset.Fields(3) = malla.Col
Data4.Recordset.Update
Data4.Refresh
End If
Else
MsgBox ("Ya Esta Reservado o El Equipo esat maskasklfjd"), 48, "Advertencia"
End If
End If
End If
End Sub

este codigo me permite hacer solo dos horas de reservaciones para un pc pero tambien me permite hacer mas reservaciones para varios pcs con 2 horas.

que codigo puedo emplear para que me deje reservar un pc con 2 horas por usuario

desde ya gracias

Baltasar
05 de Octubre del 2003
Primero: supongo que los ordenadores están en red (perdona la pregunta, pero es obligatoria)

Segundo: si es así, lo único que tendrías que hacer es que la malla se "refrescara" cada vez que es modificada, o tal vez más fácil, cada vez que trates de hacer un doble click sobre la malla, que antes la cargue de la base de datos, y así verás la información en tiempo real.