All Activity

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

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

او بطريقة اخرى 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 تحياتي

تفضل اخي الكريم 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 تحياتي

اولا احب اشكرك بشده على العمل الرائع بسم الله ما شاء الله ابداع هل يمكننى ان اطلب طلب اضافى ان فى حال ملف 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 تحياتي

كلها طرق لحفظ اعدادات قورم فى المرفق الثاني حفظ عن طريق جدول فى المرفق الثالث حفظ عن طريق الرجسترى انا اريد ان احفظ الاعدادات فى ملف خارجي كما هو فى مرفق الاول اى عند اختيار شئ يحفظ الذى اخترته فى ملف Settimg.ini انا قمت بنشر الطريقتين الاخرى لامثالى من المبتدئين وانا شايف ان الرجسترى اسهلهم وافضلهم لانه غير مرتبط باى جدول لكن ممكن ان هناك اجهزة الرجسترى فيها محمي من الاضافه والتعديد غير لامور معينه فانا اريد ان اجعل الحفظ فى ملف بامتداد INI

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

هناك ايضا طريقه لحفظ الاعدادات فى الرجسترى فى الوندوز وهيكون مسار الحفظ فى الرجسترى هو [HKEY_CURRENT_USER\SOFTWARE\VB and VBA Program Settings\SaveOP\Option] بيقوم بانشاء المفتاح فى الرجسترى وعند الحفظ يحفظ اخر اعدادات فى الرجسترى مرفق ملف للتوضيح Project3.accdb

السلام عليكم ورحمة الله وبركاته و كل عام وانتم بالف خير وصحة عندي تقرير معمول بالوورد و هو شبه شهري , طبعا الصيغة او بناء التقرير لا يمكن تغيرها لانها مرتبطة بالادارة , المشكلة انني دوما انسي تغير بعض الفقرات في التقرير و دوما اوجه مشكلة مع الادارة و لاحظت انه اسهل التعامل مع الجدول في ادخال البيانات بدلا من فقرات التقرير و التي تكون البيانات مبعثرة هنا و هناك و قد ينسي اي شخص فقرة او معلومه لذا هل يمكن ربط فقرات التقرير بحقول في جدول , بحيث مجرد ادخال البيانات في الجدول تظهر تلقائيا في التقرير ؟؟؟؟ في المرفق هناك تقرير في الصفحة الاولي و هناك جدول في الصفحة الثانية , وارغب في ربط حقول الجدول بفقرات التقرير و تلاحظون ايضا تكرار في بعض الفقرات ارجو منكم المساعدة ولكم جزيل الشكر و الامنان التقرير الشهري.docx

بصراحة استاذ انا احاول ان اجرك للمحاولة .. هي صعبة لكني اجدك صبور بالمحاولات @Hawiii

للتوضيح وللفيده لغيري انا عملت الموضوع ده بربط النموذج بجدول انشأته لحفظ الاعدادات وشغال تمام لكن اريد ان اقوم به ك كود VBA والملف المرفق للتوضيح ما فعلته Project2.accdb

كل ما سيأتي لاحقا هو أسهل مما تم 🙂 ، وحساب عرض الصندوق لنص أصعب بكثير لصندوق نوعه رقمي. عموما أنا لم أعمل تفاضل بين التمدد الأفقي/العرضي والعمودي/الإرتفاع وكذلك لم أنصح بأي منهما ، أنا عملت بموجب طلب السائل. لاحظ كذلك السائل لم يرفع مثال لطلبه فلا علم لي بعدد الحقول التي ستظهر في تقريره ولكن نوهت في مشاركتي السابقة لموضوع تحدد سقف لعرض الصندوق. عموما الموضوع لم ينتهي بعد ، وبانتظار حلول أخرى من الأساتذه ونستطيع بعدها المقارنة والتفاضل بينها ثم ننصح بالأفضل أو بتلاقح مجموعة أفكار للخروج بحل نموذجي.

السلام عليكم كنت فى المرفق ملف لقاعدة بيانات بها فورم هذا الفورم به خيارين تختار منهم واحد اريد ان عندما تقوم باختيار اى خيار منهم والضغط على مفتاح حفظ او الحفظ التلقائى لحالة الاختيار ان يحفظ لى الاعدادات فى ملف جنب قاعدة البيانات بامتداد INI بحيث عندما اقوم بفتح الفورم اجد الاعدادات كما تركتها اخر مره Project2.rar

التفاته لطيفة من استاذنا المحبوب محمد صالح لنتعلم مالم نعرفه لكن المرفق الاخير للاستاذ @husamwahabعملي جدا ...

الاستاذ عمر ضاحى الحل تم تقديمه سابقا

استاذ @Hawiii ربي يحفضك ويرعاك ...لو كان لدينا تقرير من اربع حقول مثلا .. فيجب عليك ان تمد الحقل الذي تريده على حساب بقية الحقول .. اي ان المعادلة تقول كلما زاد الحقل الفلاني حرفا فيتم انقاص بقية الحقول حرفا .. وهذا بحد ذاته موضوع معقد .. انا اعتقد ان النمو العمودي افضل مع توسيط بقية الحقول واعتقد ان هذا الموضوع تم حله من استاذ جعفر

فعلا هذه النقطه لم انتبه لها فى هذه اللحظه واذا زاد حجم البيانات هيزيد بالتالى الضغط على المعالج (مشكله) انا كنت ابحث عنها ظانن انها جيده ( ولكى اعرف كيف افعلها لغرض التعليم) اشكرك شكرا جزيلا على المعلومه

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

استاذنا العزيز محمد ... لا اعرف لماذا لا اقتنع بحقل محسوب .. بالاساس هو معادلة رياضية فتخيل لو عندنا مئات الالاف من السجلات وبالتاكيد سوف يكون هناك ضغط على الحاسوب وبطء في اعطاء النتائج

هذا هو بارك الله فيك ويعطيك الف الف صحه

يفضل إرفاق ملفك وتوضيح المطلوب أكثر من ذلك

استاذ حسام انا استخدم الاكسل في اعداد كشوفات المشاريع لسرعته في اعطاء النتائج

مرفق مثال ، وأعتذر لصاحب قاعدة البيانات لأنها تحتوي على أسماء حيث أنزلتها من المنتدى هنا لعمل تعديلات. الفكرة: - عمل استعلام Top 10 لطول الأسماء - استخدام نفس فكرة Accessna في استخدام الإكسل لمعرف عرض الصندوق. وأعتقد هذه أسرع تطبيق للفكرة وخصوصا أن نتائج الاستعلام إن شاء الله تغني عن المزيد من الفحص. بالتوفيق. لو أردتم تحديد أقصى عرض للصندوق سنعمل عليه لاحقا إن شاء الله. المثال مطبق على نموذج وتقرير. ResizeTextBox_01.rar

أقترح عمل حقل المسلسل الطبيعي ونوع بياناته autonumber ثم إضافة حقل محسوب في الجدول ونضع هذا في التعبير الخاص به "E" & 10000+[FileNo] حيث FileNo هو حقل المسلسل الطبيعي