Merhaba, veri tabanında toplama işlemleri yapması için bir sorgu oluşturdum. Form açıldığında bu sorgu çalışıyor, formda toplam sonuçları gösteriyor ve bunu veri tabanında bir sütuna kaydediyor. Sorun şu ki form her açıldığında sorgu bu işlemleri son 5 kayıt için yapsın istiyorum. Veri sayısı arttıkça tüm veriler için yapması formun açılma süresini uzattı. Yardımlarınız için teşekkür eder herkese nice mutlu seneler dilerim.

sayın hocalarım merhaba aşağıdaki formülde sayfayı yenliyorum anacak yenileme sonrası son kayda gitmesini istiyorum yapamadım formülü nedir acaba
Bunu makroyla yapıyorum ama formülle yapmam gerekiyor
yardımcı olursanız çok sevinirm
tşk ederim


Private Sub Form_AfterUpdate()
Form_ANAFORM.Refresh
End Sub

Herkese iyi günler, kolay gelsin

Benim şöyle bir sorunum var; Personelin bilgilerini takip amacıyla bir veritabanı oluşturdum. Personelin değişmeyecek bilgilerini (TC,Ad,Soyad) bir tabloda, değişebilecek olan diğer bilgilerini (adres,telefon,maaş,işe giriş/çıkış,izin,rapor vb....) başka ayrı ayrı tablolarda depoluyorum. Personel_Kok tablosundaki kayıtlar hiç bir zaman yinelenmiyor, fakat diğer tablodakiler değiştikçe yeni kayıt açılıyor (Geçmişe dönük bilgilerinin kaybetmemek için). Personel

hayırlı cumalar
excelde bir modül olsa içeriğindeki fonksiyonda  şunlar olsa
bulunduğu Excel dosyasına en sona bir sayfa ekleyecek
o sayfada birinci sutunda sıra no
ikinci sutunda projede bulunan formlar
üçüncü sutunda o formda bulunan controllerin isimleri
dördüncü sutunda tag adı
beşinci sutunda önalan rengi
altıncı sutunda arka alan rengi
olacak sekilde tablo oluşturacak
moduldeki fonksiyon çalıştığında sona sayfa eklenip o andaki form ve  controllerin isimleri ve tagları ve renkler

iyi günler

LastRow = Sheets("Colors").Cells(Rows.Count, "A").End(xlUp).Row

 For i = 1 To LastRow
            .AddItem Sheets("Colors").Range("B1:B100").Cells(i, 1).Value
[color=#212121][size=medium][font=-apple-system, BlinkMacSystemFont,]            .List(.ListCount - 1, 1) = Sheets("Colors").Range("A1:A100"

iyi günler 

iRow = [Counta(Muayene!A:A)] bunu

sheeetName = "Muayene"

iRow = [Counta(" & sheeetName & "!A:A)] 

böyle yazdım kabul etmedi nasıl yazmak lazım

2016 güncellemesi ile MSCOMCTL.OCX bozulmuş bana bu güncelleme öncesi son sürüm deneme süreli Access indirebileceğim bir yer lazım
mesela ondan önce 2014 mü vardı

Merhaba.

Ekteki dosyada kapalı dosyadaki A sütununun son verisini ve satır numarasını bulur.

Kod başka bir forumdan Haluk hocaya aittir sağolsun kendisi.

[vb] Dim say As Long
        Dim w As Long
        Dim deger As Double
        Dim yuzde As Double
        Dim lastInt As Integer
        Dim son As Integer
        lastInt = 0
        w = Me.pb_cerceve.Width
       
        For say = 1 To 10000
       
            deger = say * w / son
            yuzde = say * 100 / son
           
            If (Int(yuzde) <> lastInt) Then
                lastInt = Int(yuzde)
                Call RunProgressBar(Me.pb_item, deger)
 

[size=large]Herkese hayırlı haftalar,

Otomasyon sisteminden saatlik kümülatif sayaç verilerini çeken Tablo1 isminde bir tablom var. Tablo1’ de yer alan “Sayac” alanına her yeni kayıt eklendiğinde, eklenen son kayıt değerini bir öncekinden çıkartarak Form1’de yer alan son kayıttaki “Üretim” sütununa hesaplatarak yazdırmak istiyorum. Fakat bu işlemi sorgu (SQL) ile değil Vba ile ya