نجوم المشاركات

جرب المرفق ..... طبعا انا غيرت بل الرسالة نص لان الرسالة لو افترضنا ان الطالب ذكي ممكن يترك الرسالة كما هي ويبحث هو عن الاجابه لكي يستفيد من توقف الوقت ... ههههه InterClock (2).mdb

جرب هذا الماكرو لعله يفيدك Sub ActivateWordTransferData() 'تحديد المدى كما في ورقة الاكسيل مع مراعاة اسم الورقة Worksheets("Sheet1").Range("c1:g200").Copy Dim wdapp As Object, wddoc As Object Dim strdocname As String On Error Resume Next Set wdapp = GetObject(, "Word.Application") If Err.Number = 429 Then Err.Clear Set wdapp = CreateObject("Word.Application") End If wdapp.Visible = True 'مكان ملف الوورد في الدرايف strdocname = "C:\Users\alhagag\Desktop\ww.docx" If Dir(strdocname) = "" Then MsgBox "The file " & strdocname & vbCrLf & "was not found " & vbCrLf & "C:\ww\.", vbExclamation, "The document does not exist." Exit Sub End If wdapp.Activate Set wddoc = wdapp.Documents(strdocname) If wddoc Is Nothing Then Set wddoc = wdapp.Documents.Open(strdocname) wddoc.Activate wddoc.Range.Paste wddoc.Save wdapp.Quit Set wddoc = Nothing Set wdapp = Nothing Application.CutCopyMode = False End Sub

السلام عليكم ورحمة الله وبركاته.. اقدم لكم النسخة الثانية من برنامج ادارة عيادة الطبيب.. تم تطبيق أغلب ملاحظاتكم وأقتراحاتكم في النسخة السابقة النسخة تجريبية تغلق بعد فترة الغرض من طرحها لمعالجة العيوب والأخطاء لكي يتم طرحها فيما بعد.. الرجاء منكم ابداء ملاحظاتكم واقتراحاتكم واضافاتكم وهل النسخة تحتوي على أخطاء؟ لكي اقوم بتحسين النسخة القادمة كلمة المرور لفتح البرنامج = 313 المميزات الحالية: 1- التصميم responsive يدعم جميع الشاشات الكبيرة والصغيرة 2- طباعة الوصفة الطبية 3- اضافة الادوية ومجاميعها والملاحظات 4- تسجيل بيانات المريض والحجوزات 5- تسجيل المصروفات 6- تعديل الاعدادات 7- اضافة نوع الحجز: * فحص = لإضافة الادوية للمريض * استشارة = لإرسال استشارة لطبيب آخر * دخول = لإرسال المريض الى المستشفى تصحيحات كثيرة وتعديل لأخطاء كثيرة قمت بها مع اضافة المزيد من الشروط لحصر وتقليل الأخطاء، شكرا لكل شخص ابدى رأيه وملاحظاته في النسخة السابقة، وايضا أنتضر ملاحظاتكم في هذه النسخة مع الشكر والتقدير doctor.rar

اسمحوا لي بالتداخل معكم اخي وحبيبي ابو ابراهيم .. اسمح لي بقفل الموضوع صاحب الموضوع معروف لدينا ، وضع فوقها اكثر من نقطة يكفي انه لم يرد على الاخ مسفر

تفضل أخي الكريم تم إنشاء إجراء لكل زر يقوم هذا الإجراء بإنشاء قائمة مختصرة حسب رقم العمود وفي أثناء إنشاء القائمة المختصرة يقرأ الخلايا الموجودة في الصفوف 22 وما بعدها في العمود المحدد ويضيفها إلى القائمة وتم إنشاء إجراء لكل شيت لفتحها بالتوفيق mas_Classeur1.xlsm

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

تمااااام عليك هذا المطلوب،، أنا كتبت الكود في المكان غير الصحيح،، الآن 100/100 أسعدك الله وبارك فيك ورضي عنك،،

هذا الموضوع ربما يفيدك

أهلا بك.. جرب هذا.. InterClock.mdb

احتجت لدمج محتويات عدد من الخلايا مع دمج محتوياتها فى كمية كبيرة من الجدوال ، مع اضافة فاصلة بين محتوياتها فاعددت هذا الكود اختر الخلايا المراد دمجها و دمج محتوياتها قبل تشغيل الكود Sub mergitwithcomma() Selection.Cells.merge With Selection.Find .Text = "^p" .Replacement.Text = "، " .Forward = True .Wrap = wdFindStop .Format = False .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll End Sub لتنزل الملف

