kumbus

Sub importarArticulos() Dim libroDatos As Workbook Dim HojaActiva As Object Application.DisplayAlerts = False Range("A2").Select Set HojaActiva = Sheets(1) Set libroDatos = Workbooks.Open( "C:\Users\VIA NORTE\Desktop\INVENTARIO\TARIFA.xlsx" )...

Private Sub Lista0_Click() Lista2.RowSource = "SELECT Pais FROM Tabla1 WHERE id =" & "'" & Lista0.Column(0, Lista0.ListIndex) & "'" End Sub

Añadir en el formulario: - Cuadro de texto, TextoINI - Cuadro de texto, TextoFIN -Botón -Cuadro combinado, ComboBox1 -Cuadro de lista, List1 En el módulo de código del botón poner: campo=combobox1.selecteditem List1.RowSource = "SELECT " & campo & "...

En un módulo y habiendo creado antes la oportuna tabla "Números" con el campo Número y los otros 4: Sub Primaria() Dim numero, millares, centenas, decenas, unidades As Integer Dim rs As DAO.Recordset Set rs = CurrentDb.OpenRecordset("SELECT * FROM...

En un formulario pon los combos de nombre cbo1 y cbo2 y un control lista. En el evento Al cambiar del cbo2 o en un botón aparte pon Lista1. Rowsource=" SELECT * FROM Tabla1 WHERE Criterio1 ='" & Me.cbo1 "' And Criterio2='" & Me.cbo2 &"'". Si alguno...

4,1% en noviembre. La renta hay que subirla un año después de la firma del contrato, pero con el IPC último publicado. Seguramente el contrato dirá "con el IPC de noviembre" si se firmó en enero. www.escolarabogados.com/Arrendamientos.htm

Si pones un asterisco te saldrán todos los campos. En vez de eso haz doble clic sobre la tabla y se copiaran todos los campos a la consulta y luego quita los que no quieras. Lo del like es que lo traduce al inglés porque será que tienes la versión en...

"0" & Vendedor en el cuadro del informe

Hay que agrupar el informe por fecha y poner en un campo, count(*) Si usas el asistente lo hace él solo

Ambos formularios han de estar relacionados por el campo cod_prov