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

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

السلام عليكم 🙂 اسمحوا ان ادلو بدلوي 🙂 الموضوع هذا تكملة للموضوع: . المشكلة الموجودة عندك حاليا هي: 1. الامر الموجود في الكود : rst.MoveNext يجعل المؤشر ينتقل من سجل الى الذي يليه ، وفي النهاية يبقى على آخر سجل ، فلما تشغل الكود مرة ثانية ، لا يعمل لأنه لازال على آخر سجل 🙂 والعمل ، انك لما تشغل الكود ، ومن البداية تخبره ان يذهب الى اول سجل : rst.MoveFirst 🙂 2. لما تخرج من النموذج وتدخل فيه مره ثانية ، فواقعا انت تعيد المؤشر على اول سجل (لأن الكود لم يعمل بعد 🙂 ) . واذا ادخلت قيمة في حقل ، وعلى طول نقرت على زر تفريغ البيانات ، فقيمة هذا الحقل لن يتم تصفيتها ، لأنها لاتزال في وضع تعديل/Edit (اقرأ التفصيل هنا) : . لذلك يجب ان نبدأ بحفظ السجلات ، وهذا الامر يقوم بذلك: If Me.Dirty Then Me.Dirty = False وعليه سيعمل الكود بالطريقة الصحيحة 🙂 اليك الكود بعد الاضافات اعلاه : Dim rst As dao.Recordset If MsgBox("هل تريد حذف البيانات", vbYesNo, "تنبيه") = vbYes Then If Me.Dirty Then Me.Dirty = False Set rst = Me.RecordsetClone rst.MoveFirst Do Until rst.EOF rst.Edit rst![mdowrMD] = Null rst![mdowrDA] = Null rst![mdeen] = Null rst![daan] = Null rst.Update rst.MoveNext Loop Else Exit Sub End If 'MsgBox . جعفر

اتفضل اخى حسين ان شاء الله يكون ما تريد تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق 44Music.rar

جزاك الله خيرا اخى ومعلمنا العزيز @jjafferr على المعلومات الاكثر من قيمه بارك الله لنا فيك تقبل تحياتى

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

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

السلام عليكم اخي الكريم يمكنك اختيار طابعة بالكود دون التاثير على الطابعة الافتراضية جرب الكود على اعتبار ان الحقل اسمه print واعلمنا النتائج If print = 1 Then Set Application.Printer = Application.Printers("اسم الطابعة الكامل") DoCmd.OpenReport "اسم التقرير", acViewNormal elseif print = 3 Then Set Application.Printer = Application.Printers("اسم الطابعة الكامل") DoCmd.OpenReport "اسم التقرير", acViewNormal end if تحياتي

السلام عليكم جرب المرفق اخي الكريم اتمنى يكون المطلوب اعلمنا النتائج تحياتي ProgClac44.rar