الحمدلله 🙂 طريقة التخطيط والتنفيذ : 1. اجعل الحقل/مربع النص كاملا للرقم ، واحذف الهوامش الاضافية لجميع الحقول: . 2. كان واضح ان المطلوب هو ان عرض مربع النص يجب ان يتماشى مع عدد الارقام فيه ، وعرض الارقام بالنسبة للارقام الانجليزية ثابت لجميع الارقام ، وبعد تحليل النتيجة في الصورة ، كعدد ارقام ، وعرض مربع النص : ، اتضح ان كل حرف محتاج الى 145.5 تويب Twip (وحدة قياس الاكسس) ، وبتقنين الرقم وبعد عدة تجارب توصلت الى الرقم 140 ، لذلك ، اذا استعملت خط Font آخر ، او الخط بحجم اكبر/اصغر ، فيجب عليك تغيير هذه القيمة ، بالتجارب 😁 اذن ، عرض كل حقل يحتاج الى معرفة عدد الارقام ف الحقل ضرب 140 ، للحصول على هذا الرقم لكل حقل (هذه معادلتك) ، جعلنا القيمة في المتغير fld_value عليه يصبح عرض كل مربع (وعلشان نعرف عدد الارقام في الحقل ، نستخدم الدالة Len ، ويجب تحويل الرقم الى نص CStr ، للحول على النتيجة الصحيحة للدالة) : . وفي آخر سطر من المعادلات اعلاه ، جمعنا محموع عرض هذه المربعات في المتغير width_Added ، . 3. العرض المتوفر هو width_Avail : عرض التقرير - هامش اليمين لبكرة الطابعة - هامش اليسار لبكرة الطابعة : . 4. اذن في عملنا اعلاه ، عرض جميع مربعات النص يكون صحيح ، ويحتوي على الرقم كاملا فيه ، بالعرض (الضيق) الذي يناسب الرقم ، ولكنه لا علاقة له بالعرض الحقيقي الموجود في التقرير ، لذا ، سنلاحظ انه ترك مسافة فارغة زائدة عن حاجة المربعات ، 5. هنا قمت انت بحساب عدد الحقول التي سيتم عرضها في التقرير ، الحقول التي مجموعها اكبر من صفر ، وفي المتغير fICnt : . 6. المعادلة التالية تقوم باخذ عرض التقرير ، ناقصا مجموع عرص المربعات ، فيعطينا المسافة الفارغة الزائدة عن حاجة المربعات : فنقوم بتوزيعها بالتساوي بعدد الحقول ، فيصبح نصيب كل مربع : . 7. اذن عرض المربع النهائي سيصبح: عرض المربع الحقيقي (رقم#2 اعلاه) + القيمة المضافة / الاضافية (رقم #6 اعلاه) : . . جعفر

مادام المطلوب هو كما ذكرت لك في المشاركة السابقة فيمكنك وضع هذا الكود في شيت المعطيات Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$H$16" Then Sheets(2).Range("$R$9:$R$35").AutoFilter Field:=1, Criteria1:="non" End If End Sub ويعني أنه إذا كانت الخلية التي تم تغييرها هي h16 فيقوم بتنفيذ الفلتر في شيت الحل تلقائيا ويلزمك حفظ الملف بصيغة تدعم الكود مثل xlsb وهذا ملفك بعد تطبيق ما سبق احصاء تنبؤي.xlsb

السلام عليكم ورحمة الله استعمل الزر "Actualiser" للفترة... إحصاء.xlsm

وعليكم السلام ... اجابة سريعه استخدم هذا مثلا Forms!frm2!Number1 = Forms!frm1!Number1

جرب الآن 🙂 1396.مطابقة موجودات2.accdb.zip

جزاك االله خيرآ ولكم ألف شكر

وعليكم السلام 🙂 عملت تغيير في الاستعلام pv ، واسم وطريقة عمل النموذج الفرعي ، واستدعائه ، فرجاء تلقي نظرة عليه كذلك ، حتى يتماشى مع برنامجك : . والنتيجة . جعفر 1397.New Microsoft Access Database.accdb.zip

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

بالتأكيد كل الطرق متاحة وفعالة فى تلبية طلبك ... وانا استخدمت الطريقة الأولى فى الملف المرفق لك سابقاً وتغيير الإمتداد أمر اختيارى لك ليس له اى ارتباط بهذه الطريقة ولك الحرية فى التغيير من عدمه وشكراَ

شاهد هذا الفيديو (هناك 7 طرق) https://www.youtube.com/watch?v=MhnaR823Zgo&ab_channel=GameTrick

السلام عليكم ورحمة الله وبركاته لقد أنشأت برنامج بسيط وجمعت به الأكواد التي نسنتخدمها باستمرار وصممته بحيث تكون الواجهة عبارة عن شاشة يتم تجميع بها الأكواد المراد نسخها الي شاشة الفيجوال بيسك لمشاهدة كيف يعمل البرنامج من هذا الرابط بنك الأكواد - demo-24-4-2019.accdb