Jump to content
أوفيسنا

All Activity

This stream auto-updates

  1. Past hour
  2. Today
  3. الف الف شكر ربنا يجازيك عنا كل خير ويحفظك من كل سوء الف شكر
  4. او بطريقة اخرى 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 تحياتي
  5. تفضل اخي الكريم 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 تحياتي
  6. اولا احب اشكرك بشده على العمل الرائع بسم الله ما شاء الله ابداع هل يمكننى ان اطلب طلب اضافى ان فى حال ملف INI غير موجود يقوم بأنشاء الملف وادخال القيمه فيه
  7. وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم 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 تحياتي
  8. Yesterday
  9. كلها طرق لحفظ اعدادات قورم فى المرفق الثاني حفظ عن طريق جدول فى المرفق الثالث حفظ عن طريق الرجسترى انا اريد ان احفظ الاعدادات فى ملف خارجي كما هو فى مرفق الاول اى عند اختيار شئ يحفظ الذى اخترته فى ملف Settimg.ini انا قمت بنشر الطريقتين الاخرى لامثالى من المبتدئين وانا شايف ان الرجسترى اسهلهم وافضلهم لانه غير مرتبط باى جدول لكن ممكن ان هناك اجهزة الرجسترى فيها محمي من الاضافه والتعديد غير لامور معينه فانا اريد ان اجعل الحفظ فى ملف بامتداد INI
  10. استاذ عمر العزيز .. انا شخص مبتدأ جدا باكسس .. لكن سؤالك مبهم في الاقل لي .. ما الذي تريد فعله بالضبط والامثلة كلها متشابهة
  11. هناك ايضا طريقه لحفظ الاعدادات فى الرجسترى فى الوندوز وهيكون مسار الحفظ فى الرجسترى هو [HKEY_CURRENT_USER\SOFTWARE\VB and VBA Program Settings\SaveOP\Option] بيقوم بانشاء المفتاح فى الرجسترى وعند الحفظ يحفظ اخر اعدادات فى الرجسترى مرفق ملف للتوضيح Project3.accdb
  12. السلام عليكم ورحمة الله وبركاته و كل عام وانتم بالف خير وصحة عندي تقرير معمول بالوورد و هو شبه شهري , طبعا الصيغة او بناء التقرير لا يمكن تغيرها لانها مرتبطة بالادارة , المشكلة انني دوما انسي تغير بعض الفقرات في التقرير و دوما اوجه مشكلة مع الادارة و لاحظت انه اسهل التعامل مع الجدول في ادخال البيانات بدلا من فقرات التقرير و التي تكون البيانات مبعثرة هنا و هناك و قد ينسي اي شخص فقرة او معلومه لذا هل يمكن ربط فقرات التقرير بحقول في جدول , بحيث مجرد ادخال البيانات في الجدول تظهر تلقائيا في التقرير ؟؟؟؟ في المرفق هناك تقرير في الصفحة الاولي و هناك جدول في الصفحة الثانية , وارغب في ربط حقول الجدول بفقرات التقرير و تلاحظون ايضا تكرار في بعض الفقرات ارجو منكم المساعدة ولكم جزيل الشكر و الامنان التقرير الشهري.docx
  13. بصراحة استاذ انا احاول ان اجرك للمحاولة .. هي صعبة لكني اجدك صبور بالمحاولات @Hawiii
  14. للتوضيح وللفيده لغيري انا عملت الموضوع ده بربط النموذج بجدول انشأته لحفظ الاعدادات وشغال تمام لكن اريد ان اقوم به ك كود VBA والملف المرفق للتوضيح ما فعلته Project2.accdb
  15. كل ما سيأتي لاحقا هو أسهل مما تم 🙂 ، وحساب عرض الصندوق لنص أصعب بكثير لصندوق نوعه رقمي. عموما أنا لم أعمل تفاضل بين التمدد الأفقي/العرضي والعمودي/الإرتفاع وكذلك لم أنصح بأي منهما ، أنا عملت بموجب طلب السائل. لاحظ كذلك السائل لم يرفع مثال لطلبه فلا علم لي بعدد الحقول التي ستظهر في تقريره ولكن نوهت في مشاركتي السابقة لموضوع تحدد سقف لعرض الصندوق. عموما الموضوع لم ينتهي بعد ، وبانتظار حلول أخرى من الأساتذه ونستطيع بعدها المقارنة والتفاضل بينها ثم ننصح بالأفضل أو بتلاقح مجموعة أفكار للخروج بحل نموذجي.
  16. السلام عليكم كنت فى المرفق ملف لقاعدة بيانات بها فورم هذا الفورم به خيارين تختار منهم واحد اريد ان عندما تقوم باختيار اى خيار منهم والضغط على مفتاح حفظ او الحفظ التلقائى لحالة الاختيار ان يحفظ لى الاعدادات فى ملف جنب قاعدة البيانات بامتداد INI بحيث عندما اقوم بفتح الفورم اجد الاعدادات كما تركتها اخر مره Project2.rar
  17. التفاته لطيفة من استاذنا المحبوب محمد صالح لنتعلم مالم نعرفه لكن المرفق الاخير للاستاذ @husamwahabعملي جدا ...
  18. الاستاذ عمر ضاحى الحل تم تقديمه سابقا
  19. استاذ @Hawiii ربي يحفضك ويرعاك ...لو كان لدينا تقرير من اربع حقول مثلا .. فيجب عليك ان تمد الحقل الذي تريده على حساب بقية الحقول .. اي ان المعادلة تقول كلما زاد الحقل الفلاني حرفا فيتم انقاص بقية الحقول حرفا .. وهذا بحد ذاته موضوع معقد .. انا اعتقد ان النمو العمودي افضل مع توسيط بقية الحقول واعتقد ان هذا الموضوع تم حله من استاذ جعفر
  20. فعلا هذه النقطه لم انتبه لها فى هذه اللحظه واذا زاد حجم البيانات هيزيد بالتالى الضغط على المعالج (مشكله) انا كنت ابحث عنها ظانن انها جيده ( ولكى اعرف كيف افعلها لغرض التعليم) اشكرك شكرا جزيلا على المعلومه
  21. كلامك صحيح أنا أستعمل التعبير في الاستعلام والتقرير بدلا من الحقل المحسوب في الجدول ولكن هذا ما يبحث عنه الأخ صاحب السؤال بالتوفيق
  22. استاذنا العزيز محمد ... لا اعرف لماذا لا اقتنع بحقل محسوب .. بالاساس هو معادلة رياضية فتخيل لو عندنا مئات الالاف من السجلات وبالتاكيد سوف يكون هناك ضغط على الحاسوب وبطء في اعطاء النتائج
  23. هذا هو بارك الله فيك ويعطيك الف الف صحه
  24. يفضل إرفاق ملفك وتوضيح المطلوب أكثر من ذلك
  25. استاذ حسام انا استخدم الاكسل في اعداد كشوفات المشاريع لسرعته في اعطاء النتائج
  26. مرفق مثال ، وأعتذر لصاحب قاعدة البيانات لأنها تحتوي على أسماء حيث أنزلتها من المنتدى هنا لعمل تعديلات. الفكرة: - عمل استعلام Top 10 لطول الأسماء - استخدام نفس فكرة Accessna في استخدام الإكسل لمعرف عرض الصندوق. وأعتقد هذه أسرع تطبيق للفكرة وخصوصا أن نتائج الاستعلام إن شاء الله تغني عن المزيد من الفحص. بالتوفيق. لو أردتم تحديد أقصى عرض للصندوق سنعمل عليه لاحقا إن شاء الله. المثال مطبق على نموذج وتقرير. ResizeTextBox_01.rar
  27. أقترح عمل حقل المسلسل الطبيعي ونوع بياناته autonumber ثم إضافة حقل محسوب في الجدول ونضع هذا في التعبير الخاص به "E" & 10000+[FileNo] حيث FileNo هو حقل المسلسل الطبيعي
  1. Load more activity


×
×
  • Create New...

Important Information