Hola
Estoy haciendo un programa en visual basic que hace lo siguiente.
Desde un formulario empieza a llenar datos a una base access.
Esta base contiene los siguientes campos: Fecha, dia, AltoRiesgo, BajoRiesgo
Ahora, tengo un segundo formulario el cual debe leer la base de datos en forma semanal. se hace un reeporte el dia viernes, por lo que debe tomar fecha inicio el viernes anterior y fecha final el jueves (dia anterior). creo que debe hacerse por las fechas. y en estee formulario debe colocarse en un input text el numero que haya sido puesto en el campo AltoRiesgo, el dia lunes, en otro input text lo qu haya sido puesto en el campo BajoRiesgo, el dia martes en otro.... claro esto debe hacerse de acuerdo a la fecha: les dejo una impreesion de pantalla
Esto es lo que tengo hecho en el codigo:
Código HTML:
Dim Cn As ADODB.Connection
Dim Rs As ADODB.Recordset
Private Sub Form_Load()
Dim fechaini As Date
Set Cn = New ADODB.Connection
Set Rs = New ADODB.Recordset
Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\ims\informesemanal.MDB;" & _
"Persist Security Info=False"
Rs.ActiveConnection = Cn
Rs.CursorType = adOpenKeyset
Rs.LockType = adLockOptimistic
InicioSemana = FormatDateTime(Date - Weekday(Date) - 1, vbGeneralDate)
FinSemana = FormatDateTime(Date - Weekday(Date) + 5, vbGeneralDate)
fechaini = Format(InicioSemana, "m-d-yy")
fechafin = Format(FinSemana, "m-d-yy")
'Rs.Open "Select * From reportesemanal where (fecha = #" & fechaini & "#) "
Rs.Open "Select * From reportesemanal Where fecha BETWEEN #" & fechaini & "# AND #" & fechafin & "#"
'If (reportesemanal.fecha = fechaini) Then
Set TxtMArL.DataSource = Rs
TxtMArL.DataField = "AltoRiesgo"
Set TxtMBrL.DataSource = Rs
TxtMBrL.DataField = "BajoRiesgo"
Set TxtMArJ.DataSource = Rs
TxtMArJ.DataField = "AltoRiesgoV"
Set TxtMBrJ.DataSource = Rs
TxtMBrJ.DataField = "BajoRiesgoV"
'End If
Ahi ustedes puedn observar he intentado poner un if pensando que si en la base de datos "reportesmanal" el campo fecha es igual a la fecha que tengo en la variable fechaini que me ponga los datos en el input text.
Bueno, si encuentran como ayudarme se los agradecere
saludos