SoloCodigo

Hola Gerard

Disculpa la tardanza pero es que ando liado...

Te adjunto el ejemplo que me pedías, espero que te sirva.

Sort.

Sí, sí... te entiendo perfectamente, yo también me aplicaría a mi mismo el ejemplo de la trucha.

Por supuesto que no pretendía dar ninguna pauta de cómo o qué responder a un tema que se plantea, lo único que quería era desahogar un poco, es que no pude quedarme callado.

Es decir lo de siempre, pero entiendo que un foro es un lugar donde consultar dudas propias, aprender de las dudas de otros, obtener y clarificar ideas, dar a conocer cuestiones... no un lugar del que alguien pueda decir: "'¡Menuda bicoca! hay un sitio llamado SoloCodigo donde una serie de pringaos me hacen el trabajo" o "Para que me voy a molestar en presionar F1 o buscar en un libro y TRATAR DE ENTENDER lo que leo, si estos me lo dan todo masticadito."

En fin... unha aperta amigo Movilla y que no decaiga.

Hola amigüit@s!

Creo que hay gente que no se acaba de enterar del buen uso que se puede hacer de un foro de consulta.

 

Originalmente publicado por mexican
ME PUEDEN EXPLICAR ESTE CODIGO LINE POR LINEA

 

Originalmente publicado por Brroz
Hala, ya está explicado línea a linea. Ya ves que me tiré el rollito... ahora a ver si te sirve para algo... Si quieres para la próxima te escribo un manual de vb, o te hago el análisis de tu aplicación, o mejor aún te paso un programa de facturación al completo, o sencillamente paso de responderte.

A lo mejor me pasé un poco... mis disculpas Mexican. Supongo que no obras así de mala fe, pero de todas formas me da la sensación de que no has pillado el mensaje, sino no tiene explicación tu respuesta (¡ Qué milagro, respondiste ! fíjate en el jaleo que se formó con Pelotita, la de los bellos ojos...). Tal vez vamos a tener que INCLUIR OFRECIMIENTOS DE SOFT POR EL MORRO AL FINAL DE LAS RESPUESTAS para que LOS QUE INICIAN UN TEMA LO CIERREN.

 

Originalmente publicado por mexican
Otra cosa y disculpa las molestias, creo no me vendria mal que me mandaras un progama de facturacion completo en codigo, Brroz

Pues eso, me parece que ALUCINAS... si quieres te vendo la aplicación, pero del código olvídate.

Bueno, ya está, me apetecía echar un poco por fuera.

Saludos para todo el mundo sin excepción.

Hola anamercy.

Por mucho que utilices métodos gráficos en un control PictureBox no vas a conseguir que esos cambios se reflejen en el archivo o datos desde los que has cargado una imagen. La solución pasaría por usar algún control de edición de imagen ,o por utilizar apis para crear un bitmap que pudieras guardar (me gustaría ver cómo se hace) o por guardar tú misma los cambios abriendo el archivo en binario (o los datos binarios del campo de la bd) y escribiendo la imagen modificada, claro que esta última opción no es nada sencilla dada la multitud de formatos de imágenes, compresiones, y otras zarandajas que te puedes encontrar y debes conocer para guardar la imagen de forma correcta.

En fin, si no usas wXp, una solución sencilla es usar el ocx ImageEdit (lo de wXp es porque en Xp este control no se incluye con el SO).

Suerte.

Buffff...

Doy por supuesto que has vuelto a generar el empaquetado desde la carpeta 'Support' con el archivo de proceso por lotes correspondiente. Si no lo has hecho, ya sabes... si ya lo has hecho y todo sigue igual, lo único que se me ocurre es echarle un vistazo a un archivo con extensión DDF que debe haber en la carpeta Support.

A ver si arreglas o si alguien hace más sugerencias ...

Aupa.

Option Explicit  'Obligatorio declarar las variables

Private Sub cboName_Click()  'Evento Click del ComboBox cboName
datPeople.RecordSource = "SELECT * FROM People WHERE Name='" & cboName.Text & "'" 'El origen de datos para el control data datPeople son todos los registros de la tabla People en los que el valor del campo Name es igual que el texto del comboBox cboName
datPeople.Refresh 'Actualizar el control data dataPeople
End Sub 'fin del evento
--------------------------------------------------------------------------------
Private Sub Form_Load() 'Evento al cargar formulario
Dim dbname As String 'Declarar string
Dim db As Database 'Declara objeto de tipo Database Si te da error será que te falta agregar alguna referencia
Dim rs As Recordset 'Declara objeto de tipo recordset

dbname = App.Path 'Path en el que se ejecuta la aplicación
If Right$(dbname, 1) <> "" Then bname = dbname & "" 'Añadir slash si hace falta
dbname = dbname & "data.mdb" 'Nombre de la base de datos (data.mdb) que está en el directorio donde se está ejecutando la aplicación.

Set db = OpenDatabase(dbname) 'Abrir base de datos con DAO
Set rs = db.OpenRecordset( "SELECT Name FROM People ORDER BY Name",
dbOpenSnapshot) Obtener en un objeto recordset el campo Name de todos los registros de la tabla People y ordenados por ese mismo campo

rs.MoveFirst 'Posicionar en recordset en el primer registro
Do While Not rs.EOF 'Realizar el bucle hasta que se llegue al fin de fichero del recordset
cboName.AddItem rs!Name 'Añadir al combobox cboName el valor del campo Name del registro actual
rs.MoveNext 'Mover el recordset al siguiente registro.
Loop 'Bucle

rs.Close 'Cerrar recordset
db.Close 'Cerrar base de datos

datPeople.DatabaseName = dbname  'Asignar base de datos al control data datPeople

