فتح وحفظ ملف text

بسم الله الرحمن الرحيم

الاخ الكريم

كل سنة و انت طيب

كتبت من قبل برنامج يتعامل مع الملفات النصية كقواعد بيانات من حيث الاضافة و الحفظ و الحذف و البحث .............. الخ

ارجوا ان يفيدك فهو الاقرب الي ما تريده

ضع هذا الكود في موديول

Type rec
    sname As String * 50
    email As String * 50
    phone As String * 20
End Type

Global r As rec

و هذا الكود في الفورم

Private Sub Command1_Click()
    If Trim(Text1.Text) = "" Or Trim(Text2.Text) = "" Or Trim(Text3.Text) = "" Then
        MsgBox "ãä ÝÖáß ÃÏÎá ßÇÝÉ ÇáÈíÇäÇÊ", vbCritical, "ÈíÇäÇÊ äÇÞÕÉ"
        Exit Sub
    End If

    r.sname = Trim(Text1.Text)
    r.email = Trim(Text2.Text)
    r.phone = Trim(Text3.Text)

    t = LOF(1) / Len(r)
    Put #1, t + 1, r
End Sub

Private Sub Command2_Click()

    Get #1, 1, r
    Text1.Text = r.sname
    Text2.Text = r.email
    Text3.Text = r.phone
    Text4.Text = 1
End Sub

Private Sub Command3_Click()
    t = Val(Text4.Text) + 1

    If t > LOF(1) / Len(r) Then
        MsgBox "ÇäÊ ÇáÇä Ýí ÇáÓÌá ÇáÇÎíÑ", vbInformation, "ÇáÓÌá ÇáÇÎíÑ!"
        Exit Sub
    End If


    Get #1, t, r
    Text1.Text = r.sname
    Text2.Text = r.email
    Text3.Text = r.phone
    Text4.Text = t
End Sub

Private Sub Command4_Click()
    t = Val(Text4.Text) - 1

    If t < 1 Then
        MsgBox "ÇäÊ ÇáÇä Ýí ÇáÓÌá ÇáÇæá", vbInformation, "ÇáÓÌá ÇáÇæá!"
        Exit Sub
    End If

    Get #1, t, r
    Text1.Text = r.sname
    Text2.Text = r.email
    Text3.Text = r.phone
    Text4.Text = t
End Sub

Private Sub Command5_Click()
    If t = 0 Then Exit Sub
    t = LOF(1) / Len(r)
    Get #1, t, r
    Text1.Text = r.sname
    Text2.Text = r.email
    Text3.Text = r.phone
    Text4.Text = t
End Sub

Private Sub Command6_Click()
    Text1.Text = ""
    Text2.Text = ""
    Text3.Text = ""
    If Val(LOF(1) / Len(r)) = 0 Then
        Exit Sub
    Else
        Text4.Text = Val(LOF(1) / Len(r)) + 1
    End If
End Sub

Private Sub Command7_Click()
    Dim q As Integer
    q = MsgBox("åá ÊÑíÏ ÍÐÝ åÐÇ ÇáÓÌá¿", vbExclamation + vbYesNo, "ÊÃßíÏ ÇáÍÐÝ!")

    If q = vbYes Then
        Put #1, Val(Text4.Text), ""
    End If
    Text1.Text = ""
    Text2.Text = ""
    Text3.Text = ""
    MsgBox "Êã ÍÐÝ ÇáÓÌá ÈäÌÇÍ", vbInformation, "Êã ÇáÍÐÝ"
End Sub

Private Sub Command8_Click()
    Dim b As String
    Dim d As String

    b = Trim(InputBox("ÃÏÎá ÇáÇÓã ÇáÐí ÊÑíÏ ÇáÈÍË Úäå", "ÈÍË ÈÇáÇÓã"))

    For i = 1 To LOF(1) / Len(r)
        Get #1, i, r
        d = Trim(CStr(r.sname))
        If b = d Then
            Text1.Text = r.sname
            Text2.Text = r.email
            Text3.Text = r.phone
            Text4.Text = i
            Exit For
        End If
        DoEvents
    Next i
End Sub

Private Sub Form_Load()
    Open "db" For Random As #1 Len = Len(r)
    Get #1, 1, r
    Text1.Text = r.sname
    Text2.Text = r.email
    Text3.Text = r.phone
    Text4.Text = Val("1")
End Sub

البرنامج مرفق لمزيد من التوضيح

simple_db_application.rar

مشكوووور

ولكن كيف احفظ بيانات الـcombobox مع بيانات جميع الـ textbox في ملف text واحد

السلام عليكم

هل يوجد حل لهذه المشكلة

للتوضيح

اريد حفظ الاعدادات التي في الفورم من textbox و checkbox و combobox وغيرها من الادوات في ملف خارجي بحيث تظهر لي شاشة الحفظ وشاشة الفتح لاختيار مسار الملف