Pregunta para Victoria
Publicado por Areanna (13 intervenciones) el 25/10/2004 15:07:46
Hola Victoria se que este foro es muy bueno gracias a ustedes, pero decearia que me ayudaras un poco, dijeron algo sobre las preguntas que fueran claras tratare de ser lo mas clara posible, eh leido manuales pero solo son lo principal consultas, informes pero de informacion muy pobre, y en cuanto a la ayuda de access mi SO operativo esta en ingles y realmente poco se pero pues veces si entiendo y veces no.
Bueno e explico mi problema tengo el siguiente codigo lo que me hace este codigo es pedirme unos datos cada 1 de cada mes los dias y productos, de acuerdo a los dias divides los productos y despues los desplegas en la tabla.
Ejemplo: Si metes 5 dias y 20 productos vas a desplegar
1------4
2 -----4
3------4
4------4
5------4
Pero lo que yo deseo es que despues de que me pida esos datos me permita guardar otros, osea que se posicione en el dia 1 y me permita introducir otros registros.
Mando el codigo de como lo hago y espero me entienda.
Gracias
Dim dia As Integer
Dim prod As Long
Dim tot As Long
Dim i As Integer
Dim rs As Recordset
Dim rsinforme As Recordset
If Format(Now, "dd") = "01" Then
dia = InputBox("Dame los dias del mes")
prod = InputBox("Total de productos por mes")
tot = prod / dia
Set rsinforme = CurrentDb.OpenRecordset("conte", dbOpenDynaset)
For i = 1 To dia
With rsinforme
.AddNew
.Fields("dias") = i
.Fields("area") = area.Value
.Fields("pieza_meta_diaria") = tot
.Update
End With
Next
rsinforme.Close
MsgBox "Las Piezas Meta Diarias han sido registradas correctamente"
End If
Bueno e explico mi problema tengo el siguiente codigo lo que me hace este codigo es pedirme unos datos cada 1 de cada mes los dias y productos, de acuerdo a los dias divides los productos y despues los desplegas en la tabla.
Ejemplo: Si metes 5 dias y 20 productos vas a desplegar
1------4
2 -----4
3------4
4------4
5------4
Pero lo que yo deseo es que despues de que me pida esos datos me permita guardar otros, osea que se posicione en el dia 1 y me permita introducir otros registros.
Mando el codigo de como lo hago y espero me entienda.
Gracias
Dim dia As Integer
Dim prod As Long
Dim tot As Long
Dim i As Integer
Dim rs As Recordset
Dim rsinforme As Recordset
If Format(Now, "dd") = "01" Then
dia = InputBox("Dame los dias del mes")
prod = InputBox("Total de productos por mes")
tot = prod / dia
Set rsinforme = CurrentDb.OpenRecordset("conte", dbOpenDynaset)
For i = 1 To dia
With rsinforme
.AddNew
.Fields("dias") = i
.Fields("area") = area.Value
.Fields("pieza_meta_diaria") = tot
.Update
End With
Next
rsinforme.Close
MsgBox "Las Piezas Meta Diarias han sido registradas correctamente"
End If
Valora esta pregunta


0