حفظ اعدادات فورم فى ملف خارجي (INI)

[عمر ضاحى]

السلام عليكم 

كنت  فى المرفق ملف لقاعدة بيانات بها فورم 

هذا الفورم به خيارين تختار منهم واحد

اريد ان عندما تقوم باختيار اى خيار منهم والضغط على مفتاح حفظ او الحفظ التلقائى لحالة الاختيار

ان يحفظ لى الاعدادات فى ملف جنب قاعدة البيانات بامتداد INI

بحيث عندما اقوم بفتح الفورم اجد الاعدادات كما تركتها اخر مره

 

Project2.rar

[عمر ضاحى]

للتوضيح 

وللفيده لغيري

انا عملت الموضوع ده بربط النموذج بجدول انشأته لحفظ الاعدادات 

وشغال تمام لكن اريد ان اقوم به ك كود VBA

والملف المرفق للتوضيح ما فعلته

Project2.accdb

[عمر ضاحى]

هناك ايضا طريقه لحفظ الاعدادات فى الرجسترى فى الوندوز

وهيكون مسار الحفظ فى الرجسترى هو 

[HKEY_CURRENT_USER\SOFTWARE\VB and VBA Program Settings\SaveOP\Option]

بيقوم بانشاء المفتاح فى الرجسترى وعند الحفظ يحفظ اخر اعدادات فى الرجسترى

 

مرفق ملف للتوضيح 

 

 

Project3.accdb

[Eng.Qassim]

4 minutes ago, عمر ضاحى said:

هناك ايضا طريقه لحفظ الاعدادات فى الرجسترى فى الوندوز

وهيكون مسار الحفظ فى الرجسترى هو 

[HKEY_CURRENT_USER\SOFTWARE\VB and VBA Program Settings\SaveOP\Option]

بيقوم بانشاء المفتاح فى الرجسترى وعند الحفظ يحفظ اخر اعدادات فى الرجسترى

 

مرفق ملف للتوضيح 

 

 

Project3.accdb 444 kB · 0 downloads

استاذ عمر العزيز .. انا شخص مبتدأ جدا باكسس .. لكن سؤالك مبهم في الاقل لي .. ما الذي تريد فعله بالضبط والامثلة كلها متشابهة 

[عمر ضاحى]

6 دقائق مضت, Eng.Qassim said:

استاذ عمر العزيز .. انا شخص مبتدأ جدا باكسس .. لكن سؤالك مبهم في الاقل لي .. ما الذي تريد فعله بالضبط والامثلة كلها متشابهة 

كلها طرق لحفظ اعدادات قورم

فى المرفق الثاني 

حفظ عن طريق جدول

فى المرفق الثالث 

حفظ عن طريق الرجسترى

 

انا اريد ان احفظ الاعدادات فى ملف خارجي كما هو فى مرفق الاول 

اى عند اختيار شئ يحفظ الذى اخترته فى ملف Settimg.ini

 

 

انا قمت بنشر الطريقتين الاخرى لامثالى من المبتدئين 

وانا شايف ان الرجسترى اسهلهم وافضلهم لانه غير مرتبط باى جدول

لكن ممكن ان هناك اجهزة الرجسترى فيها محمي من الاضافه والتعديد غير لامور معينه 

فانا اريد ان اجعل الحفظ فى ملف بامتداد INI

تم تعديل يوليو 24, 2021 بواسطه عمر ضاحى

[محمد أبوعبدالله]

وعليكم السلام ورحمة الله وبركاته

3 ساعات مضت, عمر ضاحى said:

ان يحفظ لى الاعدادات فى ملف جنب قاعدة البيانات بامتداد INI

بحيث عندما اقوم بفتح الفورم اجد الاعدادات كما تركتها اخر مره

تفضل اخي الكريم

Private Sub cmdSave_Click()

    X1 = CurrentProject.Path & "\Setting.ini"
    
    X3 = FreeFile
    Open X1 For Input As X3
    
        Line Input #X3, X
        X5 = X5 & X

    Close X3
    
    If Me.L1 = 1 Then
        X7 = 2
    Else
        X7 = 1
    End If
   
    X5 = Replace(X5, X7, Me.L1)
    
    X3 = FreeFile
    Open X1 For Output As X3
    Print #X3, X5
    Close X3


End Sub

Private Sub Form_Load()

