Ana içeriğe atla

Uygulama Sınavı S-2


Sub soru2()
Dim db As Database
Dim rst As Recordset
Set db = CurrentDb
Set rst = db.OpenRecordset("Tablo1")
topy = 0
topm = 0
topk = 0
Do Until rst.EOF
topy = topy + rst.Fields("yaş").Value
topk = topk + 1
topm = topm + rst.Fields("maaş").Value
rst.MoveNext
Loop
orty = topy / topk
ortm = topm / topk
MsgBox "Ortalama yaş: " & orty & Chr(13) & "Ortalama maaş: " & ortm
End Sub

Etiketler:

Yorumlar

Yorum Gönder

Bu blogdaki popüler yayınlar

SQL İŞLEMLERİ

Option Compare Database Sub secme_islemi() 'DoCmd.RunSQL "SELECT * INTO YENI FROM TABLO1 ORDER BY MESLEK DESC" 'Tablo1deki ad alanındaki verileri YENI adındaki tabloya aktar ad yerine * olursa tüm verileri tabloya ekler 'ORDER BY..... küçükten büyüye sıralama yapar 'ORDER BY .....DESC büyükten küçüğe sıralama yapar '<bİRDEN FAZLA ALAN İÇİN ARAYA ..A...,....B... KONUR 'DoCmd.RunSQL "SELECT * INTO YENI FROM TABLO1 WHERE MESLEK='DOKTOR'" 'WHERE ........='string değeri' KOŞUL OLUŞTURUR 'DoCmd.RunSQL "SELECT * INTO YENI FROM TABLO1 WHERE LEFT(AD,1)='U'" 'sayısal değerde kullanılabilir: 'DoCmd.RunSQL "SELECT * INTO YENI FROM TABLO1 WHERE MAAŞ>=2000" DoCmd.RunSQL "SELECT * INTO YENI FROM TABLO1 WHERE MAAŞ>=1 AND MAAŞ<=2000" 'İKİ DEĞER ARASINDAKİLERİ ALDIRMAK End Sub
Yorum Gönder
Devamı

Bir tablo içindeki verileri formdaki değerlerle sınırlandırmak

Private Sub Komut4_Click() Dim db As Database Dim rst, rs As Recordset Set db = CurrentDb Set rst = db.OpenRecordset("Tablo1") Set rs = db.OpenRecordset("yeni") Do Until rst.EOF If rst("yaş").Value >= CInt(Metin0) And rst("yaş").Value <= CInt(Metin2) Then rs.AddNew rs("ad").Value = rst("ad").Value rs("yaş").Value = rst("yaş").Value rs.Update End If rst.MoveNext Loop End Sub
Yorum Gönder
Devamı

Tarih Fonksiyonları

Tarih Fonksiyonları Metin1 = Date -------> Sistem tarihini verir. Metin1 = Time ------->Sistem saatini verir Metin1 = Now ------->Hem tarih hem zaman verileri elde edilir. Metin1 = Day(Date )------->Gündeğerini verir.date yerini sabit bir değer verilebilir-metin1=day("13.01.2011") Metin1 = Month(Date) ------->  Ayın değerini verir Metin1 = Year(date)  ------->Yılın değerini verir Metin1 = Weekday(Date) -------> Haftanın kaçıncı günü oldğunu verir. Metin1 = WeekdayName(Weekday(Date), False, vbSunday)  ------->Sistem tarihindeki günün adını verir. Metin1 = WeekdayName(Weekday("21.12.2012"), False, vbSunday)
Yorum Gönder
Devamı