Anónimo
Insertar la fecha del día.
Buenas tardes experto y antes de nada muchas gracias por su tiempo.
Mi problema es el siguiente:
Tengo un botón de comando que me realiza la siguiente acción para facturar que me lo paso hace algún un experto:
Private Sub cmdFacturar_Click()
If IsNull(DMax("NumFactura", "tbVentas")) Then
Me.NumFactura = 1
ElseIf Not IsNull(Me.NumFactura) Then 'tambien se podria verificar la casilla de facturado
MsgBox "Ya tiene un numero de factura asignado"
Exit Sub
Else
Me.NumFactura = Nz(DMax("NumFactura", "tbVentas"), 0) + 1
End If
'If IsNull(DMax("NumFactura", "tbVentas")) Then
'Me.NumFactura = "00001"
'ElseIf Not IsNull(Me.NumFactura) Then
'MsgBox "Ya tiene un numero de factura asignado"
'Exit Sub
'Else
'Me.NumFactura = Format(CLng(DMax("NumFactura", "tbVentas")) + 1, "00000")
'End If
Me.FacturaCreada = -1
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70 'Guarda registro
End Sub
Todo funciona perfectamente, pero ahora tengo la necesidad de insertar la fecha del día en el haga click sobre el botón de comando en un campo que he creado en la tabla tbVentas que se llama Fechafac.
¿Sabrías qué cambios tengo que hacer?.
Muchas gracias de nuevo por tu tiempo.
Mi problema es el siguiente:
Tengo un botón de comando que me realiza la siguiente acción para facturar que me lo paso hace algún un experto:
Private Sub cmdFacturar_Click()
If IsNull(DMax("NumFactura", "tbVentas")) Then
Me.NumFactura = 1
ElseIf Not IsNull(Me.NumFactura) Then 'tambien se podria verificar la casilla de facturado
MsgBox "Ya tiene un numero de factura asignado"
Exit Sub
Else
Me.NumFactura = Nz(DMax("NumFactura", "tbVentas"), 0) + 1
End If
'If IsNull(DMax("NumFactura", "tbVentas")) Then
'Me.NumFactura = "00001"
'ElseIf Not IsNull(Me.NumFactura) Then
'MsgBox "Ya tiene un numero de factura asignado"
'Exit Sub
'Else
'Me.NumFactura = Format(CLng(DMax("NumFactura", "tbVentas")) + 1, "00000")
'End If
Me.FacturaCreada = -1
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70 'Guarda registro
End Sub
Todo funciona perfectamente, pero ahora tengo la necesidad de insertar la fecha del día en el haga click sobre el botón de comando en un campo que he creado en la tabla tbVentas que se llama Fechafac.
¿Sabrías qué cambios tengo que hacer?.
Muchas gracias de nuevo por tu tiempo.
1 respuesta
Respuesta de xavi -ae soft-
1
Hola de nuevo experto.
Muchas gracias por todo. Tu solución ha sido perfecta. Ya me funciona ok.
Tengo otra pregunta que no si sabre explicarte.
Tengo un formulario que incluye un subformulario con el detalle de las ventas y cuando sumo los importes del subformulario y los paso al formulario hace bien la operación matemática y hace un intento de mostrar el importe pero luego se oculta.
¿Sabes cómo puedo solucionarlo?
Muchas gracias nuevo.
Un saludo.
Muchas gracias por todo. Tu solución ha sido perfecta. Ya me funciona ok.
Tengo otra pregunta que no si sabre explicarte.
Tengo un formulario que incluye un subformulario con el detalle de las ventas y cuando sumo los importes del subformulario y los paso al formulario hace bien la operación matemática y hace un intento de mostrar el importe pero luego se oculta.
¿Sabes cómo puedo solucionarlo?
Muchas gracias nuevo.
Un saludo.
Debes tener un cuadro de texto en el pie del subformulario para realizar la suma y otro en el formulario que "apunte" al del subformulario (que estará como visible = no)
Xavi
Xavi