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

[عمر ضاحى]

السلام عليكم 

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

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

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

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

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

 

Project2.rarFetching info...

[عمر ضاحى]

للتوضيح 

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

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

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

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

Project2.accdbFetching info...

[عمر ضاحى]

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

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

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

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

 

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

 

 

Project3.accdbFetching info...

[Eng.Qassim]

  في 24‏/7‏/2021 at 21:50, عمر ضاحى said:

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

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

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

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

 

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

 

 

Project3.accdb 444 kB · 0 downloads

Expand  

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

[عمر ضاحى]

  في 24‏/7‏/2021 at 22:00, Eng.Qassim said:

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

Expand  

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

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

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

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

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

 

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

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

 

 

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

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

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

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

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

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

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

  في 24‏/7‏/2021 at 21:23, عمر ضاحى said:

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

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

Expand  

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

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.rarFetching info...

تحياتي

[عمر ضاحى]

  في 25‏/7‏/2021 at 00:35, محمد أبوعبدالله 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

تحياتي

Expand  

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

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

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

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

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

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

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

  في 25‏/7‏/2021 at 01:03, عمر ضاحى said:

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

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

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

Expand  

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

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

تحياتي

[عمر ضاحى]

الف الف شكر 

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

الف شكر

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

  في 25‏/7‏/2021 at 01:39, عمر ضاحى said:

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

Expand  

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

تحياتي

[Eng.Qassim]

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

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

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

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

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

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

[د.كاف يار]

  في 26‏/7‏/2021 at 21:45, Eng.Qassim said:

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

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

Expand  

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

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

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

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

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

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

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

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

 

Database2.mdbFetching info...

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

[User user]

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

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

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

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

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

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

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

 

[د.كاف يار]

  في 29‏/7‏/2021 at 21:33, محمد القدسي said:

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

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

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

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

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

 

Expand  

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

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

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

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

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

 

Database2.mdbFetching info...

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

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

 

[د.كاف يار]

  في 30‏/7‏/2021 at 20:20, محمد القدسي said:

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

 

Expand  

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

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

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

 

 

Video2.zipFetching info...

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

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

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

[User user]

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

 

[د.كاف يار]

 

  في 1‏/8‏/2021 at 13:12, eslamali2 said:

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

 

Expand  

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

 

List.zipFetching info...

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

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

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

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

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

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

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

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

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

[د.كاف يار]

  في 1‏/8‏/2021 at 22:47, محمد القدسي said:

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

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

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

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

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

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

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

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

Expand  

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

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

حاضر استاذي 

والمعذرة