SoloCodigo

Me pueden ayudar con este codigo me marca Error '380' en tiempo de Ejecucion
El valor de la propiedad no es valido
Este error me Marca cuando estoy diseñando el programa y lo ejecuto con F5 y tambien cuando esta generado el .EXE

Printer.ScaleMode = 7 'Escala en Centimetros
Printer.FontName = "Lucida Console"
Printer.Orientation = 1
Printer.PaperSize = 1 'Tamaño Carta, Aqui me marca el ERROR
Printer.FontSize = 10
Printer.Font.Bold = False
Printer.CurrentX = 0.4
Printer.CurrentY = 3
Printer.Print cboCliente
Printer.EndDoc

Primero Tratare de estudiar bien este codigo que me mandas y luego adapatarlo a mi proyecto

Gracias

Ayuda por favor, Necesito cambiar de "DAO" a "ADO" el motivo de cambiar ADO es por que segun comentarios que leido, es mas rapido conectarse con ADO  a una base de Datos y menos problematico, abajo describo el codigo que necesito cambiar a ADO, uso Data Control por si sirve de algo, ustedes me dicen que codigo tengo que cambiar, quitar o poner.  Gracias



------------------------------------------------
Private Sub cboArticulo_Click()
' Load the selected record.
    Articulo.RecordSource = _
        "SELECT * FROM Producto WHERE Descripcion='" & _
        cboArticulo.Text & "'"
    Articulo.Refresh
End Sub
----------------------------------------------------------
Dim dbname As String
Dim db As Database
Dim rs As Recordset

    ' Open the database.
    dbname = App.Path
    If Right$(dbname, 1) <> "" Then dbname = dbname & ""
    dbname = dbname & "clientes.mdb"
   
    Set db = OpenDatabase(dbname)   ' Creo que aqui estoy utilizando DAO
    Set rs = db.OpenRecordset( _
        "SELECT Cliente FROM Client ORDER BY Cliente", _
        dbOpenSnapshot)

    ' Load the ComboBox.
    rs.MoveFirst
    Do While Not rs.EOF
        cboCliente.AddItem rs!Cliente
        rs.MoveNext
    Loop
   
    rs.Close
    db.Close
   
    ' Connect the Data control to the database.
    datPersonas.DatabaseName = dbname

    ' Select the first choice.
    cboCliente.ListIndex = 0
   
End Sub

Si alguien me puede ayudar por favor, con un codigo para adaptar los formularios a cualquier resolucion de pantalla, he visto algunos pero estan muy extensos y complicados para entender y adaptarlos a mi proyecto

Si no hay, voy a tener que  redimensionarlos en cada computadora que instale el proyecto, es decir voy a programarlos en cada computadora

El error estaba en que la base de datos estaba protegida contra escritura, es decir cuando grabe  la carpeta con el instalador al cd, automaticamente todos los archivos se ponen como solo lectura, y claro lo que hice es abrir las propiedades de los archivos y quitarle de solo lectura y funciono

Pasando a otro tema, surgio otro incoveniente ahora los formularios no salen completos y no estan centrados
creo que es problema de la resolucion de la pantalla de cada PC que instalo el prog

A ver si alguien me puede explicar el Setup Factory, lo que que pasa que esta en inlges y no entiendo nada de las opciones qu trae

¿Este empaquetador compila exe's como lo hace el Visual Basic 6 o nomas comprime todos los archivos como lo hace un zip

Disculpa qu no haya contestado pronto pero se atraveso el fin de semana y ya no puede contestar

Gracias Brroz por tu consejo y a ccortes
ya esta arreglado el problema

Tengo este codigo repetido 2 veces en el formulario lo unico que cambia de uno al otro es el nombre del Combo y la Base de datos claro tambien cambia la tabla y el campo de la base de datos
Al ejecutar el codigo me marca el error
'funcion o nombre ambiguo',  
me supongo porque se repite el Private Sub Form Load 2 veces, entonces como agrego estos dos codigos sin que haya error

-------------------------------------------------------------------------------
Private Sub cboName_Click() ' Este el nombre del Combo
' Load the selected record.
datPeople.RecordSource = _
"SELECT * FROM People WHERE Name='" & _ '
cboName.Text & "'"
datPeople.Refresh
End Sub
--------------------------------------------------------------------------------
Private Sub Form_Load()
Dim dbname As String
Dim db As Database  
Dim rs As Recordset

' Open the database.
dbname = App.Path
If Right$(dbname, 1) <> "" Then dbname = dbname & ""
dbname = dbname & "data.mdb"

Set db = OpenDatabase(dbname)
Set rs = db.OpenRecordset( _
"SELECT Name FROM People ORDER BY Name", _
dbOpenSnapshot)

' Load the ComboBox.
rs.MoveFirst
Do While Not rs.EOF
cboName.AddItem rs!Name
rs.MoveNext
Loop

rs.Close
db.Close

' Connect the Data control to the database.
datPeople.DatabaseName = dbname

' Select the first choice.
cboName.ListIndex = 0
End Sub

Este codigo es para admita numeros, coma, punto y la tecla de retroceso pero cuando intento introducir el punto me pone la coma ¿que pasa?


Private Sub Text2_KeyPress(KeyAscii As Integer)

    Cadena = "0123456789.," + Chr(8)       'chr(8) = delete, es decir admitimos borrar
   
    If InStr(Cadena, Chr(KeyAscii)) = 0 Then
        KeyAscii = 0
    End If

    If KeyAscii = 46 Then
   
        KeyAscii = 44
       
    End If

End Sub

Creo que el probelma esta en la Matriz de Control" pero por mas que le doy Vueltas al codigo no logro entenderlo

No se si puedan darme un ejemplo ya echo con los textbox y el combox

Entenderia si no me lo pueden dar y disculpen otra vez mi ignorancia

Gracias
ramirog@valle.net.mx

Hola Chiaravel

No se si me explique bien:

Ya tengo el combox con Items adentro
Quiero que al escoger un item del combox, y luego le doy click a un CommandButton me pase el item que escogi del combox a un textbox, si el primer textbox esta vacio entonces me lo ponga ahí, y si esta lleno entonces me lo pase al segundo textbox, 3, 4, 5, 6 etc.

Estos pasos se repiten cada vez que escoja un item del combox hasta llenar los 14 textbox

El codigo que me diste al darle click al botton me pone este error:

Error '340' en tiempo de ejecucion
El elemento '15' de la matriz de controles no existe

Gracias de antemano

Codigo para Pasar Items de un Combox a Varios TextBox

Tengo un ComBox con una lista de items, estos items quiero pasarlos de uno en uno por medio de un CommandButton a 15 TextBox

Es decir el codigo me va checar si el primer TextBox ya esta lleno con un item entonces lo pasa al segundo y si el primero y el segundo ya estan llenos entonces me lo pasa al tercero y asi sucesivamente

Gracias de Antemano