Formato de fechas en formulario

Tengo una base de datos en access.

Una tabla productos con un campo llamado fechavenci.

Un formulario independiente para alimentar esta tabla.

Dentro de los campos solo necesito obligatorios algunos como son

Codigo de barras

Nombre del producto

Precio de venta

El resto son opcionales.

En el formulario tengo un boton guardar con la siguiente instruccion:

Private Sub btn_guardar_Click()

If IsNull(Me.codigobarras) Or IsNull(Me.Nom_Prod) Or IsNull(Me.Prec_Prod) Then
MsgBox "Faltan los **campos obligatorios del producto", vbInformation, "Registrando Producto"
Exit Sub
End If
CurrentDb.Execute "INSERT INTO tbproductos(codigobarras,Nom_Prod,Prec_Prod,marca,Id_cat,iva,lote,fechavenci) VALUES ( " & Me.codigobarras & ", '" & Me.Nom_Prod & "', " & Me.Prec_Prod & ", '" & Me.Marca & "', " & Me.Id_cat & ", " & Me.IVA & ",'" & Me.Lote & "', " & Format(Me.FechaVenci, "mm/dd/yyyy") & " )", dbFailOnError
'CurrentDb.Execute "INSERT INTO tbproductos(codigobarras,Nom_Prod,Prec_Prod,marca,Id_cat,iva,lote,fechavenci) VALUES ( " & Me.codigobarras & ", '" & Me.Nom_Prod & "', " & Me.Prec_Prod & ", '" & Me.Marca & "', " & Me.Id_cat & ", " & Me.IVA & ",'" & Me.Lote & "', #" & Me.FechaVenci & "# )", dbFailOnError
MsgBox "REGISTRO INSERTADO", vbInformation, "Avíso"
DoCmd.Close acForm, Me.Name
End Sub

Hasta aquí todo bien el problema es que si no pongo una fechavenci me guarda la hora y no la fecha.

1 Respuesta

Respuesta
1

Pruebe con este código

Private Sub btn_guardar_Click()
If IsNull(Me.codigobarras) Or IsNull(Me.Nom_Prod) Or IsNull(Me.Prec_Prod) Then
MsgBox "Faltan los **campos obligatorios del producto", vbInformation, "Registrando Producto"
Exit Sub
End If
CurrentDb.Execute "INSERT INTO tbproductos(codigobarras,Nom_Prod,Prec_Prod,marca,Id_cat,iva,lote,fechavenci) VALUES ( " & Me.codigobarras & ", '" & Me.Nom_Prod & "', " & Me.Prec_Prod & ", '" & Me.Marca & "', " & Me.Id_cat & ", " & Me.IVA & ",'" & Me.Lote & "', " & Format(Me.FechaVenci, "\#mm\/dd\/yyyy\#") & " )", dbFailOnError
MsgBox "REGISTRO INSERTADO", vbInformation, "Avíso"
DoCmd.Close acForm, Me.Name
End Sub

Profesor

excelente ya me funciona. pero sucede que al dejar el campo de fechavenci vacio. me sale ese aviso.

y para que funcione correcto debo siempre registrarle una fecha de vencimiento.

pero hay productos los cuales NO tienen fecha de vencimiento.

como lo puedo programar para que no me exija este dato de fecha de vencimiento.

Muchas gracias Profesor.

Si claro tiene razón la fecha es nula entonces se debe detectar si no hay fecha, pruebe con este código:

Private Sub btn_guardar_Click()
If IsNull(Me.codigobarras) Or IsNull(Me.Nom_Prod) Or IsNull(Me.Prec_Prod) Then
MsgBox "Faltan los **campos obligatorios del producto", vbInformation, "Registrando Producto"
Exit Sub
End If
CurrentDb.Execute "INSERT INTO tbproductos(codigobarras,Nom_Prod,Prec_Prod,marca,Id_cat,iva,lote,fechavenci) VALUES ( " & Me.codigobarras & ", '" & Me.Nom_Prod & "', " & Me.Prec_Prod & ", '" & Me.Marca & "', " & Me.Id_cat & ", " & Me.IVA & ",'" & Me.Lote & "', " & Format(Me.FechaVenci, "\#mm\/dd\/yyyy\#") & " )", dbFailOnError
MsgBox "REGISTRO INSERTADO", vbInformation, "Avíso"
DoCmd.Close acForm, Me.Name
End Sub

Observe el IIF(), valida se el campo Me.FechaVenci hay una fecha, en este caso fija la fecha, sino deja "".

