Eduardo Pérez Fernández

La respuesta es correcta, no obstante recomiendo la siguiente sintaxis: IF IsNull(Me.Texto5) OR Me.Texto5="" Then DoCmd.Close acForm, Me.Name ELSE DoCmd:OpenForm "nombreform_a_abrir" END IF

Hay varias formas una es clonando el formulario algo como: Desde el Evento AlHacerClic() del botón formulario principal Dim miRS AS Recordset Set miRS=Me.nombreSubformulario.Form.RecordSet.Clone DO miRS.EOF() SQL = "INSERT INTO...

Revise el formato en las propiedades del formulario y le asigna 2 decimales

Yo no condicionaría la función a un nombre específico de una etiqueta o reporte, sabiendo que son 2 etiquetas, más bien llamaría una función en donde pasaría 1 parámetro (1 ó 2) y la llamaría en el evento Al abrir del reporte. Esta es la función:...

Envíeme su email a [email protected] y le suministro un ejemplo que respondí en días pasados. Favor hacer referencia en el Asunto.

Ya he respondido a otras preguntas sobre como se recorre un cuadro de lista. En su caso pruebe con lo siguiente. El cuadro de lista debe tener en Propiedades, Otros "Selección Múltiple"=Simple Dim varPos As Variant For Each varPos In...

Si el campo id_pedido es Autonumérico no debe tener problema, en caso contrario pruebe con este código: Private Sub cmdGrabar_Click() Dim iNumeroPedido As Integer Dim Sql As String Dim db As Database Dim rs As Recordset Set db = CurrentDb On Error...

1. FORMA Si utiliza un cuadro combinado puede utilizar el código siguiente, en el evento "Al no estar en la lista": Private Sub cboCliente_NotInList(NewData As String, Response As Integer) Dim intReply As Integer intReply = MsgBox("El Cliente'" &...

Con gusto le suministro una función que diseñé hace un tiempo es la que utilizo en mis aplicaciones. Teniendo en cuenta que la función MonthName() devuelve el nombre del mes en minúscula es necesario código VBA para darle un formato a nuestro...

Puede colocar botones de comando o un grupo de opciones, de acuerdo con la opción ejecuta una consulta dinámica. Por ejemplo Si es un grupo de opciones sería: Sub opciones_click() Dim strSQL As String Select opciones Case 1 strSQL="SELECT * FROM...