Merhaba Arkadaslar Size Bi Sorunum Hakkında Cozum Danışmak İstiyorum
Program Sole
ogrenci adı,soyadı,sınıf,numara,3 tane yazılı 2 adet sozlu girilicek kaydet butotnuna basıldıgında gırılen bılgıler acces de veritabanına aktarılıcak.

Programda Cogu Seyi Yaptım Sayılır Ama Su an Bi Sorunum Var.Bunun cozumu icinde Programlama Bilgisi Yuksek Arkadaslarımdan Yardım ıstıyorum.Bana Yardımcı Olursanız Cok Sevinirim.

Sorun1:veri Girişi Yaptıkdan Sonra veri tabanını actıgımda bilgilerin kayıt olmadıgını gerekli yerlere kayit edilmiyor.
Sorun2:Command4 e tıklandıktan sonra veri tabanına girilmiş olan notları gostermek icin bi komut dizisi verebilirseniz...
Sorun3:Kayıt Arama İcin Farklı Bir Komut Sekli Varsa Koyarsanız iyi Olur.

Form Ekranı Şole
[IMG]http://img214.**************/img214/5503/adszpu2.th.jpg[/IMG]

Komutlarım İse
Private Sub Command1_Click()
Open "data.mdb" For Random As #1 Len = Len(Rec)
Rec.AD = Text1.Text
Rec.SOYAD = Text2.Text
Rec.SINIF = Text3.Text
Rec.NUMARA = Text4.Text
Rec.YAZILI1 = Text5.Text
Rec.YAZILI2 = Text6.Text
Rec.YAZILI3 = Text7.Text
Rec.SOZLU1 = Text8.Text
Rec.SOZLU2 = Text9.Text
KNo = LOF(1) / Len(Rec)
KNo = KNo + 1
Put #1, KNo, Rec
MsgBox "Kayıt başarıyla eklendi", vbInformation, "Bilgi"
KNo = KNo + 1
Close #1
End Sub

Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text9.Text = ""
End Sub

Private Sub Command3_Click()Do While Not Rec(1)
Get #1, , Rec
If (ara = Trim(Rec.AD) Or ara = Trim(Rec.SOYAD) Or ara = Trim(Rec.SINIF) Or ara = Trim(Rec.NUMARA) Or ara = Trim(Rec.YAZILI1) Or ara = Trim(Rec.YAZILI2) Or (ara = Trim(Rec.YAZILI3) Or ara = Trim(Rec.SOZLU1) Or ara = Trim(Rec.SOZLU2))) Then
Text1.Text = Rec.AD
Text2.Text = Rec.SOYAD
Text3.Text = Rec.SINIF
Text4.Text = Rec.NUMARA
Text5.Text = Rec.YAZILI1
Text6.Text = Rec.YAZILI2
Text7.Text = Rec.YAZILI3
Text8.Text = Rec.SOZLU1
Text9.Text = Rec.SOZLU2

Else
MsgBox ("Sonuc Bulunamadı")
End If

End Sub

Private Sub Command5_Click()
Rec.movelast
Text1.Text = Rec.fields("AD")
Text2.Text = Rec.fields("SOYAD")
Text3.Text = Rec.fields("SINIF")
Text4.Text = Rec.fields("NUMARA")
Text5.Text = Rec.fields("YAZILI1")
Text6.Text = Rec.fields("YAZILI2")
Text7.Text = Rec.fields("YAZILI3")
Text8.Text = Rec.fields("SOZLU1")
Text9.Text = Rec.fields("SOZLU2")

End Sub


Private Sub Command7_Click()
Rec.Delete
Text1.Text = Rec.fields("AD")
Text2.Text = Rec.fields("SOYAD")
Text3.Text = Rec.fields("SINIF")
Text4.Text = Rec.fields("NUMARA")
Text5.Text = Rec.fields("YAZILI1")
Text6.Text = Rec.fields("YAZILI2")
Text7.Text = Rec.fields("YAZILI3")
Text8.Text = Rec.fields("SOZLU1")
Text9.Text = Rec.fields("SOZLU2")
Rec.Update
End Sub

Private Sub Form_Load()
Label1.Caption = "Adı"
Label2.Caption = "Soyadı"
Label3.Caption = "Sınıfı"
Label4.Caption = "Numarası"
Label5.Caption = "1.Yazılı"
Label6.Caption = "2.Yazılı"
Label7.Caption = "3.Yazılı"
Label8.Caption = "1.Sozlu"
Label9.Caption = "2.Sozlu"

Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text9.Text = ""

Command1.Caption = "Kaydet"
Command2.Caption = "Yeni Kayıt"
Command3.Caption = "Kayıt Ara"
Command4.Caption = "Notları Gor"
Command5.Caption = "Son Kaydı Goster"
Command7.Caption = "Kayıt Sil"

End Sub


Module1
Type KayitBilgisi
AD As String * 20
SOYAD As String * 20
SINIF As String * 20
NUMARA As Integer
YAZILI1 As Integer
YAZILI2 As Integer
YAZILI3 As Integer
SOZLU1 As Integer
SOZLU2 As Integer


End Type

Global Rec As KayitBilgisi
Global KNo As Integer
__________________