uğur ılgın

Option Compare Database Sub soru4() Dim db As Database Dim rst As Recordset Set db = CurrentDb Set rst = db.OpenRecordset("Tablo1") Do Until rst.EOF rst.Edit If rst.Fields("fiyat").Value > 100 Then a = rst.Fields("fiyat").Value * 0.5 Top = a + rst.Fields("fiyat").Value rst.Fields("fiyat").Value = Top End If If rst.Fields("fiyat").Value < 100 Then a = rst.Fields("fiyat").Value * 1 Top = a + rst.Fields("fiyat").Value rst.Fields("fiyat").Value = Top End If rst.Update rst.MoveNext Loop End Sub

Sub soru3() Dim rst As Recordset Set db = CurrentDb Set rst = db.OpenRecordset("Tablo1") Top = 1 Do Until rst.EOF Top = Top + 1 If rst.Fields("maaş").Value > rst.Fields("maaş").Value Then enb = rst.Fields("maaş").Value End If If rst.Fields("maaş").Value < rst.Fields("maaş").Value Then enk = rst.Fields("maaş").Value End If rst.MoveNext Loop MsgBox "En B=" & enb & Chr(13) & "En K=" & enk End Sub

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

İsmi A ile Başlayan Kişi Sayısı Option Compare Database Sub soru1() Dim db As Database Dim rst As Recordset Set db = CurrentDb Set rst = db.OpenRecordset("Tablo1") toplam = 0 Do Until rst.EOF If Left(rst.Fields("ad").Value, 1) = "a" Then toplam = toplam + 1 End If rst.MoveNext Loop MsgBox (toplam) End Sub

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

Option Compare Database 'Private Sub Komut4_Click() 'Output kullanılınca içerde var olan değerler silinir. 'Append kullanılınca içerde var olan değerler silinmez üzerine ekleme yapılır. 'Open "d:\rehber.txt" For Append As #1 'Metin0.SetFocus 'a = Metin0.Text 'Metin2.SetFocus 'b = Metin2.Text 'rehber = a & " " & b 'Write #1, rehber 'Close #1 'End Sub ' -----------------------------2.Yöntem Private Sub Komut4_Click() Dim ad, meslek As String Open "d:\rehber2.txt" For Append As #1 ad = Metin0 meslek = Metin2 Write #1, ad, meslek Close #1 Metin0 = "" Metin2 = "" End Sub '___________________________________________________________________________________________________ Private Sub Komut7_Click() Dim ad, meslek As String Liste5.RowSourceType = "value list" Liste5.RowSource = "" Open "d:\rehber2.txt" For Input As #1