küçükken yazmıştım yardımı dokunursa yazayım sana
burası form kısmı
-----------------------------------
Dim dgr As Integer
Private Sub Command4_Click()
Command4.Visible = False
Command5.Visible = True
dgr = InputBox("değiştirilecek kaydın numarasını giriniz")
Get #1, dgr, alanlar
kayitno = dgr
Text2.Text = alanlar.ad
Text3.Text = alanlar.soyad
Text4.Text = alanlar.no
Text5.Text = alanlar.tel
End Sub
Private Sub Command5_Click()
Command5.Visible = False
Command4.Visible = True
alanlar.ad = Text2.Text
alanlar.soyad = Text3.Text
alanlar.no = Text4.Text
alanlar.tel = Text5.Text
Put #1, dgr, alanlar
End Sub
Private Sub Form_Load()
Open "c:\windows\apo.txt" For Random As #1 Len = Len(alanlar)
kayitno = LOF(1) / Len(alanlar)
kayitno = kayitno + 1
For a = 1 To kayitno
Get #1, a, alanlar
List1.AddItem (alanlar.ad)
List2.AddItem (alanlar.no)
List3.AddItem (alanlar.soyad)
List4.AddItem (alanlar.tel)
Next
End Sub
Private Sub XpButton1_Click()
alanlar.ad = Text2.Text
alanlar.soyad = Text3.Text
alanlar.no = Text4.Text
alanlar.tel = Text5.Text
Put #1, kayitno, alanlar
kayitno = kayitno + 1
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
List1.AddItem (alanlar.ad + " " + alanlar.no + " " + alanlar.soyad + " " + alanlar.tel)
End Sub
Private Sub XPButton2_Click()
oku = InputBox("kayıt no giriniz")
Get #1, oku, alanlar
kayitno.Text = oku
Text2.Text = alanlar.ad
Text3.Text = alanlar.soyad
Text4.Text = alanlar.no
Text5.Text = alanlar.tel
End Sub
Private Sub XPButton3_Click()
sil = InputBox("kayıt no giriniz")
alanlar.ad = ""
alanlar.soyad = ""
alanlar.no = ""
alanlar.tel = ""
Put #1, sil, alanlar
kayitno.Text = sil
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
End Sub
buda yukarda kullandığım modül
-----------------------------
Type apo
ad As String * 50
soyad As String * 20
no As String * 20
tel As String * 20
End Type
Global alanlar As apo
takıldığın bi yer olursa sorarsın , dosya kayit sayısını herseferinde kontrol etmezsen yazdığın herşey bi sonrakinin üzerine yazlır, yukardaki kod işini görür, kırmızı ile yazdığım yer senin için can alıcı nokta