uğur ılgın

Option Compare Database Private Sub Komut2_Click() Dim db As Database Dim rst As Recordset Set db = CurrentDb Set rst = db.OpenRecordset("Tablo1") rst.Move 2 rst.Edit a = rst.Fields(2).Value Metin0.SetFocus b = Val(Metin0.Text) rst("fiyat").Value = a + b rst.Update End Sub

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 ...

Option Compare Database Sub akt() Dim db As Database Dim rst As Recordset Set db = CurrentDb() Set rst = db.OpenRecordset("Tablo1") Open "d:\ak.txt" For Input As #1 Do While Not EOF(1) rst.AddNew Input #1, ad, soyad, yaş rst("ad").Value = ad rst("soyad").Value = soyad rst("yaş").Value = yaş rst.Update Loop Close #1 End Sub

Option Compare Database '-D-O-S-Y-A--İ-Ş-L-E-M-L-E-R-İ-1-      ' Metin dosyası oluşturmak için kullanılan komutlar Sub dosyaya_yaz() Open "d:\sınıflar.txt" For Output As #1 For k = 9 To 12 For a = 0 To 255 sınıfadı = k & Chr(a) Write #1, sınıfadı Next a Next k Close #1 End Sub '-D-O-S-Y-A--İ-Ş-L-E-M-L-E-R-İ-2- Sub dosyayı_temizle() Open "d:\sınıflar.txt" For Output As #1 Close #1 End Sub

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

Option Compare Database Dim db As Database Dim rst As Recordset Dim rs As Recordset2 Sub kayıt() Set db = CurrentDb() Set rst = db.OpenRecordset("tablo1") Set rs = db.OpenRecordset("yedek") Do Until rst.EOF rs.AddNew rs.Fields("isim").Value = rst.Fields("isim").Value rs.Update rst.MoveNext Loop End Sub

Option Compare Database Sub tarih() Dim fark As Integer Dim db As Database Dim rst As Recordset Set db = CurrentDb Set rst = db.OpenRecordset("işçiler") Do Until rst.EOF fark = DateDiff("d", rst.Fields(2).Value, rst.Fields(3).Value) rst.Edit rst("gün_sayısı").Value = fark rst.Update rst.MoveNext Loop End Sub

Sub hesapla() Dim db As Database Dim rst As Recordset Set db = CurrentDb toplam = 0 Set rst = db.OpenRecordset("giriş") Do Until rst.EOF If rst.Fields(2).Value = "teknosa" Then toplam = toplam + (rst.Fields(3).Value * rst.Fields(4).Value) End If rst.MoveNext Loop MsgBox toplam End Sub

Option Compare Database Sub güncelle() Dim db As Database Dim rst As Recordset Set db = CurrentDb Set rst = db.OpenRecordset("veri") k = 0 Do Until rst.EOF rst.Edit If rst("doğum_yeri").Value = "kiraz" Then rst("doğum_yeri").Value = "Karşıyaka" rst.Update rst.MoveNext Loop End Sub ------------------------------------------------------------------- Option Compare Database Sub güncelle() Dim db As Database Dim rst As Recordset Set db = CurrentDb Set rst = db.OpenRecordset("veri") k = 0 Do Until rst.EOF rst.Edit rst("ad").Value = UCase(rst("ad").Value) 'uCASE bÜYÜK HARFLE YAZ LcASE KÜÇÜK HARFLE YAZ rst.Update rst.MoveNext Loop End Sub

Option Compare Database Sub kayit_ekle() Dim db As Database Dim rst As Recordset Set db = CurrentDb() Set rst = db.OpenRecordset("personel") rst.AddNew rst("ad").Value = InputBox("İsmi giriniz") rst("soyad").Value = InputBox("Soyismi giriniz") rst("maaş").Value = InputBox("maaşı giriniz") rst.Update End Sub Sub kayit_sil() Dim db As Database Dim rst As Recordset Set db = CurrentDb Set rst = db.OpenRecordset("personel") rst.Move InputBox("Silinecek  Değeri giriniz") rst.Delete End Sub Sub kayit_gucelle() Dim db As Database Dim rst As Recordset Set db = CurrentDb Set rst = db.OpenRecordset("personel") rst.Move InputBox("Değişecek İsmin sırasını Giriniz") rst.Edit rst("ad").Value = InputBox("yeni İsim değerini Giriniz") rst("soyad").Value = InputBox("yeni Soyad değerini Giriniz") rst("maaş").Value = I...