SoloCodigo

ta bueno, Gerard, pero probé pasando un archivo al Escritorio y no lo pasó, lo probé pasarlo de C: y lo hizo, pero la barra de porcentaje no se mueve mucho, no se completa, pero si hace el proceso, de seguro a ti si te funciona muy bien, pero voy a ver por qué a mi me falla en eso.

También no permite pasar carpetas completas, a ver si es posible arreglarle eso, pero está muy bueno tu aporte, si consigues algunos otros fuentes de calidad, no dudes en subirlo al foro.

Gracias elemaitame, voy a probar eso que dices y si consigo lo que busco, se los haré saber, sino, es porque aun sigo buscando, pero de seguro si sirve.

Muchas gracias:D
Saludos.

Ahora si:D ¿deberías en un futuro cercano, publicar muchas de estas cosas? nos ayudaría mucho...

Apenas estoy viendo lo de hacer ocx
Eso es todo, muchas gracias por el dato JavierBalk

Saludos.

Eso no se puede hacer con un CommandButton, pero si visitas la siguiente página, puede ser que tenga lo que necesitas:

www.ambsoftware.com

Si en el TextBox de busqueda escribes: botón (con el acento)

Ahí encontraras un código para que un commandbutton lo haga, pero da error, así que puedes bajar un proyecto que tiene como titulo botón mágico o algo así, de todas formas, aquí adjunto ese proyecto.  Si ese ocx te sirve, entonces ya sabes lo que tienes que hacer, pasarlo a la carpeta System o System32, es decir, donde estén tus demás ocx cuando el Visual Studio se instaló y luego llamarlo a la lista de Componentes por medio de Examinar.  Avise al Webmaster sobre el problema del código para el commandbutton, el cual es muy largo, por lo que ojala sirva más este ocx que el código.

Saludos

Bueno, no sé si esto pueda servir, pero si por ejemplo, deseas capturar un error con respecto a una aplicación desarrollada en Visual Basic, puedes pasar por esta página:
http://www.microsoft.com/latam/msdn/art ... efault.asp

Por ejemplo, hice una prueba en base a la información que ofrece esta web y pude capturar un error, dar el aviso que yo quise y no el que por defecto indica el Visual Basic, y se puede hacer que haga otra cosa o omitirlo etc.

Espero que pueda orientarte un poco en lo que buscas.

Saludos

Hola ainhoa.

Tengo unas preguntas que deseo hacer:
En una nota anterior a esta, indicaste que el programa que realizas tiene 2 o 3 bases de datos, y en esta nota dices que tienes 3 tablas y yo pregunto:
¿Fue error de sintaxis?, ¿es una BD con 3 Tablas o si son 3 BD?

La siguiente pregunta puede ser algo tonta, pero no indica que no llegue a pasar dicho descuido, aunque en tu caso dudo que así sea:
¿El Data3 está enlazada a la BD correcta (en caso de ser varias BD) y en especial, el Data3 está conectado a la Tabla correcta?
Es solo para descartar opciones sobre lo que pueda estar causando el problema.

Usas código DAO y 3 Control Data DAO, el código que publicas para ingresar parece estar bien.  Ojala puedas colocar más código o de ser preferible y posible, adjuntar el programa para verlo, si no puedes, no importa, pero miestras más información mejor.

Tal vez yo no te pueda ayudar, pero has vuelto a reformular tu pregunta y ayer me dije, si el día de hoy no le han contestado, entonces le pregunto lo que ya he escrito.

Yo creo que tengo algo lijeramente parecido:
Tengo un proyecto, que aun no está terminado pero hasta el momento hace lo siguiente:
Guarda los datos de un Estudiante en la Tabla Estudiante y también los guarda en otras Tablas, porque así lo tiene indicado, y muestra en un Combo, la información de otra tabla, la Tabla Docente.  Se supone que se guardan los datos del estudiante y se escoge del combo el profesor que tendrá asignado y por ahí va la cosa del programa.

