Mensajes

Bueno vuelvo de nuevo acá.
Usé tu código Seba adaptandolo a la base de datos que estoy usando yo, pero no me funcionó como esperaba.

Agregué un campo nuevo como dijiste vos que se llame PROXIMO PAGO y como DateAdd le di el valor de un mes.

Pero cuando puse el código tuyo, modificandolo, me pinto todas de ROJO.
Y tendría que haberme pintado LA 1ERA SOLAMENTE mientras que la 2da y la 3era FILA tendrían que estar en VERDE.

Les dejo el código modificado:

Código (vb) [Seleccionar] Expandir

Private Sub ColorearFecha()
    Dim vFechaAlta As String, vFechaPago As String
    Dim i As Integer
    Dim vColumna As Integer

    grilla.Redraw = False
    For i = 1 To grilla.Rows - 1
        For vColumna = 1 To grilla.Cols - 1
            grilla.Row = i
            grilla.Col = vColumna
            If RST!inscripcion >= CDate(RST!proximopago) Then
               grilla.CellBackColor = vbRed
            Else
                grilla.CellBackColor = vbGreen
            End If
        Next vColumna
    Next i
    grilla.Redraw = True
End Sub

Y una imágen para que vean lo que les digo:



Están marcadas en verde las dos filas que tendrian que figurar como PAGO y en rojo los que tienen que pagar nuevamente.

Saludos y gracias!

es lo mismo simplemente yo lo hice asi nomas para que tengas una idea, pero bueno te explico:

Código (vb) [Seleccionar] Expandir

Private Sub ColorearFecha()
    Dim vFechaAlta As String, vFechaPago As String
    Dim i As Integer
    Dim vColumna As Integer

    MSHFlexGrid1.Redraw = False 'deshabilita el repintado para que no parpadee cuando se pintan las celdas
    For i = 2 To MSHFlexGrid1.Rows - 1 ' recorre las filas de la grilla
      For vColumna = 0 To MSHFlexGrid1.Cols - 1 'recorre las columnas de la fila actual
            MSHFlexGrid1.Row = i 'posiciona la fila actual
            MSHFlexGrid1.Col = vColumna 'posiciona la columna actual
            vFechaAlta = CDate(Format(MSHFlexGrid1.TextMatrix(i, 0), "dd/MM/yyyy")) ' saca la fecha de alta de la columna 0
            vFechaPago = DateAdd("d", 30, vFechaAlta) 'calcula la fecha de pago sumandole 30 dias a la fecha de alta
            If Date > CDate(vFechaPago) Then 'si la fecha actual es mayor a la fecha de pago es porque el tipo no pago
               MSHFlexGrid1.CellBackColor = vbRed 'marca en rojo
            Else
               MSHFlexGrid1.CellBackColor = vbGreen ' marca en verde
            End If
      Next vColumna 'siguiente columna
    Next i 'siguiente fila
    MSHFlexGrid1.Redraw = True ' habilita el repintado
End Sub

en la grilla debe haber otra columna( que seria otro campo en la base de datos) que guarde la proxima fecha de pago, la calculas directamente cuando das de alta el cliente, por ejemplo ahi vos diste de alta 2 clientes cuya fecha de alta es la misma, bueno cuando das de alta el cliente debes guardar tambien la fecha de proximo pago (que seria la fecha de alta + 30 dias). y en la grilla para estos 2 te quedaria que la fecha de proximo pago seria el 08/10/2009.eso es para cuando das de alta, ahora debes hacer una pantalla que sea para hacer pagar el cliente o desde un boton ahi nomas , ni idea como tenes pensado hacerlo, pero la idea seria que si paga por segunda vez otra vez le sumes a la fecha de pago otros 30 dias y asi sucesivamente cada vez que el cliente paga.la funcion esta la llamas despues de que cargas la grilla siempre.

saludos.

Muchas gracias campeón, no solo me ayudaste sino que me diste una idea más para mi programa.
Cualquier duda aparezco por acá.

Gracias Seba!!

Te agradezco Seba siempre por ayudarme.
Pero la verdad se me complica entender el código. Y también traté de aplicarlo a mi proyecto que es con BASE DE DATOS pero tampoco pude hacerlo andar.