Profesor gracias.

en el código que me envía no veo el IIF();  donde lo escribo para la validación??

Que pena le había copiado el código que no era

Private Sub btn_guardar_Click()
If IsNull(Me.codigobarras) Or IsNull(Me.Nom_Prod) Or IsNull(Me.Prec_Prod) Then
MsgBox "Faltan los **campos obligatorios del producto", vbInformation, "Registrando Producto"
Exit Sub
End If
CurrentDb.Execute "INSERT INTO tbproductos(codigobarras,Nom_Prod,Prec_Prod,marca,Id_cat,iva,lote,fechavenci) VALUES ( " & _
Me.codigobarras & ", '" & Me.Nom_Prod & "', " & Me.Prec_Prod & ", '" & Me.Marca & "', " & Me.Id_cat & ", " & Me.IVA & ",'" & Me.Lote & "', " & _
IIf(IsDate(Me.FechaVenci), Format(Me.FechaVenci, "\#mm\/dd\/yyyy\#"), "") & " )", dbFailOnError
MsgBox "REGISTRO INSERTADO", vbInformation, "Avíso"
DoCmd.Close acForm, Me.Name
End Sub

Profesor gracias. pero me sigue saliendo error.

Si puede envíeme la base de datos o la miro por el TeamViwer puede ser mañana a las 9 am

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Copiar registro especifico de una tabla a otra con sql

Lo que quiero es copiar un registro especifico de una tabla a otra uso esto CurrentDb.Execute "INSERT INTO DetalleVenta (Nopieza,cantidadv) SELECT Codigo,Cantidad FROM Venta WHERE Id = Id", dbFailOnError Me. Requery DoCmd. GoToRecord,, acLast Pero me...
1 respuesta

¿Cómo puedo asignar Nulo a una Variable de tipo Date?

Ya intente mivariable = null mivariable = "" Me da error y imprimir mivariable sin asignarle nada me imprime 12:00:00 a.m.
1 respuesta

Datos de un cuadro combinado a cuadro de texto

Tengo un problema en access 2007 ¿Cómo puedo hacer para que al escoger un elemento de un cuadro combinado se me aparezcan automáticamente los datos relativos a ese elemento en los diferentes cuadros de texto del formulario. Los datos son los otros...
1 respuesta

Botón Guardar en un formulario, para guardar registros y limpiarlos.

Estoy buscando la manera de que que se guarden y limpien los registros de las Ventas que realizo (sin que se eliminen los datos en sus respectivas tablas). Quería hacerlo con un botón, pero no pude insertar el código correctamente. La idea es que se...
2 respuestas

Tengo error Combos en cascada

Estoy trabado en un Formulario continuo, Exactamente en Cuadros Combinados en cascada: cuando ingreso un nuevo registro El programa funciona(Cuadros combinados) los combos en cascada, el problema esta en la modificación de los combos y exactamente en...
1 respuesta

Insertar datos vía formulario independiente error conversión de datos

De antemano te agradezco si decides darte un tiempo para responder a mi interrogante, bueno sin más paso a explicar esta. Sucede que decidí trabajar en una formulario independiente, en el ingrese varias pestañas las cuales poseen diversos textbox y...
1 respuesta

Como agregar datos a una tabla desde un form de access usando script vba que no me funciona?

Adjunto este código que no me funciona porque me dice que hay un error en la sentencia INSERT INTO ... Agradecería desde ya si me pudieran ayudar a resolverlo Private Sub Comando16_Click() Dim SENTSQL As String On Error GoTo ManipularError If...
2 respuestas

Enumerar registros en tabla con datos repetidos

Espero que me puedan ayudar en este tema, tengo una tabla con los siguientes campos: Proyecto (Texto), Lote (Numero) y SubOrden (Numero), lo que deseo es colocar 1 en suborden a los proyectos que tienen el mismo lote-proyecto, pero si el proyecto...
2 respuestas

Como cargar varios registros en un solo formulario

Quisiera saber como realizar un formulario que me permita grabar varios registros a la vez. Ya que tengo una base de datos de salidas y muchas de de ella son con el mismo remito. El tema seria realizar en el mismo formulario toda la carga con un...
2 respuestas

Al cerrar formulario access revisar si ciertos campos están cubiertos

Tengo un formulario donde ingreso los registros y cuando acabo hago click en el botón salir y como access guarda los registro por defecto solo le puse con codigo que cierre el formulario. Pero necesito que me compruebe que el campo Fecha y Acción...
1 respuesta