وعليكم السلام 🙂 الطريقة الجديدة اللي توصلت لها هي عمل وحدة نمطية ، في برنامج الواجهة (ليس على السيرفر) تقوم بالتالي: - عمل ملف txt صغير على جهاز السيرفر، - قراءة الوقت الذي تم فيه عمل الملف (من اعدادات الملف) ، وهو الوقت الذي نريده ، -حذف الملف Public Function Make_File() Dim BE_Path, PauseTime, Start 'get the server path BE_Path = DLookup("[Database]", "MSysObjects", "[Flags]=2097152") 'Path and BE name BE_Path = Mid(BE_Path, 1, InStrRev(BE_Path, "\")) BE_Path = BE_Path & "dummy.txt" 'make the dummy txt file Open BE_Path For Output As #1 Print #1, "No text required" Close #1 'pasue for a second, until file is recognized, for slow networks PauseTime = 1 ' Set duration. Start = Timer ' Set start time. Do While Timer < Start + PauseTime DoEvents ' Yield to other processes. Loop 'get the date created Make_File = FileDateTime(BE_Path) 'clean up, delete the file Kill BE_Path End Function . وننادي هذه الوحدة النمطية هكذا: Me.srver_Time = Make_File() . وبما ان ملف الجداول يكون في مجلد يسمح فيه بإنشاء/تعديل/حذف ملف ، فهذه الطريقة المفروض انها تشتغل 🙂 طريقة العمل هي ان تضع ملف my_BE.mdb على السيرفر ، وملف my_FE.mdb على كمبيوترك ، ثم تربط جدول الواجهة مع جدول الخلفية (سيسألك البرنامج عن فتحه) 🙂 جعفر Server Time.zip

تفضل 1- دمج الخلايا في الاوراق يؤثر على عمل الاكواد 2- سيتم حذف الشيكات المرحلة بالاعتماد على رقم الشيك البرنامج.rar

السلام عليكم 🙂 هذا اللي توصلت اليه 🙂 . . استورد الكائنات من المرفق الى برنامجك الاصل 🙂 جعفر 1182.2020-3-10 (18-45-43).mdb.zip

لا أعلم اذا كان هذا المطلوب (معادلات) MY_tekrar.xlsx أو هذا الملف ماكرو MY_tekrar.xlsm

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

السلام عليكم ورحمة الله تعالى وبركاته احبائى اقدم لكم هذه الاداة البسيطة ذات الفائدة الكبيرة احيانا تحدث مشكلة عند تشغيل قاعدة بياناتك على بعض الأجهزة وذلك بسبب كتابة الحروف العربية داخل محرر الاكواد اثناء التصميم حتى وإن كانت ملاحظات وتلميحات وتم تعطيلها وبين طيات نقاش طويل بينى وبين استاذى الجليل ومعلمى القدير ووالدى الحبيب الاستاذ @jjafferr نصحنى وشدد على بــــ عدم كتابة اى احرف عربية داخل المحرر حتى وان كانت ملاحظات او تلميحات فسألته : وماذا ان اردنا كتابة رسالة باللغة العربية فأجابنى : بعمل جدول ليتم كتابة ما تريد باللغة العربية وتستدعيه وقت الحاجة فكرت وحاولت وبفضل الله تعالى ثم مساندة أستاذى الجليل فيما تعثرت فيه وتوصلت الى ذلك ولكن هناك شقين 1- الموضوع مرهق قليلا ويتطلب وقت وجهد كبيرين 2- بالرغم من النقطة السابقة الا انه ممتع جدا جدا جدا وبرغم صعوبته اثناء التصميم الا انه يعطى مرونه فى تغيير الرسائل بدون الرجوع الى محرر الاكواد وطبعا قد لا يستطيع البعض تحقيق ذلك لذلك فكرت فى بديل وكانت بفضل الله تلك الاداة البسيطة التى اضعها الان بين اياديكم شرح الاداة نكتب ما نريد فى المكان المخصص للغة العربية ونقوم بتحويل ما كتبناه الى الترميز العالمى نقوم بعمل نسخ الترميز العالمى الى محرر الاكواد داخل قاعدتك فى المكان المحدد لذلك من واقع الصورة الجزء الأيمن 1 >>---> المكان المخصص لكتابة اللغة العربية 2 >>---> زر الامر الذى يقوم بتحويل ما تم كتابتة الى الترميز العالمى Unicode 3 >>---> زر الامر الذى يقوم بنسخ الاحرف التى تم تحويلها الى الترميز العالمي الجزء الأيسر A >>---> لصق الترميز العالمى الذى قمت بنسخه من اى قاعدة بيانات تم استخدام هذا الترميز فيها من قبل B >>---> زر الامر الذى يقوم بتحويل الترميز العالمى Unicode الى اللغة العربية لتستطيع قراته مرفق لكم الاداة + قاعدة تجربة انتظر تجربتكم وافادتكم تم تعديل المرفق فى تمام الساعة 7:44 م بتوقيت القاهرة - تاريخ 23/09/2019 Converter Arabic and Unicode.zip Converter Arabic and Unicode.mdb

ماشالله تبارك الله زادك الله من علمه وعمل جدا اكثر من رائع سلمت وسلمت يمينك

نعم هى الحل جزاه الله خيرا اخى واستاذى خالد @kha9009lid Format([txt], "00/00/0000") تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق

تقديري الكامل اخي احمد علي الرد و وتقديري واحترامي علي سرعة الرد

اخى اشرف @اشرف ادعونى باخى فاننى مجرد طالب علم اتعلم معكم ومنكم لم افعل شىء اكثر من وضع الكود التالى فى حدث زر الطباعه DoCmd.RunCommand acCmdSaveRecord تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق

وعليكم السلام 🙂 عندك المعلومة هنا . وكل اللي لازم تعمله هو تحسب عدد : P = Present = حضور A = Absent = غياب جعفر

هذا السطر لادراج الترقيم (اختياري) اذا كنت لا تحاجه يمكن توقيفه فقط كما فعلت

وعليكم السلام اتفضل اخى حسين راجع الرابط التالى وجزاهم الله خيرا اخواننا واساتذتنا تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق

وعليكم السلام اتفضل انشىء نسخه مطابقه لجدول daily وسمها اى مثلا tblDletedaily انشىء استعلام الحاق بمعيار رقم الفاتوره نفسه وتشغيله قبل الحذف قم بتشغيل النموذج واكتب رقم الفاتوره ونفذ سيتم الالحاق والحذف تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق A_New Microsoft Access Database (1).rar

الله يبارك في علمكم وعملكم وفقكم الله واعطاكم الصحة والعافية استاذ سليم المبدع '.Columns(1).Formula = "=MAX($B$7:B7)+1" استاذ سليم جزاكم الله خيرا هذا السطر خاص بالمسلسل اوقفته لعدم حاجتي له هل هناك اجراء اخر لايقاف المسلسل ام ينتهي بايقاف هذا الكود لكم وافر احترامي

شكراااااا لك من أعماق قلبي اخي نبيل ، لا اعرف كيف انصفك بالشكر فعلا انت عملاق وكلمة شكرا قليله بحقك

شكرا جزيلا هذا هو المطلوب

شاهد هذا الفيديو

بارك الله فيكم جميعا شكرا

TRY THIS MACRO FOR THE FORMATING Option Explicit Sub Get_najeh() Application.ScreenUpdating = False Dim s As Worksheet, T As Worksheet Dim F_Rg As Range Dim Ro%, Str$, My_ro, k, m, mmax% Dim Arr: Arr = Array(2, 3, 26, 35, 44, 53, 65, 82) Set s = Sheets("الشيت"): Set T = Sheets("كشف ناجح") T.Range("b8:N100").Clear Ro = s.Cells(Rows.Count, "Di").End(3).Row Set F_Rg = s.Range("Di12:Di" & Ro) Str = "ناجح" F_Rg.AutoFilter 1, Str My_ro = s.Cells(Rows.Count, "Di").End(3).Row m = 3 For k = LBound(Arr) To UBound(Arr) s.Cells(13, Arr(k)).Resize(My_ro - 8).SpecialCells(12).Copy T.Cells(8, m).PasteSpecial (xlPasteValues) m = m + 1 Next If s.FilterMode Then s.ShowAllData F_Rg.AutoFilter End If mmax = T.Cells(Rows.Count, 3).End(3).Row With T.Cells(8, 2).Resize(mmax - 7, 13) .Borders.LineStyle = 1 .Font.Size = 18 .Font.Bold = True .InsertIndent 1 .Columns(1).Formula = "=MAX($B$7:B7)+1" .Value = .Value End With T.Cells(8, 2).Select Application.ScreenUpdating = True End Sub File Included My_filter_new.xlsm

السلام عليكم جزاكم الله خيرا استاذ سليم وفقكم الله ورعاكم

وعليكم السلام 🙂 الاكسس ليس فيه خاصية تصغير حجم كائنات التقرير ليتناسب مع حجم ورقه واحدة (كما في الاكسل) ، لذا ، فعندك طريقتين: 1. الطريقة الموجودة في الاكسس هو يدويا في تصميم التقرير ، اعمل على الكائنات من حقول ونوع/حجم الخط ، بحيث تجعلهم اصغر شيء ممكن ، وبهذه الطريقة وبعد تصغير الكائنات ، سيكون التقرير في وضع التصميم اضيق افقيا (مما يعني تستطيع عمل 3 اعمدة او اكثر، بدل العمودين) ، واقصر عموديا (مما يعني سجلات اكثر) ، وانت وحظك ، في هل ستكون جميع سجلات المشروع في صفحة واحدة او لا 🙂 2. ممكن تصدير التقرير للاكسل ، ومنها تقدر يدويا/برمجيا ان تجعل الطباعة في صفحة واحدة (بس طبعا لازم تشتغل على #1 اعلاه 🙂 ) . وقبل ان تعمل اي شيء، تأكد ان عندك عدد الحقول صحيح : وبعدين لازم انك تلعب/تغير في التقرير الى ان ترى انه مناسب 🙂 جعفر

الجداول في اكسل يجب ان تكون مستقلة عن اي تدخل خاجي من البيانات(دون دمج خلايا) كي يعمل اي ماكرو كما هو مبرمج لذلك تم ادراج صف فارغ فوق الجدول في الشيت الاول والشيت الثاني (بقي عامودين في الداتا / تربية دينيه و الحالة / لم أعرف موقعهما لذلك قم بزيادة ارقام الاعمدة التي تناسبها على الــ Array محافظاً على الترتيب) الكود Option Explicit Sub Get_najeh() Dim s As Worksheet, T As Worksheet Dim F_Rg As Range Dim Ro%, Str$, My_ro, k, m Dim Arr: Arr = Array(2, 3, 26, 35, 44, 53, 65, 82) Set s = Sheets("الشيت"): Set T = Sheets("كشف ناجح") T.Range("c8:N100").ClearContents Ro = s.Cells(Rows.Count, "Di").End(3).Row Set F_Rg = s.Range("Di12:Di" & Ro) Str = "ناجح" F_Rg.AutoFilter 1, Str My_ro = s.Cells(Rows.Count, "Di").End(3).Row m = 3 For k = LBound(Arr) To UBound(Arr) s.Cells(13, Arr(k)).Resize(My_ro).Copy _ T.Cells(8, m) m = m + 1 Next If s.FilterMode Then s.ShowAllData F_Rg.AutoFilter End If End Sub الملف مرفق My_filter.xlsm

وعليكم السلام استاذى الفاضل الجدول studen فى قاعده بيانات الحاق فارغ كما ورد فى اول السؤال والبيانات فى جدول التلاميذ قمنا بعمل استعلام الحاق له وتم الرد كيف سيتم الحاق البيانات فى جدول الحاق من جدول التلاميذ وهو يريد العمل من داخل قاعده الحاق ؟ بالتوفيق

السلام عليكم ورحمة الله اخى اقصى ما استطعت الوصول اليه هو جلب القيم المطلوبة دون التقيد باى نطاق و لكن عيبه الوحيد ان الكود التالى سوف يتجاهل النطاقات الخالية تماما و لا اعلم ان كان سيروق لك هذا ام لا اليك الكود : Sub LastValues() Dim C As Range, i As Long, x As Integer For Each C In Range("C7:C100") If IsEmpty(C) Then i = C.Row - 1 x = Cells(i, 3) If x > 0 Then p = p + 1 Cells(7, p + 12) = x End If End If Next End Sub

وعليكم السلام مشاركه لاخى واستاذى @kanory جزاه الله خيرا تم تعديل الخطأ تم اضافه حقل مجمع بالجدول data_stock اسمه All [Item] & [reg_date] & [code] & [sale_id] & [sale_qty] وتم اضافه نفس التجميع بالاستعلام Query1 باسم XAll ثم اضافه الحقل XAll ولكن له معيار فقط Not In (SELECT data_stock.[All] FROM data_stock;) ومعناها لا تضيف البيانات المساويه لهذا الحقل فالجدول data_stock ارجو ان اكون قد وفقت فالشرح وتقبلوا عذرى فالخطأ والحمدلله على كل حال تقبلوا تحياتى وتمنياتى لكم وللجميع بالتوفيق hhgic.rar

برنامج الكنترول المدرسي اليمني إهداء لكل مدارس اليمن – مجاني ولا يسمح المتاجرة به . المهام يقوم البرنامج بالمهام التالية : إحصائيات حافظة الدوام إقرار بالقوى العاملة بيانات هيئة التدريس طباعة بيانات الشهادات الرسمية سجل توزيع الكتب كشف أسماء الطلاب خاص بيانات ورصد الطلاب تقسيم الشعب سجلات الغياب الرصد الشهري كشوف المحصلة الأولى والثانية شيت كنترول نصفي وآخر كشوف المناداة نصفي وآخر دليل الطالب نصفي وآخر دليل سري نصفي وآخر استمارة تفريغ درجات نصفي وآخر كشوف نهائية نصفي وآخر أوائل نصفي العام وآخر نتيجة نصفي وآخر تحليل مواد على مستوى الشعب نصفي وآخر رفع درجات نصفي وآخر خلاصات عامة وصف ومواد إعداد أرقام الجلوس والأرقام السرية الحساب التراكمي للمدارس التي تعمل بالحساب التراكمي يمكن تحميل البرنامج المحدث من الرابط التالي : https://cutt.us/ur8My للاخوة مستخدمي برنامج الكنترول المدرسي والسكرتارية يمكنكم التواجد بهذه المجموعة على الواتساب ليصلكم كل جديد عن البرنامج ولتلقي ملاحظاتكم . https://chat.whatsapp.com/Cxlu6FtAS6QL9G2ddVcgEB

السلام عليكم عملت لك طريقتين في نموذجين النموذج الاول: فيه زر استعلام تحديث تضغطه نهاية كل سنه لمرة واحده ليضيف 27 يوم لرصيد الاجازات النموذج الثاني : في مربع نص يمكن ادخال الرقم الذي تريد اضافته لرصيد الاجازات (اي رقم تختاره) يجمعه مع الرصيد السابق ثم اضغط على تحديث النموذج اتمنى يكون المطلوب تحياتي Database2.rar

أخي أبو الخضر إذا أنت تريد رفع ملف الكنترول أولاً: أحفظ مستندات الإكسل بصيغة Workbook Excel Binary ثانياً: بعد تحويل مستندات الإكسل بصيغة Workbook Excel Binary اضغط جميع مستندات الإكسل rar ببرنامج ضغط الملفات. ( وذلك لتصغير حجم الملف )

جرب هذا الماكرو (النتيجة في شيت "Salim" Option Explicit Sub Every_two() Dim my_max%, i%, k% my_max = Sheets("Main").Cells(Rows.Count, 3).End(3).Row Sheets("Salim").Cells(1, 1).CurrentRegion.ClearContents k = 1 For i = 1 To my_max Step 2 With Sheets("Main").Cells(i, 3) Sheets("Salim").Cells(k, 1) = _ .Value & " " & .Offset(1) k = k + 1 End With Next End Sub الملف مرفق two_in_One.xlsm

مشكورين على التعاون المثمر جعله الله فى ميزان حسناتكم

شكرا لكل من ساهم فى الموضوع

مشكورين عمل وجهد رائعين

اخي جعفر طبعا فكرة ادخال الدالة format في الطرفين : طرف المعيار وطرف القيمة المعلمة ! ليست جديدة عليكم ولكن قد يكون تطبيقها هو الذي جعلكم تبحثون عن فكرة وهي ابسط حقوق المبرمج ! الآن راح نشوف الاكسس لضمان تساوي التنسيق ! في ال sql Set rst = CurrentDb.OpenRecordset("Select DISTINCT cen, [Date] From tbl_T Where format([date],'dd/mm/yyyy')='" & Format(idate, "dd/mm/yyyy") & "'") هنا نلاحظ ان السر في عدم استخدام # واستبدالها ب ' لانه اصبحت المقارنة نصية ! والافضل وضع تنسيق التاريخ بهذا الشكل mmddyyyy في دالة ال dcocunt RC4 = DCount("*", "tbl_T", "format([Date],""ddmmyyyy"") =Format(idate, ""ddmmyyyy"")") بالتوفيق

السلام عليكم تحياتي للجميع بعد ان قمت بتعديل المسار للملف وتحديد مكانه الملفان يعملان بكفاءة المشكلة ليست في الملفات كما ذكرت المشكلة في تحديد مساره بدقه سواء كان على بارتشن c or d او كان داخل فولدر او منفرداً