Jacinto Trillo Jareño

Sandro: Para abrir un Formulario >> DoCmd.OpenForm "FichaContacto", acNormal, , "IdSede = " & Me.IdSede, acFormAdd Si la sede es un Número. Si fuera un dato de tipo Texto tendrias que poner >>> "IdSede = '" & Me.IdSede & "'" Un saludo >> Jacinto

Yorman: Lo que yo haría es poner en el Formulario uno o dos Cuadros de Texto. Ejemplo FactorPrima y FactorComision Y en ls Formulas, poner: Me.Prima_Seguro = Me.Total_Remuneracion * Me.FactorPrima/100 Me.Comision_variable = Me.Total_Remuneracion *...

Sandro: Es un tema complejo, y probé algún ejemplo, pero personalmente no me he desgastado mucho. Te cito algunos enlaces que te situarán en ese tema. https://sites.google.com/site/jjjt1973/Home/tamano-del-form...

Juan: Una de las formas de hacerlo sería en el Form_Load de VENTAS Dim Ctrl As Access.Control For Each Ctrl In Me.Controls If Ctrl.ControlType = AcSubForm Then Ctrl.Visible = False End If Next Ctrl No obstante al desconocer el resto de proceso,...

Esta pregunta me sale sugerida y en programación de Excel poca experiencia tengo, pero imagino que en éste caso la solución es la misma que para Access. Abraham ya te indica un camino correcto (un saludo Abraham), pero yo lo completaría con un doble...

Sin ver el conjunto que ya tienes establecido, se me hace difícil acertar al hacerte una sugerencia, pero se me ocurre que en el Sub Formulario >>LINEASPEDIDOS, puedes programar el evento AfterInsert aproximadamente así: Private Sub...

Para no recurrir a oluciones complejas, una que veo simple es que programes el Evento después de actualizar de "ambos" controles. Algo así: Private Sub Fecha_AfterUpdate() Call MuestraOcultaBoton End SubPrivate Sub Lugar_AfterUpdate() Call...

Según lo interpreto es es clásico filtrado de Combos en Cascada. Mira éste ejemplo que tengo en Mediafire, y creo te servirá. http://www.mediafire.com/file/v66sy4jq34b30lo/CbosPaisCiudadEmpresa.rar/file Un saludo >> Jacinto

Marcelo: En el Form_Load() de tuformulario pon éstas líneas. Dim Ctrl As Access.Control For Each Ctrl In Me.Controls If Ctrl.ControlType = acTextBox Or Ctrl.ControlType = acComboBox Then If IsNull(Ctrl.Value) Or Ctrl.Value = "" Then Ctrl.Visible =...

Crea un Informe "Por columnas" en lugar de "Tabular" y adapta la visualización a la forma más cómoda para ti. Si lo creas con el asistente, al final te dará la "Opción" que te comento. Un saludo >> Jacinto