Skip to main content

AccessTr.neT


Her Çıktı Sonrası Sayı Artması

Her Çıktı Sonrası Sayı Artması

Çözüldü #1
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...
.rar KBS-2.rar (Dosya Boyutu: 185,4 KB | İndirme Sayısı: 10)
Cevapla
#2
Butonun tıklandığında olayına aşağıdaki kodu ekleyiniz.

Visual Basic Code
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
Cevapla
#3
hocam geçici tablo neden oluşturuyor? onu oluşturunca çalışmıyor?
Cevapla
#4
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 ??
Cevapla
#5
(21/01/2018 00:09)ozanakkaya Adlı Kullanıcıdan Alıntı: 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 ??

Hocam bir de yarın ofisteki bilgisayarda deneyip öyle yazayım.
Cevapla
#6
Alıntı:Hocam bir de yarın ofisteki bilgisayarda deneyip öyle yazayım.
.rar KBS-2.rar (Dosya Boyutu: 183,22 KB | İndirme Sayısı: 9)
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da