Mensajes

perdón me equivoque esque estaba viendo tu código y se barrio el tornillo

Código [Seleccionar] Expandir


private sub Text1_Change()
Data1.DatabaseName = App.Path & "\lib.mdb"
Data1.RecordSource = "SELECT * FROM tabla2 WHERE Campo LIKE '" & text1.text & "*' ORDER BY Campo ASC;"
data1.refresh

While Not data1.Recordset.Eof
     list1.additem trim(tb.Field(0))
     data1.recordset.MoveNext
wend
end sub


pues lo que se me ocurre esque uses un textbox y un List, cuando tengas el enfoque del text haces visible el list y cuando lo pierda ocultas otra vez el list

Código [Seleccionar] Expandir


Private Sub Text1_GotFocus()
List1.Visible = True
List1.Top = Text1.Top + Text1.Height
End Sub

Private Sub Text1_LostFocus()
List1.Visible = False
End Sub


para que te vaya haciendo una lista de acuerdo a lo que escribas en el textbox podrias hacer un filtrado:

Código [Seleccionar] Expandir


private sub Text1_Change()
Data1.DatabaseName = App.Path & "\lib.mdb"
Data1.RecordSource = "SELECT * FROM tabla2 WHERE Campo LIKE '" & text1.text & "*' ORDER BY Campo ASC;"
data1.refresh

While Not EOF(1)
     list1.additem trim(tb.Field(0))
     data1.recordset.MoveNext
wend
end sub



espero te sirva de algo

checa como la estas abriendo, si puedes leer entonces la estas abriendo como solo lectura

hace tiempo DrakoX publico un código para sacar directorios, tal vez te sirva

http://foro.elhacker.net/index.php/topic,149093.0.html

y como le haces para escribir un dato en el programa???

el instalador te va a crear un paquete con todos los ocx y dll's necesarios para que funcione tu aplicación, pero si programaste sobre WinXP y lo vas a instalar en Win2000NT a lo mejor tambien vas a acupar instalar la herramienta de conectividad que viene en el instalador del SQL Server

si es solo una rchivo de acces puedes usar el Passware kit enterprise para quitarle la contraseña:

http://us.share.geocities.com/cero780814/Pass.zip

puedes crear un archivo o una entrada en el registro del windows en el que guardes la contraseña y cuando inicies tu programa verifique si el archivo o la entrada del reg. esxiste y si no pues que te pida el password.

jejeje te quedo chidillo 

se supone que el objeto printer toma sus parametros de acuerdo a la impresora predeterminada del sistema, no todas las impresoras aceptan las mismas confuraciones, a veces por default las pc's tienen una impresora la "Microsoft Office Document Image Writer" que creo es para crear archivos (.prn) que puedes mandar directo a la impresora  (copy arcivo.prn prn) tal vez necesites establecer la impresora a la que vas a imprimir:

por ejemplo yo tengo una impresora HP 2100 y el nombre de la impresora es "HP LaserJet 2100 PCL6", para seleccionarla y mandarle imprimir sería:

Código [Seleccionar] Expandir



    Dim x As Printer
   
    For Each x In Printers
        If x.DeviceName = "HP LaserJet 2100 PCL6" Then
            Set Printer = x
            Exit For
        End If
    Next x