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

وعليكم السلام ورحمة الله وبركاته واهلا بك في منتداك منتدى اوفـــيســــــــــــــــــــــــــنا بسيطة ان شاء الله ... وشكرا لانك وضحت مكان المشكلة بالدقيق وسبب هذا يرجع ل عمل كروب وفرز في التقرير وما عندك حقل لكي يتم الفرز عليها لذلك عملنا 1- حقل جديد في الجدول تابل 2 باسم اي دي ونوعيته ترقيم تلقائي 2- و اضفنا ذلك الحقل الى استعلام اللي هو مصدر التقرير 3- وفي التقرير عملنا فرز حسب حقل اي دي كما مبين في الصورة سببه يرجع لاضافة صورة العدسة في خلفية النموذج القي نظرتا الى النموذج واسم الصورة ما عليك الا ان تحذف الصورة واتفضل اليك قاعدتك تم العمل على كلا من المشاكل تقبل تحياتي شفان ريكاني واعتذر من السيد @Gamal.Saad لا ارى مشاركته الا بعد اضافة ردي cheque.zip

::: يتم تحديث قيمة الفاتورة في الجدول tblheader بواسطة تشغيل استعلام تحديث او جملة Sql (في حدث بعد تحديث الكمية)في النموذج الفرعي . ::: وهذا مثال عن الاستعلام ... اما جملة الاستعلام SQL فموجودة في مثال الاخ @ابو جودى data2_UP.rar

مشاركة مع اخى الحبيب استاذ @محمدنجار جربى المرفق ده اختنا الكريمة تم عمل الاتى 1- عند تغيير قيمة الكمية او السعر المفرد يتم اضافة السعر الكلى او تحديثه فى الجدول Products وذاك عن طربق عمل كود فرعى فى نموذج فرعي Products وهو كالاتى Private Sub calc_TotalPrice() Dim strUpSQL strUpSQL = "UPDATE Products SET Products.TotalPrice = Nz([Qty]*[Price]) WHERE (((Products.HeaderId)='" & [HeaderId] & "'));" DoCmd.SetWarnings False Me.Refresh DoCmd.RunSQL strUpSQL Me.Refresh DoCmd.SetWarnings True Form_Fatora.Cost.Requery End Sub ويتم منادته على كل من Price - Qty وذلك بهذا السطر من الكود فى حدث عند التحديث calc_TotalPrice وهذا الكود ينفذ الاستعلام الموجود فى الكود الفرعى وهو اضافة او تحديث السعر الكلى وذلك بعد اضافة او تعديل اى من الكمية او السعر المفرد 2- تم تعديل مصدر بيانات مربع النص TotalPrice والموجود فى نموذج فرعي Products لانه اصبح يأخذ القيم مباشرة من الجدول وبكده الموضوع اصبح SMART 3-وبناء على ما سبق كله اصبحنا نحسب كلفة الفاتورة بهذا الكود =DSum("[TotalPrice]";"[Products]";"HeaderId ='" & [HeaderId] & "'") تم عمل المرفق بكلا الامتدادين accdb ,mdb حتى تعم الفائدة ان شاء الله data1_ UP2.rar

السلام عليكم ورحمة الله تعالى وبركاته اقدم هذا الموضوع وهذه المشاركة بناء على سؤال فى هذا الموضوع اتأخرت فى الرد على الرغم من انى كان ممكن ارد فى اقل من عشر دقائق الا اننى احببت عمل مصال شامل وكاف وواف 1- الفرز تصاعديا او تنازليا لكل حقل على حده 2- تصفية السجلات بناء على قيمة مربع تحرير وسرد 3- امكانية التصفية المتعدده بناء على اكثر من قيمة من امثر من مربع تحرير وسرد 4- الغاء تصفية السجلات وعرضها جميعا والان اترككم مع المرفق مثال شامل على طريقة الفرزتصاعديا وتنازليا والتصفيه .rar

ما استطيع تقديمه لحضرتك هو هذا الرابط

السلام عليكم جرب المرفق التالى وابدي ملاحظاتك listbox_2.rar

متفق عليه