Dim X As String
    Open CurrentProject.Path & "\Setting.ini" For Input As #1
        Input #1, X
        Me.L1 = X
    Close #1
End Sub

Project201.rar

تحياتي

[عمر ضاحى]

26 دقائق مضت, محمد أبوعبدالله said:

وعليكم السلام ورحمة الله وبركاته

تفضل اخي الكريم

Private Sub cmdSave_Click()

    X1 = CurrentProject.Path & "\Setting.ini"
    
    X3 = FreeFile
    Open X1 For Input As X3
    
        Line Input #X3, X
        X5 = X5 & X

    Close X3
    
    If Me.L1 = 1 Then
        X7 = 2
    Else
        X7 = 1
    End If
   
    X5 = Replace(X5, X7, Me.L1)
    
    X3 = FreeFile
    Open X1 For Output As X3
    Print #X3, X5
    Close X3


End Sub

Private Sub Form_Load()

Dim X As String
    Open CurrentProject.Path & "\Setting.ini" For Input As #1
        Input #1, X
        Me.L1 = X
    Close #1
End Sub

Project201.rar 40.39 kB · 3 downloads

تحياتي

اولا احب اشكرك بشده على العمل الرائع

بسم الله ما شاء الله ابداع

هل يمكننى ان اطلب طلب اضافى 

ان فى حال ملف INI غير موجود 

يقوم بأنشاء الملف 

وادخال القيمه فيه

[محمد أبوعبدالله]

19 دقائق مضت, عمر ضاحى said:

ان فى حال ملف INI غير موجود 

يقوم بأنشاء الملف 

وادخال القيمه فيه

تفضل اخي الكريم

Private Sub Form_Load()
    On Error GoTo err:
    Dim X As String
        Open CurrentProject.Path & "\Setting.ini" For Input As #1
            Input #1, X
            Me.L1 = X
        Close #1
err:
        Set fs = CreateObject("Scripting.FileSystemObject")
        Set a = fs.CreateTextFile(CurrentProject.Path & "\Setting.ini", True)
        a.WriteLine ("1")
        a.Close
    
End Sub

تحياتي

[محمد أبوعبدالله]

او بطريقة اخرى

Private Sub Form_Load()

    X = CurrentProject.Path & "\Setting.ini"
    If Len(Dir(X)) = 0 Then
            Set fs = CreateObject("Scripting.FileSystemObject")
            Set a = fs.CreateTextFile(CurrentProject.Path & "\Setting.ini", True)
            a.WriteLine ("1")
            a.Close
    Else
            Open CurrentProject.Path & "\Setting.ini" For Input As #1
                Input #1, X
                Me.L1 = X
            Close #1
    End If

    
End Sub

تحياتي

[عمر ضاحى]

الف الف شكر 

ربنا يجازيك عنا كل خير ويحفظك من كل سوء 

الف شكر

[محمد أبوعبدالله]

57 دقائق مضت, عمر ضاحى said:

ربنا يجازيك عنا كل خير ويحفظك من كل سوء 

ولك بالمثل اخي الكريم بارك الله فيك

تحياتي

[Eng.Qassim]

استاذ عمر ... ممكن تشرح لنا الفائدة لاني لست اختصاص حاسبات وحاسس ان الموضوع مهم

جزاك الله خيرا وللاستاذ الفاضل محمد ابو عبد الله

[محمد القدسي]

ما شاء الله استاذي محمد مبدع بارك الله فيك

طيب هل بالامكان حماية الملف بكلمة مرور 

واذا كان ممكن كيف نتعامل مع الملف وهو يحوي كلمة مرر

[د.كاف يار]

1 ساعه مضت, Eng.Qassim said:

استاذ عمر ... ممكن تشرح لنا الفائدة لاني لست اختصاص حاسبات وحاسس ان الموضوع مهم

جزاك الله خيرا وللاستاذ الفاضل محمد ابو عبد الله

تفضل هذا المثال 

و هو عبارة عن حفظ معلومات تسجيل الدخول بإستخدام ملف خارجي

ادخل اي معلومات النموذج للمثال فقط ليس مرتبط بأي جدول

بعد ملئ جميع الحقول و اختيار حفظ معلومات الدخول ستظهر لك رسالة بهذا الشكل

بعدها ستجد بجوار قاعدة البيانات ملف بهذا الشكل

