ifrancoz

Debes colocar la instrucción de esta forma : cr1.SelectionFormula = "{envios.num_guia}=" & txtnumeroguia.Text & " And "{envios.AÑO}=" & año.Text Es que falta los caracteres & " después del primer parámetro.

Par esto debes utilizar la función Datediff la cual devuelve el numero de intervalos entre dos fechas. Sería algo como esto : Dim Fecha1 As Date Dim Fecha2 As Date Dim Meses As Integer Private Sub Command1_Click() Fecha1 = Format(Text1, "yyyy/mm/dd")...

En la ayuda de Visual Basic se encuentran los códigos de todas las teclas para el manejo de la instrucción SENDKEYS pero faltó el correspondiente a una tecla muy importante y esta es la barra espaciadora. Buscando en Internet (por ello la demora en...

En donde valides el campo de texto (botón de comando o campo siguiente) o en el evento Lostfocus del textbox colocar lo siguiente : If len(Text1) < 8 then MsgBox "Debe ingresar 8 caracteres" Text1.SetFocus End if Suerte !

Text1.Maxlength=500 Private Sub Text1_Change() If len(Text1) > 499 MsgBox = "Completó los 500 caracteres" ' aquí hago cualquier cosa End Sub End Sub Suerte !

Lo que tienes que hacer en tiempo de diseño es colocar elvalor 10 a la propiedad Maxlength del textbox. Suerte !

Lo que tienes que hacer es colocar un acceso directo a tu programa en la carpeta Inicio. De esta forma : Inicio (click derecho) Abrir (click) Programas (click) Inicio (Aquí pegar el acceso directo, en esta carpeta) Suerte !

He hecho un ejemplo bien sencillo con un botón de comando Calcular : Dim Monto As Currency Dim Interes As Currency Private Sub Calcular_Click() If Len(Txtmonto) = 0 Then MsgBox "No ha insertado ningún valor de monto" Txtmonto.SetFocus Exit Sub End If...

1 - No funcionaría nada pero se vería el formulario pues la propiedad Enabled=False lo deshabilita. 2 - Se esconde con Img.Quadre.Visible=False Suete !

Puedes hacerlo de la siguiente forma : Dim Linea As String Dim Arch As String Dim I As Integer Private Sub Exportar_Click() Arch = "C:\Mitexto.txt" Open Arch For Output Access Write As #1 For I = 0 To List1.ListCount Linea = "" Linea = Linea &...