عمر ضاحى قام بنشر يوليو 24, 2021 قام بنشر يوليو 24, 2021 السلام عليكم كنت فى المرفق ملف لقاعدة بيانات بها فورم هذا الفورم به خيارين تختار منهم واحد اريد ان عندما تقوم باختيار اى خيار منهم والضغط على مفتاح حفظ او الحفظ التلقائى لحالة الاختيار ان يحفظ لى الاعدادات فى ملف جنب قاعدة البيانات بامتداد INI بحيث عندما اقوم بفتح الفورم اجد الاعدادات كما تركتها اخر مره Project2.rar
عمر ضاحى قام بنشر يوليو 24, 2021 الكاتب قام بنشر يوليو 24, 2021 للتوضيح وللفيده لغيري انا عملت الموضوع ده بربط النموذج بجدول انشأته لحفظ الاعدادات وشغال تمام لكن اريد ان اقوم به ك كود VBA والملف المرفق للتوضيح ما فعلته Project2.accdb
عمر ضاحى قام بنشر يوليو 24, 2021 الكاتب قام بنشر يوليو 24, 2021 هناك ايضا طريقه لحفظ الاعدادات فى الرجسترى فى الوندوز وهيكون مسار الحفظ فى الرجسترى هو [HKEY_CURRENT_USER\SOFTWARE\VB and VBA Program Settings\SaveOP\Option] بيقوم بانشاء المفتاح فى الرجسترى وعند الحفظ يحفظ اخر اعدادات فى الرجسترى مرفق ملف للتوضيح Project3.accdb
Eng.Qassim قام بنشر يوليو 24, 2021 قام بنشر يوليو 24, 2021 4 minutes ago, عمر ضاحى said: هناك ايضا طريقه لحفظ الاعدادات فى الرجسترى فى الوندوز وهيكون مسار الحفظ فى الرجسترى هو [HKEY_CURRENT_USER\SOFTWARE\VB and VBA Program Settings\SaveOP\Option] بيقوم بانشاء المفتاح فى الرجسترى وعند الحفظ يحفظ اخر اعدادات فى الرجسترى مرفق ملف للتوضيح Project3.accdb 444 kB · 0 downloads استاذ عمر العزيز .. انا شخص مبتدأ جدا باكسس .. لكن سؤالك مبهم في الاقل لي .. ما الذي تريد فعله بالضبط والامثلة كلها متشابهة
عمر ضاحى قام بنشر يوليو 24, 2021 الكاتب قام بنشر يوليو 24, 2021 (معدل) 6 دقائق مضت, Eng.Qassim said: استاذ عمر العزيز .. انا شخص مبتدأ جدا باكسس .. لكن سؤالك مبهم في الاقل لي .. ما الذي تريد فعله بالضبط والامثلة كلها متشابهة كلها طرق لحفظ اعدادات قورم فى المرفق الثاني حفظ عن طريق جدول فى المرفق الثالث حفظ عن طريق الرجسترى انا اريد ان احفظ الاعدادات فى ملف خارجي كما هو فى مرفق الاول اى عند اختيار شئ يحفظ الذى اخترته فى ملف Settimg.ini انا قمت بنشر الطريقتين الاخرى لامثالى من المبتدئين وانا شايف ان الرجسترى اسهلهم وافضلهم لانه غير مرتبط باى جدول لكن ممكن ان هناك اجهزة الرجسترى فيها محمي من الاضافه والتعديد غير لامور معينه فانا اريد ان اجعل الحفظ فى ملف بامتداد INI تم تعديل يوليو 24, 2021 بواسطه عمر ضاحى
محمد أبوعبدالله قام بنشر يوليو 25, 2021 قام بنشر يوليو 25, 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 تحياتي 1 1
عمر ضاحى قام بنشر يوليو 25, 2021 الكاتب قام بنشر يوليو 25, 2021 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 غير موجود يقوم بأنشاء الملف وادخال القيمه فيه
أفضل إجابة محمد أبوعبدالله قام بنشر يوليو 25, 2021 أفضل إجابة قام بنشر يوليو 25, 2021 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 تحياتي 2
محمد أبوعبدالله قام بنشر يوليو 25, 2021 قام بنشر يوليو 25, 2021 او بطريقة اخرى 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 تحياتي 2
عمر ضاحى قام بنشر يوليو 25, 2021 الكاتب قام بنشر يوليو 25, 2021 الف الف شكر ربنا يجازيك عنا كل خير ويحفظك من كل سوء الف شكر
محمد أبوعبدالله قام بنشر يوليو 25, 2021 قام بنشر يوليو 25, 2021 57 دقائق مضت, عمر ضاحى said: ربنا يجازيك عنا كل خير ويحفظك من كل سوء ولك بالمثل اخي الكريم بارك الله فيك تحياتي
Eng.Qassim قام بنشر يوليو 26, 2021 قام بنشر يوليو 26, 2021 استاذ عمر ... ممكن تشرح لنا الفائدة لاني لست اختصاص حاسبات وحاسس ان الموضوع مهم جزاك الله خيرا وللاستاذ الفاضل محمد ابو عبد الله
محمد القدسي قام بنشر يوليو 26, 2021 قام بنشر يوليو 26, 2021 ما شاء الله استاذي محمد مبدع بارك الله فيك طيب هل بالامكان حماية الملف بكلمة مرور واذا كان ممكن كيف نتعامل مع الملف وهو يحوي كلمة مرر
د.كاف يار قام بنشر يوليو 26, 2021 قام بنشر يوليو 26, 2021 (معدل) 1 ساعه مضت, Eng.Qassim said: استاذ عمر ... ممكن تشرح لنا الفائدة لاني لست اختصاص حاسبات وحاسس ان الموضوع مهم جزاك الله خيرا وللاستاذ الفاضل محمد ابو عبد الله تفضل هذا المثال و هو عبارة عن حفظ معلومات تسجيل الدخول بإستخدام ملف خارجي ادخل اي معلومات النموذج للمثال فقط ليس مرتبط بأي جدول بعد ملئ جميع الحقول و اختيار حفظ معلومات الدخول ستظهر لك رسالة بهذا الشكل بعدها ستجد بجوار قاعدة البيانات ملف بهذا الشكل شكل الملف من الداخل المعلومات مشفرة بإستخدام التشفير لكن الفكرة انه عند اغلاق النموذج و اعادة فتحه ستجد بأنه تم جلب البيانات للحقول Database2.mdb تم تعديل يوليو 26, 2021 بواسطه د.كاف يار 4
User user قام بنشر يوليو 29, 2021 قام بنشر يوليو 29, 2021 @محمد أبوعبدالله @د.كاف يار كيفية استدعاء قيمه كومب بوكس فى النموذج من ملف INI خارجى
محمد القدسي قام بنشر يوليو 29, 2021 قام بنشر يوليو 29, 2021 اساتذتي الافاضل اذا اردت ان اضيف بيانات فوق البيانات المخزنة في الملف سابقا بدون حذف البيانات السابقة الموجودة في الملف فكيف يكون الكود مثلا قمت بحفظ بيانات المستخدم الاول واريد ان احفظ بيانات المستخدم الثاني بجانب البيانات السابقة بحيث استدعيها من ملف واحد ارجو ان اكون وضحت مطلوبي
د.كاف يار قام بنشر يوليو 30, 2021 قام بنشر يوليو 30, 2021 2 ساعات مضت, محمد القدسي said: اساتذتي الافاضل اذا اردت ان اضيف بيانات فوق البيانات المخزنة في الملف سابقا بدون حذف البيانات السابقة الموجودة في الملف فكيف يكون الكود مثلا قمت بحفظ بيانات المستخدم الاول واريد ان احفظ بيانات المستخدم الثاني بجانب البيانات السابقة بحيث استدعيها من ملف واحد ارجو ان اكون وضحت مطلوبي تفضل هذا المثال بعد التعديل سيتم انشاء فولد سيتم انشاء ملف بإسم كل مستخدم سيتم تعبئة البيانات بعد ادخال اسم المستخدم و تطابقه مع احد الملفات في حال اسم المستخدم غير نشط لن يستطيع المستخدم تسجيل الدخول Database2.mdb 2
محمد القدسي قام بنشر يوليو 30, 2021 قام بنشر يوليو 30, 2021 مع الاسف استاذي لم افهم مقصود المثال جرت اضيف مستخدم لاخر من شان اعرف هل اضيف المستخدم الجديد في الملف فلم افلح يا حبذا تشرح اكثر عن هذا المرفق
د.كاف يار قام بنشر يوليو 31, 2021 قام بنشر يوليو 31, 2021 5 ساعات مضت, محمد القدسي said: مع الاسف استاذي لم افهم مقصود المثال جرت اضيف مستخدم لاخر من شان اعرف هل اضيف المستخدم الجديد في الملف فلم افلح يا حبذا تشرح اكثر عن هذا المرفق لن يتم اضافة المستخدم الآخر على نفس الملف سيتم انشاء ملف بإسم كل مستخدم تفضل هذا شرح بالفيديو المرفق Video2.zip 1
محمد القدسي قام بنشر يوليو 31, 2021 قام بنشر يوليو 31, 2021 اشكرك استاذي وصلت المعلومة الان سلمت يداك وبارك الله فيك وفي علمك
User user قام بنشر أغسطس 1, 2021 قام بنشر أغسطس 1, 2021 كيفية استدعاء قيمه كومب بوكس فى النموذج من ملف INI خارجى
د.كاف يار قام بنشر أغسطس 1, 2021 قام بنشر أغسطس 1, 2021 26 دقائق مضت, eslamali2 said: كيفية استدعاء قيمه كومب بوكس فى النموذج من ملف INI خارجى تفضل هذا المثال List.zip
محمد القدسي قام بنشر أغسطس 1, 2021 قام بنشر أغسطس 1, 2021 ما زلت معاك استاذي في كل جديد طيب كيف اضيف عدة سجلات في جدول مثلا username يحوى حقل nameuser وبه بيانات مثلا السجل الاول "محمد" والسجل الثاني "احمد" والثالث "خالد" كيف اضيف الثلاثة السجلات مرة واحدة لداخل ملف ini اوجو الا اكون اثقلت عليك استاذي لاكني طالب علم لديكم يريد ان ينهل مما اعطاكم الله
د.كاف يار قام بنشر أغسطس 2, 2021 قام بنشر أغسطس 2, 2021 منذ ساعه, محمد القدسي said: ما زلت معاك استاذي في كل جديد طيب كيف اضيف عدة سجلات في جدول مثلا username يحوى حقل nameuser وبه بيانات مثلا السجل الاول "محمد" والسجل الثاني "احمد" والثالث "خالد" كيف اضيف الثلاثة السجلات مرة واحدة لداخل ملف ini اوجو الا اكون اثقلت عليك استاذي لاكني طالب علم لديكم يريد ان ينهل مما اعطاكم الله افتح موضوع جديد و ارفق فيه مثال لما تريد
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.