Merhaba ustalar. Ekte gönderdiğim projemde Sayı Ekle Butonu var. Buraya bastığımızda İlk sayıyı ve Son sayıyı soracak ve İlk sayı ve son sayı dahil bulunduğumuz yıl ile birlikte varsayılan yazıcıdan her çıktıdan sonra 1 sayı artarak A4 kağıdın sol üst köşesine yukardan 1cm mesafe olacak şekilde yazdırmasını istiyorum. Örneğin İlk sayı 515 ve Son sayı 533 girdiğimizde, A4 kağıdın sol üst köşesine 2018/515 şeklinde her çıktıda 1 artacak şekilde 2018/533'e kadar yazdırmasını istiyorum. Bu mümkün müdür? Şimdiden teşekkürler...
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
hocam geçici tablo neden oluşturuyor? onu oluşturunca çalışmıyor?
Girilen verilere göre geçici tabloya veri aktarılıyor. Raporun kayıt kaynağı geçici tablo.
Geçici tablo olmadan çalışmaz. 3 Bilgisayarda denedim girilen sayılara göre raporda sayıları gösteriyor. Çalışmıyor kelimesi genel bir tabir. Neresi çalışmıyor. Nasıl bir hata veriyor ??