Hola a todos , tengo el siguente codigo:
me da error al ejecutar me dice que no tengo registro activo, ??????, y se para cuando hago referencia a record.edid...
Si alguien me puede ayudar por favor estaria agradecido...
Public Sub guardar()
If Val(Textcodigo.Text) < 1 Then
MsgBox "El codigo que esta ingresando es errado, verifiquelo por favor. ", 64, "*** Verifique el codigo ***"
Textcodigo.SetFocus
Exit Sub
End If
If graba = 1 Then
Set recor1 = base.OpenRecordset("Select * from productos where cod_producto = " & Val(Textcodigo.Text), dbOpenDynaset)
If recor1.RecordCount > 0 Then
MsgBox "El registro que esta ingresando ya existe, por favor verifique el codigo e intente almacenar lo datos luego. ", 64, "*** No puede repetir el codigo del Producto***"
Textcodigo.SetFocus
Exit Sub
End If
End If
If TextNombre.Text = Empty Then
MsgBox "El nombre que esta ingresando es errado, verifiquelo por favor. ", 64, "*** Verifique el nombre del Producto ***"
TextNombre.SetFocus
Exit Sub
ElseIf TextModelo.Text = Empty Then
MsgBox "Modelo Invalido, verifiquela por favor. ", 64, "*** Verifique el Modelo del Producto ***"
TextModelo.SetFocus
Exit Sub
ElseIf Textfabricante.Text = Empty Then
MsgBox "Fabricante Errado", 64, "***Verifique****"
Textfabricante.SetFocus
Exit Sub
ElseIf Val(TextCantidad.Text) = Empty Then
MsgBox " Indique la cantidad que se almacenará.", 64, "***Verifique Cantidad***"
TextCantidad.SetFocus
Exit Sub
ElseIf TextProveedor.Text = Empty Then
MsgBox "Proveedor Invalido.", 64, "****Verifique Proveedor"
TextProveedor.SetFocus
Exit Sub
ElseIf Val(Combouxc.Text) = Empty Then
MsgBox "Cantidad contenidas en el empaque del Producto debe tener un valor , verifiquelo por favor. ", 64, "*** Verifique el Unidades ***"
Combouxc.SetFocus
Exit Sub
ElseIf observacion.Text = Empty Then
observacion.Text = "No Disponible"
Exit Sub
ElseIf Optnacional.Value = False And Optimportado.Value = False Then
MsgBox " Debe seleccionar un tipo de Producto Nacional ó Importado", 64, "***Verifique***"
Exit Sub
End If
If graba = 1 Then
record.AddNew
Else
record.Edit ********aca es donde me da el error*****
End If
record!cod_producto = Val(Textcodigo.Text)
record!nombre_del_producto = TextNombre.Text
record!fabricante = Textfabricante.Text
record!modelo = TextModelo.Text
record!cantidad = Val(TextCantidad.Text)
record!proveedor = TextProveedor.Text
record!uxc = Val(Combouxc.Text)
record!observacion = observacion.Text
record!Nacional = a
record!Importado = b
record.Update
record.Requery
graba = 0
nada = 1
edita = 0
MsgBox " El registro se almaceno satisfactoriamente", 64, "****Registro***"
botonesnormal
Frame1.Enabled = False
If buscame(Textcodigo.Text) = 0 Then
record.MoveFirst
muestra record
End If
End Sub
