13/06/2008, 10:43
|
| | | Fecha de Ingreso: agosto-2006
Mensajes: 110
Antigüedad: 18 años, 8 meses Puntos: 0 | |
| Respuesta: editar y guardar msflexgrid
muy bien avellaneda, ya me quedo bien, solo una ultima duda por favor.
en el msgbox"no hay datos a guardar", me checa todas las filas y columnas del grid pero si le doy aceptar al mensaje me vuelve abrir otro msgbox, vaya me abre 1 msgbox por fila que checa, como le puedo hacer para que solo me salga el mensaje 1 sola ves?
Do While i < MSHFlexGrid1.Rows
If Me.MSHFlexGrid1.TextMatrix(i, 3) = "" And Me.MSHFlexGrid1.TextMatrix(i, 4) = "" And Me.MSHFlexGrid1.TextMatrix(i, 5) = "" Then
msgbox"no hay datos a guardar" *******aqui es donde te comento
Else
Dim db As Connection
Dim adoPrimaryRS As Recordset
Set db = New Connection
Set adoPrimaryRS = New Recordset
db.CursorLocation = adUseClient
db.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & "C:\PEDIDOS\pedidos\Imprimir\pedidos\sucursal. mdb" ' base path es direccionamiento a la base de datos
adoPrimaryRS.Open "Select sucursal,pedido,existencia,vuelta1,vuelta2,vuelta3 ,fecha,total from pedidos", db, adOpenStatic, adLockOptimistic
adoPrimaryRS.AddNew
'adoPrimaryRS!id_registro = CodigoRegistro
'adoPrimaryRS!clave = Me.MSHFlexGrid1.TextMatrix(i, 1)
adoPrimaryRS!sucursal = Label1
adoPrimaryRS!pedido = Me.MSHFlexGrid1.TextMatrix(i, 1)
adoPrimaryRS!existencia = Val(Me.MSHFlexGrid1.TextMatrix(i, 2))
adoPrimaryRS!vuelta1 = Val(Me.MSHFlexGrid1.TextMatrix(i, 3))
adoPrimaryRS!vuelta2 = Val(Me.MSHFlexGrid1.TextMatrix(i, 4))
adoPrimaryRS!vuelta3 = Val(Me.MSHFlexGrid1.TextMatrix(i, 5))
adoPrimaryRS!total = Val(Me.MSHFlexGrid1.TextMatrix(i, 2)) + Val(Me.MSHFlexGrid1.TextMatrix(i, 3)) + Val(Me.MSHFlexGrid1.TextMatrix(i, 4)) + Val(Me.MSHFlexGrid1.TextMatrix(i, 5))
adoPrimaryRS!fecha = Date
'adoPrimaryRS!hora = Time
'adoPrimaryRS!cantidad = Val(Me.MSHFlexGrid1.TextMatrix(i, 4))
'adoPrimaryRS!Total = Val(Me.MSHFlexGrid1.TextMatrix(i, 5))
adoPrimaryRS.Update
MSHFlexGrid1.TextMatrix(i, 3) = ""
MSHFlexGrid1.TextMatrix(i, 4) = ""
MSHFlexGrid1.TextMatrix(i, 5) = ""
MSHFlexGrid1.TextMatrix(i, 6) = ""
End If
'Next i
i = i + 1
Loop
Else
End If |