Running a number of append queries based upon a number on a form

[Craig0201]

Hi,

I have a field on a form that will contain only integer values. Based upon this, I need to run an append query a number of times. Can this be done??? If so, how!!!!

All help much appreciated (as always!!! )

Craig

 

[PaulF]

something like this might work

Private Sub txtNoOfAppends_AfterUpdate()

Dim i As Integer
If IsNumeric( txtNoOfAppends) Then
For i = 1 To txtNoOfAppends
DoCmd.SetWarnings False
DoCmd.OpenQuery ("qryAppendName&quot
DoCmd.SetWarnings True
Next i
End If

End Sub


PaulF