Merhabalar arkadaşlar, bir öğrenci bilgi sistemi yapmam gerekiyor. Herşeyi yaptım bir tek txt'ye veri kaydedip oradan veri alma işlemini yapamadım.

Bu konu hakkında acil yardımlarınızı bekliyorum. Program kodlarını da atayım ben size.

Private Sub Command1_Click()
Text1.Text = ""
Text2.Text = ""
Combo1.Text = ""
Combo2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
End Sub

Private Sub Command2_Click()
Text5.Text = (Val(Text3.Text) + Val(Text4.Text)) / 2

If Val(Text5.Text) < 45 Then Label8.Caption = ("KALDI")

If Val(Text5.Text) >= 45 Then Label8.Caption = ("GEÇTİ")
End Sub