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

السلام عليكم ورحمة الله تعالى وبركاته فى البداية اود ان اعتذر عن قلة مشاركاتى وذلك لقلة تعاملى مع الاكسس نظرا لانشغالى بـــ بيئة بيسك.نت ببساطة نحن مستخدمى الاكسس نريد ان يكون لدينا هذا الزر فى برامجنا 😂😂😂 اولا كان لدى محاولة واحدة عن كيفية جعل المستخدم يبحث عن تحديثات جديدة للبرنامج الخاص به عن طريق الانترنت فكانت نتيجة المحاولة هو ربط قاعدة البيانات اكسس بقاعدة بيانات سيكوال موجودة على استظافة مجانية قاعدة سيكوال بها حقلين هما رقم النسخة الجديدة ورابط التحميل الخاص بالتحديث الجديدة وهذا الموضوع يشرح ذلك وكانت اكبر المشاكل التى تقابلنى هى الاستضافة المجانية التى بعد شهرين او اكثر تحذف قاعدة بياناتك بدون سابق انذار ولا يوجد المال الكافى لحجز استضافة ورفع قاعدة البيانات سيكوال الخاصة بك عليها فكان التفكير فى استخدام البرامج السحابية (جوجل درايف - وان درايف - دروبوكس ) واكبر المشاكل التى ستقابلك هى المزامنة ثم المشكلة الاخرى وهى انك لن تطلب من كل المستخدمين تثبيت اى من البرامج السحابية لديه واعطائة اسم المستخدم وكلمة السر الخاص بالبرنامج السحابى الذى سترفع عليه التحديث حتى تتم المزامنة على جهاز العميل اولا باول اذا فما هو الحل انا اريد ان يضغط العميل على زر ( البحث عن تحديث جديد ) ثم يجد رسالة تخبره ان برنامجه محدث او انه توفر اصدار جديد من البرنامج اليكم فكرتى قد تحتاجونها او لا ولكن ما كنت لابخل عليكم بشئ فاء الله على به الفكرة بسيطة جدا تتلخص فى ملف نصى LastVersion.Txt قمت بكتابته به مجموعة اسطر الاول هو رقم الاصدار الجديد الثانى هو رابط تحميل التحديث الجديد وبعد هذا سطور على حسب الحاجة تقوم بالتعريف فيها بالتحديث الجديد ومميزاته طريقة العمل سيقوم المرفق الذى سادرجه هنا بتحميل الملف النصى من حسابك الخاص على دروبكس وتفريغ الاسطر التى بداخله الى مربعات النصوص التى بالنموذج ثم يقارن رقم التحديث الجديد بالرقم الحالى ويعلمك اذا كانت نسختك محدثة ام تحتاج تحديث المشاكل التى واجهتنى 1 - عدم وجود (direct download link او static download link ) نظرا لتغير رابط تحميل الملف النصى دائما فماذا سافعل اذ قمت مسبقا بادراج رابط ثابت لتحميل الملف النصى داخل البرنامج 2 - اذا اطلقت نسخة جديدة من برنامجى فساحتاج الى تعديل الملف النصى المحمل مسبقا والمدرج رابط التحميل الخاص به فى النموذج فكانت الحلول هو عمل static download link للملف النصى اى رابط تحميل ثابت للملف النصى تابع معى المتطلبات ---------------------- ان يقوم مصمم البرنامج فقط بالتسجيل على الموقع السحابى (https://www.dropbox.com/h) .. المصمم فقط ان شئت قلت كأنك حجزت استضافة مجانية بها 12 جيجا بايت ومجانية لانه بعد التسجيل سنحتاج اسم المستخدم وكلمة المرور لكتابتهم فى دوال التحميل داخل المرفق وهما دالتان مثل هذا الشكل الدالة الثانية ثم يقوم بانشاء الملف النصى الخاص بالبرنامج الذى صممه انا كتبته بهذا الشكل سنستخدم البرنامج السحابى دروبوكس (https://www.dropbox.com/h) بعد التسجيل - يمكنك التسجيل بسهوله عليه عن طريق رابط جوجل دون الحاجة الى ملئ البيانات بعد التسجيل ستجد نفسك فى الصفحة الرئيسية الخاصة بك بعد كتابة الملف النصى نقوم برفعه على الدروبكس بعد رفعه على الدروبكس نقوم باخذ اللينك الخاص به كوبى وذلك لعمل رابط مباشر له لتحميله بعد اخذ اللينك كوبى بقى اهم خطوة وهى عمل رابط تحميل مباشر له تابع معى ستجد رابط المشاركة بهذا الشكل الرابط الذى اخذته كوبى https://www.dropbox.com/s/n6oa483hwhlpkst/LastVersion.txt?dl=0 فقط استبدل https://www.dropbox.com استبدلها https://dl.dropboxusercontent.com ليصبح شكل الرابط هكذا https://dl.dropboxusercontent.com/s/n6oa483hwhlpkst/LastVersion.txt?dl=0 وبذلك اصبح لديك رابط مباشر له بعذ ذلك خذ الرابط الجديد وادرجه فى البرنامج فى هذا الكود ثم نقوم برفع القاعدة الجديدة المحدثة على الدروبكس وعمل رابط مباشر لها ولكن هذه المرة نقوم بادراج الرابط المباشر هذا فى الملف النصى لا فى البرنامج مع مراعاة ان نقوم بتحديث رقم الاصدار فيها قبل رفها ليطابق رقم الاصدار الموجود فى الملف النصى والان فيديو يشرح طريقة العمل تم اضافة اسم للمستخدم وكلمة السر يمكنك الان تجربة البرنامج المرفق LinkToUpdate.accdb اتمنى ان اكون عرفت اشرح وطبعا انا منتظر تشريفكم بتعليق لتجربة مرفقى المتواضع

في وضع تصميم الفورم اختر الحقل ومن خصائص الفورم اختر تنسيق نوع (قياسي)

السلام عليكم هذه تجربة و محاولة لقد أدت المطلوب لكن ربما للأساتذة رأي أكثر احترافية .. خاصة أني أرى أستاذي @Shivan Rekany و هو من هو و كم له من معلومة قيمة استفدتها منه بارك الله به و بالأساتذة الكرام . تعديل :و ضعت المرفق في المشاركة التالية

الاکسل بيعمل جمع بواسطة اي دي السطور من رقم 1 الى اخره و مع السماء الحقول من a الى اخره لذلك حضرتك ايضا يقدر عمل ذلك لكن بنفس الطريقة تقدر تستخدم DSum وتعطيه شرط من اي دي فلان الى فلان هذا حسب ما فهمت من السؤال

بزر السكرول بالفأرة مع الكنترول .

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

احسنت وجزاك الله خيرا

أخي @Shivan Rekany فعلاً طريقة رائعة و ربما لها الكثير جداً من التطبيقات . سلمت يداك و شكراً لصاحب السؤال على هذا السؤال الرائع

الطريقة كانت ثلاث مربعات غير منضمة و استخدام هذا الأمر ... Forms![table1]![Text6] = Me.SelHeight Forms![table1]![Text13] = Me.SelTop Forms![table1]![Text15] = DSum("name2", "table2", "[iD] between Forms![table1]![Text13] and Forms![table1]![Text6]+Forms![table1]![Text13]-1 ") يوضع في حدث MOUSEUP في نموذج الفرعي قبل إضافته إلى النموذج الرئيس حيث ستكون طريقة العرض داتاشيت حقل يعد و يجمع السجلات المحدة في نموذج فرعي1.accdb

ربما يكون هذا هو المطلوب مع ملاحظة أنك لم تدخل أي بيانات يجب أن تكون إعدادت الصفحة الضبط ( ضبط الصفحة 100% ) ويتم زيادة أو نقصان عرض الأعمدة كما تشاء Nouveau Microsoft Excel Worksheet.xlsx

انا عملت المطلوب بطريقة اخر عن ما اخبرك استاذ @رمهان و @Khalf بواسطة هذا الكود ستحدد الحقول المراد جمعه في نموذج الفرعي Option Compare Database Public MyCountFelid As Integer Public Sub MyActiveCon() Dim Spl() As String Dim i As Integer If IsNull(Form_Frm.MyList) = True Then Form_Frm.MyList = Me.ActiveControl.Name MyCountFelid = 1 Else Spl = Split(Form_Frm.MyList, "-") For i = 0 To MyCountFelid - 1 If Spl(i) = Me.ActiveControl.Name Then Exit Sub Next i Form_Frm.MyList = Form_Frm.MyList & "-" & Me.ActiveControl.Name MyCountFelid = MyCountFelid + 1 End If Form_Frm.EdedAlhiqol = MyCountFelid End Sub Private Sub item1_DblClick(Cancel As Integer) Call MyActiveCon End Sub Private Sub item2_DblClick(Cancel As Integer) Call MyActiveCon End Sub Private Sub item3_DblClick(Cancel As Integer) Call MyActiveCon End Sub Private Sub item4_DblClick(Cancel As Integer) Call MyActiveCon End Sub Private Sub item5_DblClick(Cancel As Integer) Call MyActiveCon End Sub اولا سيتأكد الكود هل الاسم الحقل موجود من قبل ام لا اذا نعم لا يتكرر واذا لا سيضيفه الى مربع اسماء الحقول مراد جمعه وبواسطة هذا الكود سيعمل المطلوب اي جمع الحقول المطلوبمة من السجل الى السجل Option Compare Database Private Sub Command16_Click() Dim MYSum As Long Dim Spl() As String Dim i As Integer Spl = Split(Me.MyList, "-") For i = 0 To Me.EdedAlhiqol - 1 MYSum = MYSum + Nz(DSum("[" & Spl(i) & "]", "table1", "[id]>=" & Me.FromID & "and [id]<=" & Me.ToID), 0) Next i Me.MySubSum = MYSum Me.FromID = Null Me.ToID = Null Me.MyList = Null Me.EdedAlhiqol = Null End Sub وهذه صور توضيحي للعملية واليك القاعدة جمع عدد من الحقول من تسلسل الى تسلسل.accdb استخدمه حتى رجوع استاذ رمهان بشيء جديد 😊

عند الفتح او عند التحميل كما يحلو لك

بالتوفيق اخي ابو زاهر

اتفضل LoadKeyboardLayout "00000401", 1

دا المطلوب الاول .. بس انت حطه فى خلية من غير صورة الطباعة اللى انت حاططها لأنه معادلة عادية =IF(F1="عربى",HYPERLINK("[عمل طلبية.xlsx]طباعة!A1",F1),IF(F1="إنجليزى",HYPERLINK("[عمل طلبية.xlsx]EN!B3",F1),IF(F1="فرنساوى",HYPERLINK("[عمل طلبية.xlsx]FR!B3",F1),""))) اما مطلوب 2 مش فاهمه انت عاوز تخفى ايه بالظبط حط مثال وقول عاوز اخفى كذا وكذا علشان يبقى واضح ومطلوب 3 حط امثلة برضه

السلام عليكم مصدر الكود هو : https://bytes.com/topic/access/answers/940764-count-selected-record-datasheet قمت بالتعديل عليه و إضافته إلى نموذج من نوع داتاشيت و إضافته كنموذج فرعي عندي قمت بمباشرة العمل فور مُشاهدتي لسؤالك لذا لم يتح لي رؤية الردود و المرفق الكود بعد التعديل : ' في حدث mouseup من النموذج بصيغة داتا شيت الذي سنأخذ منه النموذج الفرعي الذي سنضمه FORMS![النموذج الرئيسي]![counter] = me.selheight

ضع هذه المعادلة فى d3 وانزل اوتوفيل =IF(OR('0'!D8="احمد",'0'!L8="احمد"),'0'!J8,"") واقف فى d2 روح على data واختار فلتر ودوس على الفلتر وشل علامة صح من كلمة blanks ولازم تخلى الشيت يحسب اتوماتيك مش منوال زى ما انت عامل علشان المعادلة تبقى سليمة

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

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

السلام عليكم اخي الكريم يمكنك القيام بذلك عن طريق التنسيق الشرطي ولست بحاجة الى كود

اين نضع الكود ...مثلا عند الفتح او قبل التحديث....ارجو التوضيح للفائدة

لم تجيب بعد هل ضبط معك الكود ام لا

جميل جدااااا عمل يستحق التقدير :: خالص تحياتي

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

استخدم المعادلة التالية وانزل بيها اتوفيل فى شيت 2 خلية d3 وابقى ارفع ملف علشان الكل يقدر يساعدك =IF(OR(Sheet1!D1="كلمة ما",Sheet1!L1="كلمة ما"),Sheet1!J1,"")

اهلا بك اخى الكريم فى المنتدى عليك برفع ملف وشرح عليه بالتفصيل ما تريده

انا في المبايل ولم اجرب الكود جرب هذا If Me.Text11 > 0 Then [Text11].BackColor = vbRed elseif Me.Text11 <0 Then [Text11].BackColor = vbGreen elseIf Me.Text11 =0Then  [Text11].BackColor = vbWhite End if

تم عمل المطلوب ولكن إذا لم يشتغل الماكرو على أوفيس 2003 اذهب لمحرر الأكواد وقم بإدراج موديول وقم بلصق هذين الكودين الكود الأول لطباعة كل الاستمارات الكود الثاني لطباعة مدى من الاستمارات Sub Print_All() ActiveSheet.Unprotect Range("M3").Value = 1 For I = [M3] To [N3] Step 4 If I >= [M3] And I <= [N3] Then [k1] = I ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End If Next [k1] = [N3] Range("k1").Value = 1 ActiveSheet.Protect End Sub Sub Print_FROM_TO() ActiveSheet.Unprotect Range("k1").Value = Range("M3").Value For I = [M7] To [N7] Step 4 If I >= [M7] And I <= [N7] Then [k1] = I ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End If Next ActiveSheet.Protect End Sub تكت كتابة الاستمارات للصف الثالث الاعدادى.xls

بعد اذن استاذى سليم هناك اربعة طرق داخل الملف لهذا الغرض كتابة ارقام التليفون بالصفر من اليسار.xlsx

السلام عليكم عندنا جدول من صفوف كثيرة بحيث لا تتسع لها صفحة واحدة كيف نقوم بطباعة كل عدد محدد من الصفوف (انت تختاره) مع جمع الارقام في كل ورقة طباعة في اسفلها و تكرار رأس الجدول في كل ورقة طباعة و اذا كانت قسمة عدد الصفوف على العدد الذي اخترته لا تساوي عدداً صحيحاً كيف يتصرف الاكسل كل ذلك في هذا الملف Smart_Printing.xlsm

حلو واعتقد الجزأ الثاني راح يحل مشكلة عدم حذف بانات جدول بسبب العلاقات المرتبطة اثناء ترتيب حذف الجداول dbs.execute ("delete * from tbl_2") dbs.execute ("delete * from tbl_3") dbs.execute ("delete * from tbl_4") شكراً لك استاذنا

هلا والله بأخوي كاسر if obj.name <>"tbl_2" or obj.name <>"tbl_3" or obj.name <>"tbl_4" then بينما ، وعلشان يكون المثال اعم ، اذا اردنا حذف بيانات مجموعة معينة من الجداول فقط ، فيمكننا عمل: if obj.name ="tbl_2" or obj.name ="tbl_3" or obj.name "tbl_4" then او طبعا dbs.execute ("delete * from tbl_2") dbs.execute ("delete * from tbl_3") dbs.execute ("delete * from tbl_4") . جعفر جعفر

السلام عليكم فقط ملاحظة عن الامر CurrentDb.Execute: 1. هناك حالات لا يمكن للاكسس استخدامه ، 2. ميزة الامر انه يقوم بالعمل بدون رسائل تحذيرية ، ولكن اذا لم يستطع اكسس ان ينفذ الامر ، فلن تعرف السبب ، فهو لا يعطي رسالة الخطأ ، لذا ، يمكنك استعمال: docmd.runsql ("Delete * From Tbl_reg") جعفر

ماشاء الله نتيجة كويسة هحاول اشوف الاكواد وطريقة عملها فيما بعد تقبل تحياتى

وعليكم السلام من المعروف ان اكسس عنده مشكلة في تصدير التقرير الى اكسل بالاحتفاظ بالتنسيق ولكن بحيلة بسيطة تستطيع ارسال Header الى الاكسل مع تقريرك ، استعمل حقل النص ، واستعمل هذا الكود لإضافة بقية الكلمات اليه: Private Sub ReportHeader_Format(Cancel As Integer, FormatCount As Integer) Me.Text77 = "List Of New Monthly subscription " & vbCrLf & _ "( K4 ) " & Format(Date, "mmmm\.yyyy") End Sub جعفر

فقط لا تنسونا من صالح دعائكم

هذا هو المرفق DoCmd.OutputTo acOutputQuery, "q", acFormatXLS, CurrentProject.Path & "\mared.xls", True q هو اسم الاستعلام الخاص بالجدول التى تريد تحويله الى اكسل mared_export.rar

السلام عليكم أخي الفاضل لقد صممت لك برنامج بحسب ما طلبت فعند انتهاء العقد تصبح الخانة حمراء واضفت عمود ليخبرك كم مازال عن انتهاء العقد مع ملاحظة أن مدة العقد لابد أن تكون باليوم وتاريخ انتهاء العقد يحسب تلقائيا بعد كتابة بداية العقد وممدة العقد إعذرني أخي أن كان هناك تقصير فأنا مبتدئ العقود.rar

تم دمج الموضوعين والتعديل على الملف المرفق حسب الطلب DB1.rar

يلا شباب بدي ردود سأضع بين أيديكم أكثر من 3000 برنامج بس بدي تشجيعكم BackUpWithCompact2k.zip