Cuando creo un nuevo socio le puse un campo que diga "Fecha Que Paga", como me indicaste vos.

Más que nada de el codigo que pusiste no entiendo el if.
Si no es mucho pedir, podrías comentarlo a ver si lo entiendo de esa manera?

Desde ya muchas gracias Seba!

Saludos!

PD: Dejo una imágen del proyecto así ven como es.

Form Principal


Form Nuevo


Saludos!!

Bueno hace rato ya no tenía ninguna duda, así que vine a molestar de nuevo.
Espero que me puedan dar una mano.
Lo que estoy haciendo es una aplicación para un gimnasio.
Lo que intento hacer es que en una Grilla (MSHFLEXGRID) me figure si pagó o no pagó el socio ingresado.

O sea, yo cuando ingreso un socio nuevo, en un textbox figura la fecha que se inscribe (día que se crea el nuevo socio) y quiero que al MES siguiente, en la grilla me figure en ROJO si tiene que pagar NUEVAMENTE el mes o si ya pagó que figure en VERDE.

La verdad, no tengo idea como hacerlo.
Yo pensaba hacer:

Si fechainscripcion > fechaactual entonces
        GRILLA en color ROJO.
Sino
        GRILLA en color VERDE.

Obviamente TOMANDO con Mid o Left solamente los dos primeros valores de la fecha, pero no me salió.

Espero que me puedan dar una mano.
Desde ya muchas gracias!

[Call Form_Load]

ovbio, pues tenes que tomar el ID de la columna seleccionada, pero en la columna donde esta el ID del registro...eso de hacer Call Form_Load no es nada bueno, mejor create una funcion que te carge todos los datos en el listview y llamas siempre que quieras actualizar a esa funcion. tambein al listview ponele la propiedad FullRowSelect = True asi te selecciona toda la fila y no el primer item.

saludos.

seba123neo, yo estoy usando MSFLEXGRID.
Igualmente busqué alguna propiedad parecida a lo que vos comentabas y encontré
SelectionMode = FlexSelectionByRow, entonces al poner eso me marca toda la fila
y ahora SI FUNCIONA EL PRIMER CODIGO DE TODO QUE HABÍA PUESTO.

Ya que al marcar toda la fila lo que me toma es el ID. Y quedó solucionado!!

Muchas gracias seba, comentando otra cosa, me ayudaste a solucionar esto.
Gracias a los demás igualmente.

Saludos!

PD: Seguiré poniendo las dudas que me sigan surgiendo por acá. Está bien? O empiezo a crear nuevos?

Pues debes ubicar el ID de lo que seleccionas. y luego de ubicarlo ejecutar la consulta.

Creo que no me comprendiste. Voy a tratar de ser más claro:

En la grilla, seleccione el CAMPO que seleccione quiero que al darle BORRAR, se borre.

Pero que pasa? Al hacer lo que hice antes RST.OBJECT solamente funciona el codigo del DELETE cuando clickeo en ID.

Pero si clickeo en Nombre, edad, etc... TOMA EL NOMBRE, pero el DELETE no funciona y tira error ya que este funciona solo con ID.

Tendría que haber otra forma.
Yo tenía entendido que creando una variable y poniendo en el evento click de la grilla:

variable = RST!ID

y después en el DELETE usar esa VARIABLE, pero no funcionó como explique más atrás.

Espero que haya quedado más claro.
Gracias igualmente ssccaann43

Código (vb) [Seleccionar] Expandir


Private Sub cmdborrar_Click()'Borra el registro seleccionado
<->cn.Execute ("DELETE FROM socios where id= ") & borrarregistro, cn
'Llama a la funcion LOAD para que cargue la grilla nuevamente.
'Por lo tanto SE ACTUALIZA.
Call Form_Load
End Sub


Coloca un punto de Interrupción allí <-> y verifica que valor tiene borrarregistro.

Por otro lado, te recomiendo que en vez de borrarregistro, indiques el index donde te encuentras posicionado en la grilla.

Por ejemplo usando un listview sería. ListView1.SelectedItem.Text

Traté de hacer esto haciendo GRILLA.OBJECT que es lo que seleccionaría lo que marcás, pero me di cuenta que si selecciono un nombre, o una edad tiraba error. Ya que no pertenece al ID.

