xabi

Supongo que tienes un interfaz MDI, en caso contrario no sería posible. Usa este código en el MDI: MsgBox Me.ActiveForm.ActiveControl.Name

Cuando lances el informe filtralo mediante selectionformula: 'Filtro de los registros a mostrar Numerico crp.selectionformula="{Tabla.Campo}=" & text1 'Filtro de los registros a mostrar Texto crp.selectionformula="{Tabla.Campo}='" & text1 & "'"...

"Los controles DataCombo y DataList se parecen mucho a los controles de cuadro de lista y cuadro combinado estándar, aunque hay algunas diferencias importantes que les dan una gran flexibilidad y utilidad en las aplicaciones para bases de datos....

No vas a poder abrirlo en una misma ventana, lo que si puedes es ocultar la principal. Ej en el botón del form1: Private Sub Command1_Click() Form2.Show Form1.Hide End Sub En el unload del form2: Private Sub Form_Unload(Cancel As Integer) Form1.Show...

Cuando lances el crystal usa la propiedad selectionformula: 'Campo numerico crp.SelectionFormula = "{Tabla.campo}=" & Text1.Text 'Campo texto crp.SelectionFormula = "{Tabla.campo}='" & Text1.Text & "'"

Cuando hagas click en el botón este será el que tiene el foco por lo tanto no sabrás cual es el que lo tenía, pero puedes usar un poco de juego sucio. Supongo que tienes varios textbox y probablemente en una matriz txt(0), txt(1), txt(2),... En el...

El problema lo tienes por lo siguiente: Al enlazar las dos tablas con LEFT OUTER JOIN se crea una tabla virtual con los campos de ambas, teniendo todos los registros de una y los coincidentes de la otra, hasta aquí todo va bien. El problema es que...

¿Qué tipo de interfaz tienes? ¿MDI? En que formulario tienes los botones de copias,¿...? ¿Qué deben hacer estos botones? Si los formularios se minimizan es por que en el código lo dices, de lo contrario solo se desactivarían permaneciendo en segundo...

Como código del botón por algo así: label1.visible=true Me. Refresh ... 'codigo de busqueda ... label1.visible=false Me. Refresh

No uso DAO pero: Prueba a cambiar el % por un * Dim rproducts As Recordset Dim rbuscar As Recordset Private Sub Buscar_Click() Dim i As Integer Dim querystr As String querystr = "Select * from products where (UPC like '*" & txtbuscar.Text & "*')" Set...