Ana içeriğe atla

Dosya İşlemleri Örnekleri


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
Do While Not EOF(1)
Input #1, ad, meslek
Liste5.AddItem (ad)
Liste5.AddItem (meslek)
Loop
Close #1
End Sub

Private Sub Komut8_Click()
Dim ad, meslek As String
Open "d:\rehber2.txt" For Input As #1
Do While Not EOF(1)
Input #1, ad, meslek
metin = metin & ad & " " & meslek & Chr(13)
Loop
Close #1
MsgBox metin
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ı

04.10.2011 4.ÖRNEK

Sub hesapla() For k = 1 To 10 Cells(k, 2) = Cells(k, 1) * 0.18 'A Sütunundaki verilerin %18 Aldı If Cells(k, 2) > 300 Then '300 den büyükse Cells(k, 2).Select Selection.Interior.Color = vbYellow 'O alanı seçip arkaplan rengini değiştirecek ' rgb,18880,vbrenk olabilir. End If Next k End Sub
Yorum Gönder
Devamı