::: أعتقد مصمم البرنامج جعل للحقول نوع خط يظهر صغيرا لذا قام بتكبيرة .... أما في نظام جهازك فهو يفتقد لاسم هذا الخط ؟ لذا فهو ياخذ الخط الافتراضي Arial او Times New Roman ::: لذا عليك معرفة نوع الخط على الجهاز الاخر ... والله يعلم ... كما قال الاستاذ @Shivan Rekanyتحياتي .

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

اخى 3mda.v8 ايضاً حضرتك لم توضح - هل تريد اضافه هذا الشرط على الشرط القديم ( عدم وجود رقم موجب ) - ام فقط تريد هذا الشرط ؟؟؟ -- هذه واحده وهل تريد هذا الشرط في الصفوف المدخل بها بيانات ام كل الصفوف - تقبل مرورى وتحياتى

cheque_up1.rar

يمكن ذلك طبعاً ولكن من اى عمود تريد البحث -- ما قبل عمود الاجمالى -- ام -- عمود الاجمالى وما بعده - ام كل الاعمده ؟؟ فالرقم 81355 موجود بالعمود D والعمود aQ وقد زكرت حضرتك ان التكرار مستبعد ؟؟ - لحين التوضيح - الذي طالما ما اكدنا عليه لكي يكون الحل من مرة واحدة - وتوفير الوقت والجهد على من يريد تقديم المساعدة -- بافتراض انك تريد البحث بدءاً من العمود D وحتى العمود AN ضع المعادلة التالية بالخليه B9 ثم اسحبها لاسفل -- =IF(A9>0,INDEX(اليومية!$D$1:$AN$1,,MIN(IF(اليومية!D1:AN25=الاستاذ!A9,COLUMN($D:$AN)-3))),"") والمعادلة التالية بالخليه D9 ثم اسحبها لاسفل =IF(C9>0,INDEX(اليومية!$D$1:$AN$1,,MIN(IF(اليومية!D1:AN25=C9,COLUMN($D:$AN)-3))),"") وكلاهما معادلات صفيف بعد كتابتها يتم الضغط على CTRL + SHIFT + ENTER

السلام عليكم بالنسبه للدالة المعرفة UDF )) -- vlookupalsaqr)) قام الاستاذ عماد بتناولها على الرابط التالى .. اما لو اردت تنفيذ المطلوب بدون اكواد - معادلة عادية -- قم بادراج نموزج مبسط مشروح فيه المطلوب تقبل مرورى وتحياتى

اولا مرحبا بك ولا داعي للأسف .. فنحن نريد كل الاراء لنأخذ بها الفكرة جميلة ولكن هل ممكن ان تطبقاها على على خمس فئات كل فئة لها موادها ودرجاتها الخاصة حسب حقل [code-kind-edu] كما في هذا الجدول ثانيا المطلوب وضع معادلات iif لكل مادة في وحدة نمطية خاصة بها تستمد منها نتائجها

شكرا لكم اخوتي جعله الله في ميزان حسناتكم وزادكم نورا ... بقي ناتج الفاتورة كيف يتم تنسيبه الى قيمة الحقل cost في الجدول tblheader ..... عفوا اخي محمد نجار كيف اقوم بتقييم الموضوع لطفا .....

الشكر لله سبحانه وتعالى الذى هدانا وما كنا لنهتدى لولا ان هدانا الله عزوجل ثم لكل اساتذتنا الكرام الذين تعلم منهم وننهل من علومهم جزاهم الله عنا كل الخير اعتذر لو كنت غيرت معالم قاعدة بيانات حضرتك وعلى الرغم من انى كنت ناوى اعمل مثال منفصل مطلقا الا انى رجعت فى كلامى وقلت يمكن حضرتك تحب تنقل الاكواد ففضلت التعديل انا على شكل القاعدة نصيحة حاول بعد ذلك - تسمية الجداول بالانجليزية وعدم تترك اى مسافات بين الكلمات ولو ارد تجعل كل اول حرف كبير والباقى حروف صغيره او تعمل بين الكلمات العلامة _ مثل TblEmployees , Tbl_Employees - تسمية الحقول كذلك بالانجليزية وعدم تترك اى مسافات بين الكلمات ولو ارد تجعل كل اول حرف كبير والباقى حروف صغيره او تعمل بين الكلمات العلامة _ مثل Judymohammed , Judy_mohammed حتى يهل عليك متابعة عملية التكويد اطيب الامانى وكل عام وانتم بخي