cboName.ListIndex = 0  'Seleccionar el primer elemento del comboBox cboName
End Sub 'Fin del evento

Hala, ya está explicado línea a linea. Ya ves que me tiré el rollito... ahora a ver si te sirve para algo... Si quieres para la próxima te escribo un manual de vb, o te hago el análisis de tu aplicación, o mejor aún te paso un programa de facturación al completo, o sencillamente paso de responderte.

Hola Gerard.

Acabo de probar el código tal cual con el informe de tu bd y funciona sin problemas. El único cambio que tuve que hacer, por supuesto, es la línea donde dice 'Set dbW = GetObject("BaseDeDatos.mdb")' donde reemplacé la ruta y nombre de la base de datos: 'Set dbW = GetObject("C:RutaMy_bd.mdb"). Si a ti no te funciona, cuéntame cúal es el fallo que te da.

Me imagino que la parte de código que no entiendes es la del bucle For...Next que recorre los INFORMES ABIERTOS de la base de datos comparando el nombre. Pues bien, lo tuve que hacer así para evitar errores y aplicar correctamente el filtro en el caso de que Access y el informe ya  estuvieran abiertos.

Básicamente el código abre Access mediante automatización, asigna a dbW una referencia a la base de datos, y utiliza el objeto DoCmd tal como lo harías desde Access.

A ver si se te aclara un poco más el tema.
Chao.

Vuelvo a insistir en que confirmes que 'numGFH' es un campo de la tabla 'AREA'. Si no lo es, no le des más vueltas porque el error es ese.
En la cláusula 'WHERE' solo puedes incluir campos que se encuentren incluidos en la/s tabla/s que tengas en la cláusula 'FROM'.

A ver si ahora arreglas.
Chao.

Preguntas:

¿'NumGFH' es un campo de la tabla AREA?

¿Tiene el cuadro combinado 'carea' el mismo número de columnas que campos tiene la tabla AREA? Lo digo por que haces 'SELECT * ' (aunque esto tal vez no cause error, toma los primeros campos y listo).

Respóndete a estas preguntas y a ver si sacas algo en claro.

Suerte.

Si hablamos de una dll ActiveX, Añade una referencia a la misma y usa el examinador de objetos (F2).
Si es otro tipo de dll, habría que identificar sus puntos de entrada, pero no tengo ni idea de cómo hacer esto.

Suerte.

Creo que lo voy pillando...

Supongo que usas el combo como filtro para una selección, y quieres poder filtrar o no según lo que selecciones en el combo. Para esto podrías agregar a mano un elemento al combobox que sea 'Seleccionar Todos' o algo así, de forma que cuando el usuario lo elija, no se aplique ningún filtro.

ComboBox1.AddItem "Seleccionar Todos"

Te recomendaría añadirlo como primer elemento del combo, para no tener problemas con el índice del elemento, que de esta forma sería 0.

La selección en el combo y la aplicación del filtro sería algo así:

Private Sub Combo1_Click
dim Filtro As String
If Combo1.ListIndex = 0 Then
    Filtro = ""
ElseIf Combo1.ListIndex = -1
    Exit Sub
Else
    Filtro = "WHERE Campo='" & Combo1.List(Combo1.ListIndex) & "'"
End If
    FuncionOCodigoAplicarFiltro Filtro

End If

Espero que ahora sí que te valga la solución. Si ves que tampoco es esto lo que necesitas, a ver si puedes explicar el caso con un ejemplo...

Agur.

Kaixo FRIJU.

Si no entiendo mal, quieres eliminar un elemento del combo una vez que lo hayas seleccionado. Esto lo puedes hacer de la siguiente forma:

Combo1.RemoveItem Combo1.ListIndex

Espero que esto sea lo que buscabas.
Agur.

Fíjate en el ejemplo:

*****************************************

Private Sub Command1_Click()

    Dim strTexto As String
   
    Printer.PaperSize = vbPRPSA4
    Printer.Orientation = vbPRORPortrait
    Printer.Scale (0, 0)-(210, 297)
   
    Printer.Line (10, 10)-(Printer.ScaleWidth - 10, Printer.ScaleHeight - 10), , B
   
    Printer.Font.Name = "Courier"
    Printer.Font.Size = 10
    Printer.Font.Bold = True
    Printer.Font.Underline = True
    strTexto = "Título del informe"
    Printer.CurrentX = Int(Printer.ScaleWidth / 2) - Int(Printer.TextWidth(strTexto) / 2)
    Printer.CurrentY = 5
    Printer.Print strTexto
   
    Printer.Font.Size = 8
    Printer.Font.Bold = False
    Printer.Font.Underline = False
   
    strTexto = Now
    Printer.CurrentX = 10
    Printer.CurrentY = 5
    Printer.Print strTexto
    strTexto = "Página 1"
    Printer.CurrentX = Printer.ScaleWidth - Printer.TextWidth(strTexto) - 10
    Printer.CurrentY = 5
    Printer.Print strTexto
   
    Printer.CurrentX = 15
    Printer.CurrentY = 20
    strTexto = "Una línea de texto"
    Printer.Print strTexto
    Printer.CurrentX = 15
    strTexto = "Otra línea de texto"
    Printer.Print strTexto
    Printer.CurrentX = 15
   
    Dim sngY As Single
    sngY = Printer.CurrentY
    strTexto = "Otra línea más"
    Printer.Print strTexto
    strTexto = "Otra texto en la misma línea y alineado a la derecha"
    Printer.CurrentY = sngY
    Printer.CurrentX = Printer.ScaleWidth - Printer.TextWidth(strTexto) - 10
    Printer.Print strTexto
   
    Printer.EndDoc

End Sub

*******************************************

Espero que te sirva.
Suerte.