También te recomiendo que pruebes colocando la pregunta en otros Foros de VB para abarcar más terreno, a ver si alguien que sepa, pase por ahí y vea tu pregunta y resuelva el problema que te tiene trancado, beuno.

Saludos

Vas a ser lo siguiente:
Buscas en el respectivo menú Proyecto -> Componentes y buscas:
Microsoft Windows Common Controls 6.0

Este juego de controles también salen si abres el Visual Basic en endición Empresarial en vez de la Estándar.

De los controles que se desplegaron, el que necesitas es el control Toolbar el cual insertas en el Form.

Por defecto se pondrá arriba así que en sus propiedades (las que muestra VB) pones Align: 0 - vbAlignNone
Y lo mueves a donde lo quieres poner y lo pones más pequeño.

Luego seleccionas al Toolbar y pulsas botón derecho y propiedades y te vas a la pestaña Botones, y ahí creas tu respectivo botón, en Caption: su nombre, y en Key: el nombre que lo identifica por código.  Ambos nombres pueden ser iguales.  En Style: 5 - tbrDropdown

Abajo en la Frame: ButtonMenus
Insertas los botones necesarios, por ejemplo, dos botones y sus nombres en Text y Key, pueden ser iguales.

Por ejemplo para el botón 1:
Text: Formulario y para el Key: Formulario

Para el botón 2:
Text: Calculadora y para el Key: Calculadora

Hasta ahí ya tienes el botón que indicas.
Luego hay que codificar el siguiente evento con esto:

Private Sub Toolbar1_ButtonMenuClick(ByVal ButtonMenu As MSComctlLib.ButtonMenu)
    Select Case ButtonMenu.Key
        Case "Formulario": Form2.Show vbModal
        Case "Calculadora": Shell "C:WINDOWSCALC.EXE"
    End Select
End Sub

¡Claro!, este ejemplo despliega el botón para mostrar otros dos botones, uno que llama a un Form2 y otro a un programa externo.  Poniendo un control CommonDialog puedes desplegar ventanas de abrir.

Para colocarle una imagen a la izquierda, algo que se preguntó hace poco, debes de colocar un control ImageList y pulsando botón derecho, propiedades, lo siguiente:
En la pestaña General es para el tamaño, puedes probar con 16x16 y luego te vas a la pestaña Imágenes y ahí buscas los iconos que necesitas.  Cada vez que buscas un icono, se enumera en Key, también le puedes poner un nombre en Key, pero no es necesario.

Vuelves al toolbar, botón derecho, propiedades y en la pestaña General indicas ImageList: ImageList1
Luego nuevamente a la pestaña Botones y en Image: 1 ó Image: Nombre del icono (en caso de haberle colocado un nonbre)

Debería quedar igual a esto:

Perdon, se me olvidaba, la idea es un TextBox invisible, pero no lo puse invisible, pon el TxtDato.Text invisible para que no se vea en ejecución, que Dios te ayude a ver si logras que funcione o comenzar a pensar en otra idea, aunque si ya alguien te dijo como hacerlo, ojala puedas compartirlo con la comunidad, bueno.

Pasate por estas direcciones y mira a ver si te sirven algunos de estos instaladores.

Install Maker
http://www.clickteam.com

Setup Generator
http://www.gentee.com

Inno Setup
http://www.innosetup.com

¡Sabes!, realmente no indico que sea quien te va a ayudar, porque es posible que me quede corto con respecto al problema, pero me da curiosidad.

¿Usas código DAO, no?, podrías colocar parte del código publicamente sólo para ver como va.

Que bueno, ya tengo imagen, pero la firma aun no sale, pero bueno, ya arreglaremos eso.

Este es un pequeño ejemplo que tengo hecho y es el siguiente:

