| ebolo |  |
|
2007-08-09 20:30 - Respuestas: 5 - Tema nº: 2461236
Me ha costado un poco porque nunca me había surgido ese caso y me he liadop intentado hacerlo de una forma, cuando, cómo siempre, laforma más fácil es la que tenemos delante de nuestras narices.
Ahi va lo que yo he hecho:
Private Sub Comando12_Click()
Me.Comando1.SetFocus
Me.Comando12.Enabled = False
Dim rs As Object
Set rs = Me.Secundario22.Form.RecordsetClone
rs.MoveFirst
For q = 1 To rs.RecordCount
Me.Secundario22.Form.Texto10 = Me.Secundario22.Form.Texto10 + 1
Me.R e f r e s h
Next q
rs.Close
Set rs = Nothing
End Sub
traducido a lo tuyo:
Private Sub Comando100_Click()
Me.Comando92.SetFocus
Me.Comando100.Enabled = False
Dim rs As Object
Set rs = Me.Subformulario_de_Ventas.Form.RecordsetClone
rs.MoveFirst
For q = 1 To rs.RecordCount
Me.Subformulario_de_Ventas.Form.STOCK = Me.Subformulario_de_Ventas.Form.STOCK - Me.Subformulario_de_Ventas.Form.CANTIDADVENTAS
Me.R efresh
Next q
rs.Close
Set rs = Nothing
End Sub
luego en el evento del subformulario después de Actualizar, debes de poner:
Private Sub Form_AfterUpdate()
DoCmd.GoToRecord , , acNext
End Sub
Esto lo que hace es que bloquea el botón de comando y suma/resta a cada uno de los registros del subformulario lo que quieras.
Saludos.
Edito porque el r e fresh me desaparecía, y he dejado espacios en medio.
-
[Mensaje editado por ebolo con fecha: 09-08-2007 20:34:47]. | |
|
