ifrancoz

Para esto podemos utilizar el evento Change de la siguiente forma : Private Sub Form_Load() Text1 = "" Text2 = "" End Sub Private Sub Text1_Change() Text2 = Text1 End Sub Suerte !

Para esto utilizamos el evento KeyPress y el código Ascii 68 que corresponde a la letra D. Ejemplo : Private Sub Form_Load() Text1 = "" End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 68 Then MsgBox "Correcto" End If End Sub Suerte !

Para colocar color a un label, botón y Text debe utilizar la propiedad BackColor, para las letras (Caption) se utiliza la propiedad ForeColor. Para mostrar en el formulario la fecha y hora se puede hacer en un label y para que la hora vaya...

Para esto sirve la respuesta de esta mañana con una pequeña modificación para que los espacios no interrumpan la secuencia. Dim I As Integer Dim Sw As Byte Dim Largo As Integer Private Sub Command1_Click() Text2 = "" Largo = Len(Text1) Sw = 0 For I =...

Pues se podría hacer algo como esto : Dim I As Integer Dim Sw As Byte Dim Largo As Integer Private Sub Command1_Click() Text2 = "" Largo = Len(Text1) Sw = 0 For I = 1 To Largo If Mid(Text1, I, 1) = " " Then Sw = 1 End If If Sw = 0 Then Text2 = Text2...

Para calcular la fecha final puede utilizar la función DateAdd la cual devuelve un valor de tipo Variant (Date) con una fecha a la que se le ha agregado o restado un intervalo de tiempo. DateAdd(intervalo, número, fecha) Ejemplo: Fechafinal =...

Lo que ocurre con esto es que hay que redondear a dos decimales cualquier valor antes de grabarlo en la base de datos. Por ejemplo: Dim Valor as Currency Dim Nvalor as Currency Valor = Round(Valor, 2) ' Aquí lo redondeo a dos decimales. Al hacer un...

Para hacer esto voy a requerir un Text5 para que el cursor se posicione ahí y poder controlar el evento KeyPress. Los Textbox del 1 al 4 los dejo con la propiedad Enabled=False y de esta manera el Text5 siempre tendrá el foco. Sería algo como esto :...

Si utiliza un Textbox para fecha debe escribir toda la validación y si quiere un calendario tendría que agregar el control calendario. Lo mejor para fecha es el control DateTimePicker el cual se adiciona al proyecto agregando el Componente "Microsoft...

Lo que debes hacer es escribir el número con formato, de la siguiente manera : Format(Numero, "0000") ' en este caso con longitud 4 De esta forma quedará con una longitud fija y con ceros a la izquierda. Suerte !