'Las respectivas variables:
Dim BD As Database
Dim Rs As Recordset

    Set BD = OpenDatabase(App.Path + "BaseDatos.mdb")
    Set Rs = BD.OpenRecordset("Select * From Cliente Order by Nombre")
    If Rs.RecordCount > 0 Then
        Rs.MoveFirst
        Do While Not Rs.EOF
            Combo1.AddItem Rs.Fields!Nombre
            Rs.MoveNext
        Loop
        Combo1.ListIndex = 0
    End If
    Actualizando_Combo
    'Rs.Close
    'BD.Close
End Sub

Tengo esto en el botón Guardar:
    Rs.AddNew
        Rs!Nombre = TxtNombre.Text
        Rs!Apellido = TxtApellido.Text
        Rs!Telefono = TxtTelefono.Text
    Rs.Update
   
    Do While Not Rs.EOF
        Combo1.AddItem Rs.Fields!Nombre
        Rs.MoveNext
    Loop
   
    Actualizando_Combo
    MsgBox "Guardado"

Encapsulé esto para llamarlo varias veces:
Private Sub Actualizando_Combo()
    Combo1.Clear
    If Rs.RecordCount > 0 Then
        Rs.MoveFirst
        Do While Not Rs.EOF
            Combo1.AddItem Rs.Fields!Nombre
            Rs.MoveNext
        Loop
        Combo1.ListIndex = 0
    End If
End Sub

Private Sub Combo1_Click()
    Rs.MoveFirst
    Rs.Move Combo1.ListIndex
    TxtNombre.Text = Rs.Fields!Nombre
    TxtApellido.Text = Rs.Fields!Apellido
    TxtTelefono.Text = Rs.Fields!Telefono
End Sub

Private Sub Combo1_Change()
    TxtDato.Text = Combo1.ListIndex
End Sub

Pero esto funciona por un truco que tiene el cual es un TextBox de nombre TxtDato.Text el cual está invisible, pero al menos funciona.  No tengo mucho manejo del Combo para esto, pero con eso del TextBox invisible, el Combo le pasa el dato y desde ahí es más fácil, por lo que para que funcione esto, tienes que poner un TextBox invisible de nombre TxtDato.text en alguna parte del Form.

Ojala te sirva o te de una idea, bueno.

Esta es la dirección de donde se pueden bajar unos plug-in gratuitos y es deber tuyo bajar información, algún manual, tutorial para su manejo, también están los Foros de Crystal Report para aportar ayuda.

http://ess.nde.state.ne.us/AuditCon/Dow ... viewer.htm

Soy testigo de que programas como el SQL Server y el Crystal Report se pueden conseguir por medio de Kazaa, solo es cuestion de que otro usuario de Kazaa esté conectado para que puedas bajar de su carpeta compartida el software que buscas.

Pero hasta esta fecha, eso es todo lo que podría aportarte porque como ya te había mencionado antes, no tengo el Crystal Report y algún trabajo de Reportes con respecto a esta aplicación es algo que aun no he hecho.  Escuché en otro Foro de que en los CD del Visual Studio viene el programa, o algo así.

Bueno, suerte.

Lo único que yo sé hacer con respecto a eso es que el Picture o Image no desproporcionen su medida con respecto a la del Formulario, pero para  una Picture el control no la estira (la imagen) esta sigue con su tamaño pero en un Image, la imagen si puede estirarse con respecto al alto y ancho del control.

Pero como en tu caso el contenido no es una imagen buscada sino unas lineas trazadas, los rectangulos, en verdad no sé, este código sólo es para que el Picture siempre conserve un margen con respecto al Formulario en el que se situa.

Private Sub Form_Resize()
    On Error Resume Next
    Picture1.Move 100, 100, Me.ScaleWidth = 200, Me.ScaleHeight - 200
    Picture1.Width = Form1.Width - 300
    Picture1.Height = Form1.Height - 600
End Sub

Ojala se presente la persona que pueda saber esto, porque en lo que a mi respecta, no tengo idea sobre cómo hacerlo.

disulpa que no tenga a la mano, el juego de cartas que necesitas para ganarle la partida al problema.