Mensajes

lo bueno de la programación y los foros esque encuantras un monton de formas distintas de hacer las cosas

bueno yo lo hago asi:

Código [Seleccionar] Expandir


dim BD as database

set BD = Workspaces(0).OpenDatabase("nombreBD", Exclusivo, SoloLectura)

on local error resume next
BD.Execute "INSERT INTO Tabla " & _
               "(Campo1, Campo2, ...) VALUES " & _
               "('" & valor1 & "', '" & valor2 & "', " & ... & ")", dbFailOnError
if err then msgbox Err.Number & vbcrlf Err.description
On local error goto 0

bd.close
set bd = nothing

[/close]

tienes razón me equivoque al "abrir el archivo", para crear el nuevo archivo sería:

Código [Seleccionar] Expandir


Open "c:\...\nuevo_archivo.txt" For Output As #F


mmm  , tendre que pobar haciendo un instalador y poniendolo en otras pc's

haslo de acuerdo al tamaño del form

Código [Seleccionar] Expandir


private sub Form_Rezise
text1.left = me.width - text1.width-100
end sub



así no importa que tamaño tenga el form o que resolución tenga la pantalla

Oraleeee!!!!!  gracias EON, funciono a la perfección, me has dado un gran regalo de navidad 

espero que re refieras a que cuando le das en el boton maximizar el form solo se estire a lo ancho, si es así podrías hacer lo soguiente:

Código [Seleccionar] Expandir


Dim Maximizado As Boolean
Dim Ancho As Long, Alto As Long, Arriba As Long, Izquierda As Long

Private Sub Form_Resize()
    If Maximizado Then
        If Me.WindowState = 2 Then
            Me.WindowState = 0
            Me.Move Izquierda, Arriba, Ancho, Alto
            Maximizado = Not (Maximizado)
        End If
    Else
        If Me.WindowState = 2 Then
            Me.WindowState = 0
           
            Maximizado = Not (Maximizado)
           
            Ancho = Me.Width
            Alto = Me.Height
            Arriba = Me.Top
            Izquierda = Me.Left
           
            Me.Width = Screen.Width
            Me.Top = 0
            Me.Left = 0
   
        End If
    End If
   
End Sub


espero te sirva de algo...

  eso si que esta raro

manejas el control de errores para saber si la base de datos esta abierta en modo de solo lectura y/o escritura, o con bloqueos pesimistas u optimistas

y si pusieras los objetos dentro de un picturebox y usas el objeto printer:

Código [Seleccionar] Expandir


Printer.PaintPicture Picture1.Picture


con esto se supone que te imprime todo el contenido del PictureBox, o por lo menos es lo que le entendi a la ayuda del VB, espero te sirva de algo

pero cuando instale el programa generalmente lo hace en c:\archivos de programa\... y el tiene su base de datos en c:\windows, ahora si el windows de donde instale es nt tendria que poner c:\winnt, lo del app.path serviría si la pone en el mismo directorio de donde tenga su ejecutable, por lo de la api, no creo que sea necesario, el datacontrol acepta que el path que le pongas sea de "nombres largos"