القي نظرتا الى هذا والكود Private Sub Frame9_AfterUpdate() If Frame9 = 1 Then Me.Child94.SourceObject = "معلومات خاصة" ElseIf Frame9 = 2 Then Me.Child94.SourceObject = "عنوان السكن" ElseIf Frame9 = 3 Then Me.Child94.SourceObject = "مركزه" ElseIf Frame9 = 4 Then Me.Child94.SourceObject = "مكتب" ElseIf Frame9 = 5 Then Me.Child94.SourceObject = "اسلحة" ElseIf Frame9 = 6 Then Me.Child94.SourceObject = "الاسم والشهرة" ElseIf Frame9 = 7 Then Me.Child94.SourceObject = "تعيين وترقية وسجل صحي" ElseIf Frame9 = 8 Then Me.Child94.SourceObject = "وسيلة النقل" ElseIf Frame9 = 9 Then Me.Child94.SourceObject = "اوامر الفصل" End If Me.Child94.Requery End Sub قاعدة بيانات دائرة بطاقة الهوية11.rar

اتفضل اليك رابطين بها كما تريد ان شاء الله

نسئل الله ان يكون في عونك وان تكون في طاعته ويعينك في عملك وحياتك التوفيق لك اخي الكريم . وشكراً لهتمامك بالموضوع

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

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

::: الى تكست بوكس مخفي في ذيل الفرعي .. لا تنسي التقييم بالضغط على راس السهم رجاءاً

اسف على التدخل لكن هناك استفسار بسيط الدرجات الخاصه بكل ماده هل يمكن عمل جدول خاص بها والوحده النمطيه تأخد التقديرات من الجدول يعنى العربي مثلا من 100 يكون التقديرات تحسب عليها ولو غيرناها فى الجدول لا نحتاج لتغييرها فى داخل الوحده النمطيه مثلا لو العربي 100 وغيرناها الى 50 التقدير يحسب على النسبه المئوية للرقم يعنى اقل من 50 % دون المستوى رجوا ان اكون قد وصلت استفسارى بطريقه جيده

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

تفضل اخي العزيز ارجو ان يكون فيه طلبك aaa.rar

وفقنا الله جميعا لكل خير الرسالة تعني أن المتغير passDatabase لم يتم تعريفه فكيف يتم حساب عدد حروفه؟! يجب ان يتم الإعلان عن المتغير أولا ثم وضع قيمة له ثم استخدامه بعد ذلك بالتوفيق للجميع

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

وفقك الله وهداك وإيانا للصواب يتم معرفة اسم الملف الناقص ومساره بتحديد المرجع المطلوب (المكتوب بجواره missing) سيظهر بياناته في اسفل النافذة كما قلت سابقا ولكن جرب أخي الكريم الحل الأسهل وهو حذف علامة الصح بجوار المرجع الثالث missing: Microsoft office 12 authorization control وإذا استمر عمل البرنامج فالحمد لله وإذا تعطل فيه شيء فيجب للأسف تحميل ملف dll الخاص بالمرجع من الانترنت

السلام عليكم ورحمة الله اكتب هذه المعادلة . بافتراض ان المبلغ فى الخلية " A1 " =INT(A1/5)*5

اتفضل هذا الكود بيعطيك سريال نمبر لمزربورد Const Arr = 1 Public Function GetPCInfo() 'You need to have Microsoft WMI Scripting v2.1 library Registered in your references DoCmd.Hourglass True Dim SWbemSet(Arr) As SWbemObjectSet Dim SWbemObj As SWbemObject Dim varObjectToId(Arr) As String Dim varSerial(Arr) As String Dim i, j As Integer Dim fld As String On Error Resume Next varObjectToId(1) = "Win32_BaseBoard,SerialNumber" For i = 0 To Arr Set SWbemSet(i) = GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf(Split(varObjectToId(i), ",")(0)) varSerial(i) = "" For Each SWbemObj In SWbemSet(i) varSerial(i) = SWbemObj.Properties_(Split(varObjectToId(i), ",")(1)) 'Property value varSerial(i) = Trim(varSerial(i)) If Len(varSerial(i)) < 1 Then varSerial(i) = "Unknown value" Next fld = "Text" & i Forms("form2")(fld) = varSerial(i) Next DoCmd.Hourglass False End Function خذت من موقع اجنبي وغدا ان شاء الله راح ارفع لك نموذج على ذلك تحياتي

