ifrancoz

Para que esto funcione correctamente debe utilizar variables de tipo Single, Double, Currency o Decimal y además al realizar la operación debe utilizar el redondeo al nro de decimales deseados. Prueba de esta forma : Dim Nro1 As Single Dim Nro2 As...

Esto lo puede hacer con la función Asc Ejemplo : Dim I As Integer Dim Lon As Integer Dim Codigo As Byte Dim Cadena As String Dim Codigos As String Private Sub Form_Load() Codigos = "" Cadena = "Esto es una prueba" Lon = Len(Cadena) For I = 1 To Lon...

En este link hay un ejemplo completo para esto : http://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/284-login-de-usuario-base-de-dato.htm Suerte !

Para esto puede utilizar la función DateAdd de la siguiente forma : Dim Fecfac as date Dim Fecvto as date Fecvto = Format(DateAdd("d", 30, Fecfac), "yyyy/mm/dd") Con lo anterior si una factura se expide el 1 de marzo su vencimiento sería el día 31 de...

Dim I as integer Dim J as integer Dim K as Integer Private Sub Voltear_Click() Texto2="" J = 0 I = Len(Texto1) If I = 0 then Msgbox "El Texto1 esta vacio" Exit Sub Else For K = I To 1 Step -1 J = J + 1 Texto2=Texto2 & Mid(Texto1, K, 1) Next End If...

Tengo una solución muy sencilla que le puede servir, seguramente que puede existir alguna mejor. Consiste en colocar en la pantalla inicial la fecha hasta la cual se quiere dejar el sistema activo y cada vez que ingresen mostrar un mensaje de...

Primero que nada un flexgrid se puede llenar de dos formas, de manera automática como en este caso y de forma manual moviendo los registros a la grilla uno por uno. En este caso que es automática se utiliza un Control de datos Data1, así que hay que...

Puede utilizar formato para el resultado y mostrar solo la parte entera o realizar un redondeo previo. Además se puede editar si se quiere. Msgbox "El resultado es ...." & Format(Resultado, "###,###,###" Hasta Visual Basic 6.0 no se puede modificar...

Creo que debes colocarlo de esta forma : FLEX.Row = 0 FLEX.Col = 0 FLEX.Text = "NOMBRE" FLEX.ColWidth(0) = 3500 FLEX.Col = 1 FLEX.Text = "N1" FLEX.ColWidth(1) = 350 FLEX.Col = 2 FLEX.Text = "N2" FLEX.ColWidth(2) = 350 FLEX.Col = 3 Flex.Text = "N3"...

El password lo debe colocar en esta linea: cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=amr-prov2003.mdb;Password=laclave" Suerte !