Ana içeriğe atla

D-O-S-Y-A--İ-Ş-L-E-M-L-E-R-İ


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

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ı

Hesaplama

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
Yorum Gönder
Devamı