شكل الملف من الداخل

المعلومات مشفرة بإستخدام التشفير

لكن الفكرة انه عند اغلاق النموذج و اعادة فتحه ستجد بأنه تم جلب البيانات للحقول

 

Database2.mdb

تم تعديل يوليو 26, 2021 بواسطه د.كاف يار

[User user]

@محمد أبوعبدالله
@د.كاف يار 
كيفية استدعاء قيمه كومب بوكس فى النموذج  من ملف INI خارجى 

[محمد القدسي]

اساتذتي الافاضل اذا اردت ان اضيف بيانات فوق البيانات المخزنة في الملف سابقا

بدون حذف البيانات السابقة الموجودة في الملف

فكيف يكون الكود

مثلا قمت بحفظ بيانات المستخدم الاول واريد ان احفظ بيانات المستخدم الثاني بجانب البيانات السابقة بحيث استدعيها من ملف واحد

ارجو ان اكون وضحت مطلوبي 

 

[د.كاف يار]

2 ساعات مضت, محمد القدسي said:

اساتذتي الافاضل اذا اردت ان اضيف بيانات فوق البيانات المخزنة في الملف سابقا

بدون حذف البيانات السابقة الموجودة في الملف

فكيف يكون الكود

مثلا قمت بحفظ بيانات المستخدم الاول واريد ان احفظ بيانات المستخدم الثاني بجانب البيانات السابقة بحيث استدعيها من ملف واحد

ارجو ان اكون وضحت مطلوبي 

 

تفضل هذا المثال بعد التعديل

سيتم انشاء فولد

سيتم انشاء ملف بإسم كل مستخدم

سيتم تعبئة البيانات بعد ادخال اسم المستخدم و تطابقه مع احد الملفات

في حال اسم المستخدم غير نشط لن يستطيع المستخدم تسجيل الدخول

 

Database2.mdb

[محمد القدسي]

مع الاسف استاذي لم افهم مقصود المثال جرت اضيف مستخدم لاخر من شان اعرف هل اضيف المستخدم الجديد في الملف فلم افلح يا حبذا تشرح اكثر عن هذا المرفق

 

[د.كاف يار]

5 ساعات مضت, محمد القدسي said:

مع الاسف استاذي لم افهم مقصود المثال جرت اضيف مستخدم لاخر من شان اعرف هل اضيف المستخدم الجديد في الملف فلم افلح يا حبذا تشرح اكثر عن هذا المرفق

 

لن يتم اضافة المستخدم الآخر على نفس الملف

سيتم انشاء ملف بإسم كل مستخدم

تفضل هذا شرح بالفيديو المرفق

 

 

Video2.zip

[محمد القدسي]

اشكرك استاذي وصلت المعلومة الان

سلمت يداك وبارك الله فيك وفي علمك

[User user]

كيفية استدعاء قيمه كومب بوكس فى النموذج  من ملف INI خارجى 

 

[د.كاف يار]

 

26 دقائق مضت, eslamali2 said:

كيفية استدعاء قيمه كومب بوكس فى النموذج  من ملف INI خارجى 

 

تفضل هذا المثال

 

List.zip

[محمد القدسي]

ما زلت معاك استاذي في كل جديد

طيب كيف اضيف عدة سجلات في جدول مثلا username يحوى حقل nameuser

وبه بيانات مثلا السجل الاول "محمد"

والسجل الثاني "احمد"

والثالث "خالد"

كيف اضيف الثلاثة السجلات مرة واحدة لداخل ملف ini

اوجو الا اكون اثقلت عليك استاذي 

لاكني طالب علم لديكم يريد ان ينهل مما اعطاكم الله

[د.كاف يار]

منذ ساعه, محمد القدسي said:

ما زلت معاك استاذي في كل جديد

طيب كيف اضيف عدة سجلات في جدول مثلا username يحوى حقل nameuser

وبه بيانات مثلا السجل الاول "محمد"

والسجل الثاني "احمد"

والثالث "خالد"

كيف اضيف الثلاثة السجلات مرة واحدة لداخل ملف ini

اوجو الا اكون اثقلت عليك استاذي 

لاكني طالب علم لديكم يريد ان ينهل مما اعطاكم الله

افتح موضوع جديد و ارفق فيه مثال لما تريد

[محمد القدسي]

حاضر استاذي 

والمعذرة