Parece que simplemente te faltan algunos And:


If Text1 >= 500 Then
Text2.Text = Val(Text1.Text) * 0.3
Text3.Text = 30
ElseIf Text1 >= 300 and Text1 <= 499 Then
Text2.Text =...

Solo se me ocurre que intentes ejecutar la instalación como administrador. No hacerlo suele dar fallos como ese.

Saludos

Nunca he aprendido a usar este sistema de manejo de archivos, asi que tendras que corregirme, pero la idea la pillaras.
Supongo que si lo que quieres es eliminar los ficheros de un dia de la semana,...

Si no esta ejecutando un solo comando, como p.ej. "copia todo esto", y no sale de ahi hasta que acaba, puedes meter un doevents entre 2 comandos.
Ejm:
For bucle=1 to findelacopia
orden
orden...

De ese estilo solo conozco el Dependency walker.

Saludos

(Formatea el codigo)


Private Sub TxtNumero_Change()
If IsNumeric(TxtNumero) Then

Dim N As Integer, P As Integer, I As Integer

Dim S As String

Pero puedes cambiar la llamada a la función tal que:

Funcion Command1

o crear una matriz de controles Command1(X) y usar literalmente el mismo código para llamar a la función, pulses el botón...

Lo mas sencillo sería añadir un parámetro para el control en la función:

Function TuFuncion (tusparametros, byref ElControl As Object) As loquesea

Saludos

Así consigues la diferencia en minutos o en segundos:


Dim T1 As String
Dim T2 As String
Dim EnMinutos As Long
Dim EnSegundos As Long
T1 = "10:03:00"
T2 = "10:30:00"

Me alegro de que te sirva. Tiene al menos un pequeño bug, pero confío en que lo habrás encontrado.
Yo también soy auto-didacta. Un amigo me enseñó a crear un proyecto y como el basic es simple...

No me he parado a comprobar, pero en teoría si abres el fichero for append en lugar de for output debería añadirse el texto al final de lo que haya.

Suerte

Siguiendo con el código que ya tenemos podemos hacer algo asi:


Private Sub Tecla3_Click()
PulsaTecla Asc("3"), txtFormato
End Sub

Private Sub TeclaPunto_Click()
PulsaTecla Asc("."),...

Siempre me dejo algo por decir...
Tienes más fallos, así que lo completaré un poco:


Private Sub txtFormato_KeyPress(KeyAscii As Integer)
' solo admitimos estos caracteres (esto esta bien)
...

Creo que con añadir esta comparación al final te valdría.
Después del punto y dos caracteres solo admite la tecla borrar por si te equivocas.
Incluyo el cero pero creo que sería mejor si sales de...

No veo el fallo.
Aunque nunca he trabajado con ese tipo de archivos, todo parece correcto.

Solo se me ocurre que al calcular el valor "number" te devuelve un numero mayor que el de registros en...

Por cierto, he visto un error.
En el control de errores de la sub Cargar no incluí el cierre del fichero si había un error.
De ese modo si el fichero se abre y luego hay un error, el fichero se...

File1.Filename solo contiene el nombre del fichero.
Necesitas incluir la ruta completa:


FicheroDatos = Dir1.Path & File1.FileName

Sin embargo, Dir1.Path puede llevar o no llevar una "\" al...

Claro que puedes quitarlo. Solo es un ejemplo. Adáptalo a tu gusto.

Aqui se carga el combo, solo quita estas líneas:

Combo1.Clear
For F = 0 To UBound(BaseDeDatos)
Combo1.AddItem...

Yo creo que quieres entrar con el mismo usuario y ese usuario está en la lista negra.
Así me parece que no hay nada que hacer con la red.

Saludos

PD: no tengo skype ni nada de eso, soy un...

Es que os explicáis como un libro cerrado :P

¿Que necesitas? ¿Mostrar el escritorio?


Dim objShell
Set objShell = CreateObject("Shell.Application")
objShell.ToggleDesktop
Set...

Me aburro tanto que te he hecho una demo de base de datos casera.

Crea un nuevo proyecto y pon:
5 textbox (llamados text1, text2, etc...)
1 Combobox (llamado combo1)
1 Command button (command1)...

No se en que lenguaje trabajaras, alvaro_flores, pero a mi el VB6 me da error con FechaOrden.Day y todo lo que se le parece.
Tampoco se para que compruebas tanto si el datediff ya devuelve 0 cuando...

Te habran pillado la MAC de la tarjeta de red o algo asi.
Si no la puedes cambiar instala un VirtualPC, instalale windows y juega desde el, será como jugar desde un PC diferente.

Saludos

Perdón, se me habia caido la WWW de la primera fórmula:

Mapanet - Calculo de distancias entre dos coordenadas geográficas

Dos fórmulas más, y estas reciben los valores directamente en grados con lo que te evitas convertirlos a Km.


D = 6378.137 * Atn(Sqr((1 - (Sin(lat1 / 57.29577951) * Sin(lat2 / 57.29577951) +...