Visual Basic - .Addnew

Life is soft - evento anual de software empresarial
   
Vista:

.Addnew

Publicado por Polo (21 intervenciones) el 20/02/2010 15:26:32
buenas, estoy haciendo un programa de facturacion y lo hago de esta forma, con un msflexgrid que guarde todos los datos cuando se agrega un producto y modifcandole todas sus propiedades graficas para que quede como una tabla, controles data y txt. 3 Botones, Nuevo Producto, agregar a la factura, y eliminar de la factura. Tambien con un comando al iniciar el programa el me borra tdos los datos de la base de dats que uso, para que quede limpio el flexgrid. El problema es este, que al tratar de agregar un producto con la base de datos vacia, el comando UpdateRecord no funciona, y quieor que alguien me explique que hago para estos casos, se que es con el .AddNew pero no se como. Gracias

Private Sub cmdAgregar_Click()

If txtCant = "" Then
MsgBox "Por favor introduce la Cantidad"
End If
If txtCodigo = "" Then
MsgBox "Por Favor introduce el Codigo"
End If

Data5.UpdateRecord
Data5.Refresh
MSFlexGrid1.Refresh
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

RE:.Addnew

Publicado por Josman Pérez (40 intervenciones) el 21/02/2010 03:54:54
LO QUE TIENES AHI REALMENTE NO FUNCIONA
DEBES INGRESAR UN REGISTRO ANTES DE GUARDAR Y ACTUALIZAR EL MSFLEXGRID
ALGO COMO ESTO

Private Sub cmdAgregar_Click()

If txtCant = "" Then
MsgBox "Por favor introduce la Cantidad"
End If
If txtCodigo = "" Then
MsgBox "Por Favor introduce el Codigo"
End If

DATA5.RECORDSET.ADDNEW
Data5.recordet("Codigo")= txtcodigo
Data5.recordet("Cantidad")= txtcant
'y asi sucesivamente por cada campo que necesites ingresar y al final si viene lo siguiente

Data5.UpdateRecord
Data5.Refresh
MSFlexGrid1.Refresh
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar