Mensajes

pues hacer lo siguiente


dim s as string

s = combobox1.List(n)


o 
Private Sub Combo1_Click()

End Sub

Hola, estyo haciendo un programa en el que utilizo algunos archivos .bat, los mando llamar con la instruccion Shell, pero los ajecuta asincronamente

Shell App.Path & "\respaldo.bat", vbNormalFocus


hay alguna manera de hacer que mi programa espere hasta que el archivo bat termine su ejecución??

en la conexión tal vez te falte ponele ;pwd="tucontraseña";

puedes hacerlo de la siguiente manera:

dim BD as database
dim tb as recordset

set bd= workspaces(0).Opendatabase("Ruta y Nombre de la BD", Exclusivo, Sololectura)

set tb = bd.openrecordset(Consulta Sql o Nombre de la tabla)

para cerrarlo...
tb.close
db.close
set tb = nothing -> Libera la memoria
set bd = nothing


para mayor información consulta ADO en la ayuda del VB

pues de hecho lo que yo he hecho es que recorro los valores del arreglo es decir elemento2 = elemento3, elemento3= elemento4... y al final utilizo la instrucción Redim Preserve  para eliminar el último elemento

debes utilizar esto el evento KeyDown y el código del Alt es el 18
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
end sub

lo puedes hacer con la función

SetAttr pathname, attributes

pathname - .Expresión de cadena que especifica un nombre de archivo. Puede incluir el directorio o carpeta y la unidad de disco.

attributes  - Constante oexpresión numérica, cuya suma especifica los atributos de archivo. 


Valores
vbNormal           0             Normal (predeterminado)
vbReadOnly        1            Sólo lectura
vbHidden            2             Oculto
vbSystem           4             Archivo de sistema.
vbArchive         32             El archivo ha sido modificado después de haberse efectuado la última copia de seguridad.


Nota   Visual Basic para aplicaciones especifica estas constantes. Como resultado de ello, esos nombres se pueden utilizar en cualquier lugar del código sustituyendo al valor correspondiente.

Comentarios

Si se trata de establecer los atributos de un archivo abierto, se producirá unerror en tiempo de ejecución.

el link de tu programa no funciona. corrigelo para poder ver como esta tú programa

puedes hacer un bat que haga eso:

Net [opciones]
net start X    Inicia el servicio X
net stop X    Termna el servicio X
net config server    Muestra/modifica servicios.
   /hidden=yes/no indica si el servidor debe
             mostrarse en la lista de ordenadores. Se
             corresponde con el comando Samba 'browseable'
   /autodisconnect:X minutos antes de que se
              desconecte un usuario del servidor
net pause X    Detiene el servicio X
net continue X    Reanuda el servicio X
net view X /domain: Y    mostrar dominios enteros o
                                             recursos en un equipo
   /Domain: y -> muestra equipos en el dominio
   X es el servidor que se desea ver (\\X)
net print impresora    Permite ver/modificar la cola de impresión
   /hold:x -> no imprimir el trabajo X
   /release:x -> reanudar trabajo X
net share    Mostrar/modificar recursos compartidos
net use nombre \\recurso    Crear una conexión de red


esto lo saque de esta página

no entiendo exactamente lo que quieres hacer, al decir "Guardar los datos del programa", quieres que cada vez que hagas cambios al còdigo lo guarde en un archivo txt, doc, etc.



por otra parte creo que te enredas mucho con el còdigo puedes hacer que los textbox acepten solo nùmeros:



Private Sub text1_KeyPress(KeyAscii As Integer)
    If KeyAscii = 8 Then Exit Sub
    If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0
End Sub


y por otra puedes usar un for para revisar si los textbox estan vacios:

Dim x As TextBox
       
    For Each x In Controls
        If x = "" Then MsgBox "..."
    Next