ACCESS # Private Sub Comando0_Click()
On Error GoTo Err_Comando0_Click Me.RecordSource = "Select * from CaricoIVA where dataentrata between #" & Me.Testo1 & "# and #" & Me.Testo2 & "#;" C = Me.numero Do While Not Me.Recordset.EOF Me.NumeroDocEstero = C C = C + 1 Me.Recordset.MoveNext Loop Exit_Comando0_Click: Exit Sub Err_Comando0_Click: MsgBox Err.Description Resume Exit_Comando0_Click End Sub |