Butonun tıklandığında olayına aşağıdaki kodu ekleyiniz.

Dim GSayi1, GSayi2 As Integer

Dim db As Database

Dim strSQL As String

Dim GDatabase As DAO.Database

Dim GKayit As DAO.Recordset





If DCount("[Name]", "MSysObjects", "[Name] = 'GeciciRaporTablo'") > 1 Then



    DoCmd.DeleteObject acTable = acDefault, "GeciciRaporTablo"



End If





Set db = DBEngine(0)(0)

strSQL = "CREATE TABLE [GeciciRaporTablo] (GSiram NUMBER);"

db.Execute strSQL



    Set db = Nothing



   Set GDatabase = CurrentDb

   Set GKayit = GDatabase.OpenRecordset("GeciciRaporTablo")

   

   

    GSayi1 = InputBox("Sayı 1 Yaz")

    GSayi2 = InputBox("Sayı 2 Yaz")

   

   

   For GSayi = GSayi1 To GSayi2

   

       GKayit.AddNew

       GKayit("GSiram").Value = GSayi1

    

       GKayit.Update

        

       GSayi1 = GSayi1 + 1

    

   Next GSayi

    

    

  

DoCmd.OpenReport "GeciciRaporTablo", acNormal