Visual Basic Foro

Enter ¡Eres un grande!, funciona perfectamente. Muchas gracias.

Muy buenas a todos. Tengo un programa hecho en vb 6.0 y tengo que presentar su codigo fuente.
Lo primero que intente hacer fue copiar el código de un formulario y pegarlo en el word, pero queda muy feo y no conserva los colores ,pierde el azul  de if else, with, etc... y también el verde de los comentarios.
Me gustaría saber si hay alguna forma de copiar el código manteniendo los colores (es posible agregar colores??), y si puedes todos de una tajada seria ya lo mas.
no me vale en PDF por que tengo que agregar encabezado y pie de pagina.
Muchas gracias de antemano. Saludos.

Bueno he conseguido una cuenta ,ha costado pero muy util ,aquí esta el enlace.


Comentar también que si esta crearform o modificarform abiertos y se va a eliminar y buscar me descuadra el datagrid.

No se si hay alguna forma de que aparezcan los formularios en cascada o cualquier otra forma para poder ver mejor cuales son los que están abiertos.

Por ultimo en los form1 e introducrform , tengo un problema de validación con el primer txbox(txtX), que si pierde el foco al dar el keypress del txtY me lo guarda ya este letras vacio....
Un saludo y si ven cualquier cosa que esta mal soy todo oídos....muchas gracias por su pronta respuesta y preocupación. Un saludo. De nuevo mil gracias¡¡¡¡¡

De veras muchas gracias por la contestación. Estoy realmente ofuscado con este tema. He realizado el cambio en crearform:
 
     'Set GrillaRegistros.DataSource = RsRegistros
    'FormatoGrillaRegistros
    'BLOQUEAR

y lamentablemente el problemas persiste. Abro modificarform(aparece todo), luego abro crearform(ahora la grilla aparece vacia por no llamar al set), y al volver a modificarform se borra todo. Recalcar que los abro desde un MDI,el problema solo sale si abro uno y abro otro sin cerrar el priemero(a este es al  que se le borran el grid). Si se cierra y vuelve abrir todo esta perfecto (tanto con la "x" del form como con cerrar del cmdbutton)

En cuanto a lo de crear diferentes recordset, no lo he probado....me preguntaba si podría hacerlo igual que el que viene abajo en el código que os muestro pero añadiendo un distintivo(un numero para cada vez que quiera usarlo en una grilla? seria hacer el recordset a la misma tabla).


''''DECLARACION EN UN MODULO'''''
Global Base As New ADODB.Connection
Global RsRegistros As New ADODB.Recordset

