Mensajes

y como haces la conexión?  a lo mejor tienes Password, o estas abriendo la BD en modo de solo lectura

lo que dice Snort esta bien solo que tambien debes recordar que si minimizas el form tendras un error.
Por ejemplo si tienes
text1.height = form1.height -255
al minimizar el Height del text1 sera un número negativo, tebrecomiendo que tambien uses el control de errorres

Private Sub Form_Resize()
     On Local error resume next
     text1.height = form1.height -255
    On Local Error goto 0
End sub}

con eso ya no truena tu programa

jaja ye entendi como se ejecutan los ejemplos, crei que se tenia que abrir el .exe y desde alli cargar los txt, todo por no leer el "LEAME" jaja

tiene que ir en algun directorio, me sale un error

"error 75 en tiempo de ejecución"

"error de acceso a ruta o archivo"

mira para abrir una BD puedes hacerlo asi

Dim BD as Database
Dim Tb as Recordset



set BD = Workspaces(0).Opendatabase("Tu base de datos")

set tb = BD.OpenRecodset(Tabla o consulta SQL)



para agregar registros

tb.Addnew
tb!Campo1 = Valor1
tb!campo2 = Valor2....
tb.Update
--------------------------
o puedes meter una consulta SQL
bd.execute ("INSERT INTO Tabla (campo1, campo2...) " & _
                  "VALUES (Valor1, Valor2...)


para cerrar la BD
tb.close
BD.close
set tb = nothing 'Liberas memoria
set BD = nothing

pues depende de que quieres que hagan esos menus, si los agregas para generar una especie de "Documentos abiertos recientemente" pues puedes ponerle en el nombre del menu el path del archivo y asi abrir los archivos

tengo este manualito, esta muy austero, pero es bueno para empezar,


http://www.geocities.com/cero780814/DataReport.doc

creo que ya tienes la solución

... de manera que todo el bloque de texto (Texto existente + Nueva Linea) ...

ya probe el código y si funciona, de hecho en un form puse un RichTextBox y 3 CommandButton, estoy escribiendo y le doy click a algun boton y sigo escribiendo en otro color:

Option Explicit

Private Sub cmdAzul_Click()
    RichTextBox1.SelStart = Len(RichTextBox1.Text)
    RichTextBox1.SelColor = vbBlue
    RichTextBox1.SetFocus
End Sub

Private Sub cmdRojo_Click()
    RichTextBox1.SelStart = Len(RichTextBox1.Text)
    RichTextBox1.SelColor = vbRed
    RichTextBox1.SetFocus
End Sub

Private Sub cmdverde_Click()
    RichTextBox1.SelStart = Len(RichTextBox1.Text)
    RichTextBox1.SelColor = vbGreen
    RichTextBox1.SetFocus
End Sub




ahora no se si eso es lo que quieres hacer.

creo que alguna vez vi en la paqgina del Guille (http://www.elguille.info/) que estaban incluyendo imagenes con algunas API's, pero creo que coincido con WarGhost, no te compliques y mejor mete un ListView