O sea cuando marcaba de la tabla un ID, funcionaba perfectamente, pero yo quiero que de la grilla, cuando marques cualquier campo y le des a BORRAR, te borre todo.

Por eso lo estaba haciendo con ID.

:S

Alguna otra opción? Igualmente muchas gracias!

Gente sigo escribiendo en este post para no abrir otros al pedo.
Mi duda es la siguiente:
Tengo en la grilla ya cargada varios datos, y cuando marco un campo de la grilla o sea seleccionarlo y después ir al BOTON BORRAR, lo que se me borra a mi es el REGISTRO QUE ESTA ARRIBA DE TODO y no el que seleccione.

¿Porque puede ser esto?

Les muestro el source:

Código (vb) [Seleccionar] Expandir

Private Sub grilla_Click()
'Si la grilla esta vacia
If RST.EOF = True Then
'Muestra mensaje
   MsgBox "La grilla está vacia", vbInformation, "Información"
Else
'Sino, Almacena el valor del registro
borrarregistro = RST!Id
End If
End Sub

Y acá pongo el BOTON BORRAR:

Código (vb) [Seleccionar] Expandir

Private Sub cmdborrar_Click()
'Borra el registro seleccionado
cn.Execute ("DELETE FROM socios where id= ") & borrarregistro, cn
'Llama a la función LOAD para que cargue la grilla nuevamente.
'Por lo tanto SE ACTUALIZA.
Call Form_Load
End Sub

O sea supuestamente el código está bien, pero PROBÉ PONIENDO
msgbox rst!id cuando clickeaba y lo que me figuraba siempre era el VALOR DE ID DEL PRIMERO DE TODOS de la grilla Y NO EL QUE MARCABA 

Espero que me hayan entendido, sino trato de ser más claro.

Muchas gracias!

Ahora sí, no molesto más por ahora.
Muchas gracias cΔssiΔnі !!

[FORM1]

a uhmm por lo visto creo k estas cometiendo dos posibles problemas

1.- Si te fijas que en el modulo estas poniendo la conexion a la BDD, eh en el form1 no lo estas llamando, entonces el el form load ponle Call Conectar.

2.- Y si te fijas en ese Sub Reload estas declarando una nueva conexion y fijate k stas poniendo RST y fijate que tu estas poniendo asi Set grilla.Recordset = rs, te comistes la t  

FORM1

Código (vb) [Seleccionar] Expandir

Private Sub reload()
Set rst = New ADODB.Recordset
rst.Open sql, CN
Set grilla.Recordset = rst '<----------Te falto la T
grilla.Refresh
End Sub

Private Sub Form_Load()
Call Conectar '<--------- Te Falto esa
sql = "select * from socios order by id"
Call reload
End Sub

weno creo que esos dos era el problema cualkier cosa avisa Salu2  

Es verdad, no me di cuenta de eso.
Arreglé como me dijiste pero seguía teniendo problemas.
El error que arrojaba ahora es:

"Runtime error '3001': Argumentos incorrectos, fuera del intervalo permitido o en conflicto con otros"

Le dí depurar y la línea que marcaba con error es la siguiente:

Código (vb) [Seleccionar] Expandir

Private Sub reload()
Set RST = New ADODB.Recordset
RST.Open sql, CN 'ESTA LINEA ARROJABA EL ERROR!!
Set grilla.Recordset = RST
grilla.Refresh
End Sub

Private Sub Form_Load()
Call Conectar
sql = "Select * from socios order by id"
Call reload
End Sub

y lo que hice fue borrar la variable SQL del form_load y poner el comando directamente, y ahí si funciono y cargó la grilla completamente, así:

Código (vb) [Seleccionar] Expandir

Private Sub reload()
Set RST = New ADODB.Recordset
RST.Open "select * from socios order by id", CN '-->LO MODIFIQUE DIRECTAMENTE
Set grilla.Recordset = RST '
grilla.Refresh
End Sub

Private Sub Form_Load()
Call Conectar
'ACA ESTABA LA VARIABLE Y LA QUITÉ!
Call reload
End Sub




Alguien sabe porque era ese error ya que estamos?

Desde ya muchas gracias a todos por la ayuda, me lo solucionaron perfectamente!

Saludos!