currupipi999

Para hacer lo que quieres deberías realizar una consulta: SELECT COUNT(DISTINCT nom_campo) AS cantidad FROM nom_tabla

Tanto la suma, como la resta y la multiplicación, no te devolverán un número real, puesto que la suma, resta o multiplicación de dos números enteros no te devolverá un número real, así que cuando le pasas parámetros a writeln sólo admite uno, que es...

Te propongo la siguiente solución. No depuré la entrada de datos, como que por ejemplo la capacidad o el rendimiento sean cero, y te pueda dar datos incongruentes, pero eso lo dejo para ti. Uses CRT; Const VEHÍCULOS = 3; Type TRegistro = Record...

Si lo que pretendes es abrir un documento concreto, te propongo la siguiente solución: Dim ruta As String Dim objApp 'Inicialización de Word Set objApp = CreateObject("Word.Application") objApp.Visible = True 'Con esto sera visible la ventana...

Sería tan sencillo como, en el dieño, en la propiedad style del como poner el valor 2 (dropdown combo). Eso impedirá que el usuario modifique el texto del mismo.

Antes de ir al ejercicio, veamos el aspecto matemático de la cuestión:a x = -b X = -b/a si a = 0,. no hay solución si a = 0 y b=0 hay infinitas sluciones. Ecuación indeterminada si a distinta de 0 hay solucion No se entiende muy bien como pones el...

Supongamos que el control que utilizas se llama command1. Lo único que tendrías que hacer es cuando se cumpla el tiempo del timer, en ese evento poner la propiedad enabled del botón a false: command1.enabled=false Así el botón estaría inactivo y ya...

Dim fecha As Date Dim nuevafecha As Date Private Sub DTPicker1_Change() dia = DTPicker1.Day mes = DTPicker1.Month anio = DTPicker1.Year fecha = CDate(DIA & "/" & MES & "/" & ANIO) NUEVAFECHA = DateAdd("d", 280, FECHA) DTPicker2.Day = Day(NUEVAFECHA)...

Aquí te propongo la siguiente solución: '--------- MODULO Declare Function GetVolumeInformation Lib "kernel32.dll" Alias _ "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal _ lpVolumeNameBuffer As String, ByVal nVolumeNameSize As...