'''''''CONEXION EN OTRO MODULO''''''

Sub main()
    With Base
        .CursorLocation = adUseClient
        .Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Base.mdb;Persist Security Info=False"
        MDIForm1.Show
    End With
End Sub

Sub REGISTROS()
    With RsRegistros
        If .State = 1 Then .Close
        .Open "select * from TablaRegistros", Base, adOpenStatic, adLockOptimistic
    End With
End Sub
De nuevo muchas gracias por vuestro esfuerzo, espero que haya una solución por que me pasa tambien en otros formularios en el que utilizo el mismo proceso  . Un saludo.

Hola a todos.
Después de darle mil vueltas recurro a ustedes a ver si me pueden ayudar.
Tengo dos formularios. CrearForm y ModificarForm. Ambos llevan un datagrid: grillaregistros.
Los forms por separado funcionan a la perfección, el problema resulta cuando:

A) Si abro CrearForm, luego ModificarForm, al volver a CrearForm me encuentro que eldatagrid esta completamente vacio(nada, ni campos ni el formatoque aplique , nada).

B) lo mismo pero al reves.....  Si abro ModificarForm, luego CrearForm , al volver a  ModificarForm me encuentro que eldatagrid esta completamente vacio.


''''''''CODIGO FORM CREAR''''''
Private Sub ccmdReestablecer_Click()
LIMPIAR
End Sub

Private Sub cmdCerrar_Click()
Unload Me
End Sub

Private Sub cmdCrear_Click()
    If txtNombre.Text = "" Then MsgBox "El campo GRUPO no puede estar vacio", vbInformation, "Aviso": txtNombre.SetFocus: Exit Sub
    If txtInt1.Text = "" Then MsgBox "El campo Integrante 1 no puede estar vacio", vbInformation, "Aviso": txtInt1.SetFocus: Exit Sub
    If txtInt2.Text = "" Then MsgBox "El campo Integrante 2 no puede estar vacio", vbInformation, "Aviso": txtInt2.SetFocus: Exit Sub
    If txtInt3.Text = "" Then MsgBox "El campo Integrante 3 no puede estar vacio.En caso de que solo haya dos miembros en el grupo ponga un punto.", vbInformation, "Aviso": txtInt3.SetFocus: Exit Sub
        With RsRegistros
            .Requery
            .AddNew
                !grupo = txtNombre.Text
                !fecha = DTPicker1.Value
                !integrante1 = txtInt1.Text
                !integrante2 = txtInt2.Text
                !integrante3 = txtInt3.Text
            .Update
            .Requery
            LIMPIAR
        End With
        FormatoGrillaRegistros
        MsgBox "      GRUPO CREADO", vbInformation, ""
        Unload Me
End Sub

Private Sub Form_Load()
    Skin1.LoadSkin App.Path & "\skin.skn"    ''''' CARGAMOS EL SKIN
    Skin1.ApplySkin RegistrosForm.hWnd    '''''APLICAMOS EL SKIN A NUESTRO FORMULARIO
   
    REGISTROS
    DATOS
    Set GrillaRegistros.DataSource = RsRegistros
    FormatoGrillaRegistros
    BLOQUEAR
End Sub

Sub LIMPIAR()
    txtNombre.Text = ""
    DTPicker1.Value = Date
    txtInt1.Text = ""
    txtInt2.Text = ""
    txtInt3.Text = ""
    txtNombre.SetFocus
End Sub

Sub FormatoGrillaRegistros()
    With RsRegistros
        GrillaRegistros.Columns(0).Width = 0
        GrillaRegistros.Columns(1).Width = 2000
        GrillaRegistros.Columns(2).Width = 1000
        GrillaRegistros.Columns(3).Width = 3500
        GrillaRegistros.Columns(4).Width = 3500
        GrillaRegistros.Columns(5).Width = 3500
    End With
End Sub

Sub BLOQUEAR()
GrillaRegistros.AllowUpdate = False
End Sub

''''''''CODIGO FORM MODIFICAR''''''
Private Sub ccmdReestablecer_Click()
LIMPIAR
End Sub

Private Sub cmdModificar_Click()
If lblIdregistros.Caption = "" Then MsgBox "Selecciona un Grupo a modificar", vbInformation, "Aviso": Exit Sub
If txtNombre.Text = "" Then MsgBox "El campo nombre no puede estar vacio", vbInformation, "Aviso": txtNombre.SetFocus: Exit Sub
If txtInt1.Text = "" Then MsgBox "El campo Integrante 1 no puede estar vacio", vbInformation, "Aviso": txtInt1.SetFocus: Exit Sub
If txtInt2.Text = "" Then MsgBox "El campo Integrante 2 no puede estar vacio", vbInformation, "Aviso": txtInt2.SetFocus: Exit Sub
If txtInt3.Text = "" Then MsgBox "El campo Integrante 3 no puede estar vacio.En caso de que solo haya dos miembros en el grupo ponga un punto.", vbInformation, "Aviso": txtInt3.SetFocus: Exit Sub
   
    With RsRegistros
        .Requery
        .Find "IdRegistros='" & Val(lblIdregistros.Caption) & "'"
            !grupo = txtNombre.Text
            !fecha = DTPicker1.Value
            !integrante1 = txtInt1.Text
            !integrante2 = txtInt2.Text
            !integrante3 = txtInt3.Text
        .UpdateBatch
        .Requery
        LIMPIAR
        BLOQUEAR
    End With
    FormatoGrillaRegistros
    MsgBox "        GRUPO MODIFICADO", vbInformation, ""
    Unload Me
End Sub

Private Sub Form_Load()

Skin1.LoadSkin App.Path & "\skin.skn"    ''''' CARGAMOS EL SKIN
Skin1.ApplySkin ModificarRegistrosForm.hWnd    '''''APLICAMOS EL SKIN A NUESTRO FORMULARIO

REGISTROS
DATOS
Set GrillaRegistros.DataSource = RsRegistros
FormatoGrillaRegistros
BLOQUEAR
GrillaRegistros.AllowUpdate = False
End Sub

Sub FormatoGrillaRegistros()
    With RsRegistros
        GrillaRegistros.Columns(0).Width = 0
        GrillaRegistros.Columns(1).Width = 2000
        GrillaRegistros.Columns(2).Width = 1000
        GrillaRegistros.Columns(3).Width = 3500
        GrillaRegistros.Columns(4).Width = 3500
        GrillaRegistros.Columns(5).Width = 3500
    End With
End Sub

Private Sub GrillaRegistros_Click()
    With RsRegistros
        If .BOF Or .EOF Then Exit Sub
        .Find "IdRegistros='" & Val(GrillaRegistros.Columns(0).Text) & "'"
       
        lblIdregistros.Caption = !IdRegistros
        txtNombre.Text = !grupo
        DTPicker1.Value = !fecha
        txtInt1.Text = !integrante1
        txtInt2.Text = !integrante2
        txtInt3.Text = !integrante3
       
        DESBLOQUEAR
        'lblCodigo.Caption = !IdRegistros
    End With
End Sub
Sub LIMPIAR()

txtNombre.Text = ""
DTPicker1.Value = Date
txtInt1.Text = ""
txtInt2.Text = ""
txtInt3.Text = ""
txtNombre.SetFocus

End Sub

Sub BLOQUEAR()
    txtNombre.Locked = True
    txtInt1.Locked = True
    txtInt2.Locked = True
    txtInt3.Locked = True
    DTPicker1.Enabled = False
End Sub

Sub DESBLOQUEAR()
        txtNombre.Locked = False
        txtInt1.Locked = False
        txtInt2.Locked = False
        txtInt3.Locked = False
        DTPicker1.Enabled = True
End Sub

El caso es que en el form modificar al hacer clic me selecciona el registro a modificar, pero si se me vacia me da el error de que "conjunto de filas no esta disponible".
Mencionar que accedo a estos formularios desde los menús de un formulario MDI, y que si cierro los forms y vuelvo abrir funciona perfectamente, no se si se trata de alguna propiedad del grid pero no se exactamente donde puede estar el problema. Muchas gracias de antemano. Un saludo.

Hola de nuevo..... ya conseguí hacer la relación, me ha costado hacerlo aunque al final no era tan difícil.
 Ahora me han pedido hacer lo mismo pero con otro reactivo. La idea es la misma solo quiero que al mismo registro (grupo) se le asocie otra tabla (igual que la tabla datos tendría los mismos campos) solo que son datos del segundo reactivo. Así cuando haga clic en un grupo me aparezcan las dos tablas (datosA y datosB). DatosA y DatosB no tienen nada que ver (puede haber 10 datosA y ninguno datosB). Gracias de antemano y feliz 2015¡¡¡

Buenos dias¡¡  NO consigo asociar mediante programacion los alumnos con sus datos introducidos,no se si hay alguna manera de que lo haga simultaneamente....o deberia primero crear el usuario y luego seleccionarlo y ya asignarle sus datos.Muchas gracias de nuevo y que tengan una felices navidades.

Muchas gracias¡¡¡¡ con lo que me indicas conseguí solucionar el problema a la hora de restablecer utilizando redim nX(0)y redim nY(0).
Comencé programando dando por hecho que se seguirían los mismos pasos que sigo yo a la hora de interactuar con la aplicacion (grave error).

Yo intruducia los datos X e Y y los guardaba en arrays nX() y nY( mediante cmdGuardar).
Luego con un for recorría los arrays y trabajaba con ellos.El problema me  surge en los formularios que hacen los cálculos. Me esta dando este error "sub indice fuera de intervalo"
(creo que es porque pido que recorra este  For i = LBound(nX) To UBound(nX)) y al no haber datos no hay nada que recorrer ).
El caso es como hago o que condición impongo para que en casos como este no me salte dicho error.Pensaba en algo como :
 If nX()= algo then
msgbox"no hay valores guardados"
else
que haga los cálculos que tengo programados ya que si habría un array de valores guardado.Esta parte funciona.
end if

Muchas gracias desde ya y un saludo.