Dim WMI As Object Dim wmiCollection As Object Dim wmiMember As Object Set WMI = GetObject("winmgmts:\\") Set wmiCollection = WMI.InstancesOf("Win32_PhysicalMedia") For Each wmiMember In wmiCollection MsgBox Trim(wmiMember.SerialNumber) Exit For Next Set wmiMember = Nothing Set wmiCollection = Nothing Set WMI = Nothing جرب ان تغيره

كن في الحياة كشآرب القهوة !.. يستمتع بهــا رغم سوآدها ومرآرتهآ وتذكر قول الخشب للمسمار: لقد كسرتني وألمتني فرد المسمار قائلاً : لو كنت رأيت الدق فوق رآسي لكنت عذرتني فليعذر النآس بعضهم البعض فكل شخص لآيعرف ظروف الآخر إذآ إستمريت بـ هذه الحسآسية الزآئدة . . والحزن علي كل تصرف , فـ إنك ستحوّل حيآتك إلي جحيم ! تذكَر .. أن النآس تختلف في تفكيرهآ وطبآعهآ فما ترآه أنت جآرحاً .... قد يرآه غيرك أمراً تآفهاً هنآك موآقف مؤلمة قد تتعرض لهآ ولكن , إلي متي تجتر الموقف وتقف عليه ! إن أصآبك الألم ! عشه في لحظته .. ثم تجآوزه وكآفح من أجل تجاهله أشغل نفسك .. تنآسآه حتي يغيب عن ذآكرتك ! إحفظ لسانك أيها الإنسان لا يلدغـنـّك .. إنه ثعبان فكم في المقابرمن قتيل لسانه كانت تهاب لقاءه الشجعان وإذا حار أمرك في معنيين ولم تدرِ أين الخطا والصواب فخالف هواك فإن الهوى يقود النفوس إلى ما يعاب ولا تحاسب النآس عندما يخطئوآ ولا تذهب لغيرهم لتشكوا منهم .. لسانك لا تذكر به عورة امرئ فكلك عـورات وللــناس ألـســــــن وعينك إن أبدت إليك من الناس مساوءً فقل يا عيني للنـاس كذلك أعين واقضى حاجة المحتاج حتى لو كان اليك مسيئاً فأفضل الناس مابين الورى رجل تقضى على يده للناس حاجات لا تمنعن يد المعروف عن أحد ما دمت مقتدرا فالسعد تارات واشكر فضائل صنع الله إذ جعلت إليك لا لك عند الناس حاجات مهما إختفت من حياتك أمور ظننت أنها سبب سعادتك ! تأكد أن اللـه صرفها عنك قبل ان تكون سبباً في تعاستك عليك بتقوي الله ان كنت غافلاً أنظر لحالك كيف تعصاه ويأتيك بالارزاق من حيث لا تدري فكيف تخاف الفقر والله رازقاً فقد رزق الطير و الحوت في البحر و من ظن ان الرزق يأتي بقوة ما اكل العصفور شيئاً مع النسر تزول عن الدنيا فانك لا تدري اذا جنّ عليك الليل هل تعيش الي الفجر فكم من صحيح مات من غير علة و كم من سقيم عاش حيناً من الدهر وكم من فتي امسي و اصبح ضاحكاً وأكفانه في الغيب تنسج وهو لا يدري فمن عاش الفاً و الفيـــــــــــــن فلا بد من يوم يسير الـــــي القبـــــــــــر صافح وسامح .. ودع الخلق للخالق .. {فأنت****** .. وهم****** ..ونحن****** .. كلنا راحلوون إفعل الخير مهما استصغرته .. فلآ تدري أي حسنة تدخلك الجنة