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

يا ابو ياسين ترجم كلامك في جدول اكسل مثل ما طلبت منك لوسمحت ، لأني والله ما اعرف حقول طلبك. بغض النظر من وين والى اين ، اكتبهم في جدول ومنها سنحاول مساعدتك ، على رأسنا ان شاء الله جعفر

السلام عليكم اخي ابو ياسين ، رجاء اعمل تعديل على المرفق ، ويجب ان يكون جدول الموردين فيه جعفر

Public Function Parse_to_Rich_Text(TextIn As String) As String Dim var() As String Dim delim As String Dim i As Integer Dim T As String 'Exit when No value If Len(TextIn & "") = 0 Then Parse_to_Rich_Text = "" Exit Function End If 'get the delimiter separator For i = 1 To Len(TextIn) If Not IsNumeric(Mid(TextIn, i, 1)) Then delim = Mid(TextIn, i, 1) Exit For End If Next i 'split the text to two values var = Split(TextIn, delim) T = "<div " 'Start, Make HTML code 'Left side T = T & "<font" 'font info, First Line T = T & " size=4" 'size T = T & ">" 'close T = T & "</font>" 'font info, Last Line T = T & " <b>" 'Bold, begin T = T & var(0) & delim 'Text T = T & "</b>" 'Bold, Close 'Right side T = T & "<font" T = T & " size=2" T = T & " color=red" T = T & ">" T = T & var(1) T = T & "</font>" T = T & "</div>" 'Close, Make HTML code 'Debug.Print T Parse_to_Rich_Text = T End Function اوامر HTML التي يمكننا استعمالها في حقل Rich Text في الاكسس: https://support.office.com/en-us/article/Insert-or-add-a-rich-text-field-9f86237d-dbbc-4a85-b12c-9d8dca824630?CorrelationId=e5ac3d8a-72c2-4ac2-8f74-c70704f01a2f&ui=en-US&rs=en-US&ad=US&ocmsassetID=HA010014097 وبرمجة هذه الاوامر ممكن ان نبحث عنها هنا ، لكي نعمل الجملة المطلوبة https://www.w3schools.com/TAgs/default.asp جعفر 878.RichText.accdb.zip

وعليكم السلام ودّي تسأل أسئله سهله علشان اقدر ارد عليك انزل البرنامج من المرفق ، وما عليك من كائنات النموذج . ادخل صفحة الانترنت اللي فيها الاذاعات ، مثل https://www.internet-radio.com/stations/80s/ ثم ادخل هذا العنوان في حقل عنوان الصفحة في النموذج هكذا: . واختار القناة اللي تعجبك بس للعلم ، مب كل القنوات راح تفتح ، لأن منها اللي ما يقبل يشتغل على متصفح الماكروسوف اكسبلورر جعفر

انا ما انزلت مرفق اخي كاسر ، فما اعرف شو عمل وبما انك لم تظهر لنا رسالة الخطأ ، فكان لازم اجرب النموذج الذي استوردته في قاعدة البيانات الجديدة ، واذا بي القى الخطأ ، والذي يقول بأنه لم يجد الجدول Accounts !! رجعت الى الكائنات ، واذا بالكثير منها لم يتم استيراده (عندما قمت بإستيراد الكائنات من زر الاسترداد ، كان الاكسس ينغلق عندي ، فاضطررت الى استيرادهم يدويا) ، ثم اضفت لك المكتبات الناقصة في الكود ، حسب القاعدة القديمة ، ثم عملت لك العلاقات حسب القاعدة القديمة والآن اتغدى ، كإستراحة المحارب جعفر

وعليكم السلام هذه 6 طرق ، برسائل وبدون ، وانا اخترت لك آخر واحدة منها ، وهي تعطيك شريط في اسفل شاشة الاكسس: . Option Compare Database Private Sub أمر10_Click() On Error GoTo Err_أمر10_Click 'Dim stDocName As String 'stDocName = "q1" 'DoCmd.OpenQuery stDocName, acNormal, acEdit '1 العمل بصمت وبدون اشعارات ' CurrentDb.Execute ("q1") '2 العمل بصمت وبدون اشعارات ' DoCmd.SetWarnings False ' DoCmd.OpenQuery "q1" ' DoCmd.SetWarnings True '3 العمل بصمت وبدون اشعارات ، ولكن بوجود ساعة ترابية تشير الى وجود عمل ' DoCmd.Hourglass True ' DoCmd.OpenQuery "q1" ' DoCmd.Hourglass False '4 عمل اشعار ثابت لمدة 3 ثوان في اسفل الشاشة ' Application.SetOption "Show Status Bar", True ' Application.Echo True ' Application.Echo False, "الاستعلام يقوم بالتحديث" ' ' DoCmd.SetWarnings False ' DoCmd.OpenQuery "q1" ' DoCmd.SetWarnings True ' ' PauseTime = 3: Start = Timer ' Do While Timer < Start + PauseTime ' DoEvents ' Loop ' ' Application.SetOption "Show Status Bar", False ' Application.Echo True '5 عمل اشعار متغير لمدة 3 ثوان في اسفل الشاشة ' Application.SetOption "Show Status Bar", True ' SysCmd acSysCmdSetStatus, "الاستعلام يقوم بالتحديث" ' DoCmd.SetWarnings False ' DoCmd.OpenQuery "q1" ' DoCmd.SetWarnings True ' ' PauseTime = 3: Start = Timer ' Do While Timer < Start + PauseTime ' DoEvents ' A = A + 1 ' If A / 50 = Int(A / 50) Then B = B & " . " ' SysCmd acSysCmdSetStatus, B & "الاستعلام يقوم بالتحديث" ' Loop ' Application.SetOption "Show Status Bar", False ' SysCmd acSysCmdClearStatus '6 عمل اشعار متغير لمدة 3 ثوان في اسفل الشاشة Application.SetOption "Show Status Bar", True SysCmd acSysCmdInitMeter, "الاستعلام يقوم بالتحديث", 5000 DoCmd.SetWarnings False DoCmd.OpenQuery "q1" DoCmd.SetWarnings True PauseTime = 3: Start = Timer Do While Timer < Start + PauseTime DoEvents A = A + 1 SysCmd acSysCmdUpdateMeter, A Loop Application.SetOption "Show Status Bar", False SysCmd acSysCmdClearStatus Exit_أمر10_Click: Exit Sub Err_أمر10_Click: MsgBox Err.Description Resume Exit_أمر10_Click End Sub . وهذا الرابط فيه البرنامج المرفق ، يعني خذ منه الكود وخليه في برنامجك : http://www.access-programmers.co.uk/forums/attachment.php?attachmentid=32438&stc=1&d=1275923825 . . والنتيجة Notification بطريقة البرامج المحترفة ، فوق ساعة الكمبيوتر . جعفر 876.msg styles.mdb.zip BalloonToolTipSample.mdb.zip

السلام عليكم ورحمة الله حل آخر بالفكرة نفسها (معادلات صفيف)... لكن بمعادلات صفيف في عمود "رقم القيد" وبمعادلات بحث عادية في الأعمدة الأخرى... بن علية حاجي استدعاء بيانات حسب الفصل.rar

السلام عليكم عملت استعلام rased وحقل rased يطرح الدائن من المدين المشكلة بعدها اريد ان يكون بالمعادلة التالية r1+maden-daaen لتكون النتيجة الرصيد التراكمي ارفق المثال 2018_محاولة 1.rar

نعم هو هذا ما اقصده

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

الظاهر اني بشوف ردك بكرة الصباح ان شاء الله

1. جزء BE او الخلفية (جزء الجداول) يكون ملف مشاركة في مجلد على حاسبة ويكون لجميع المستخدمين صلاحية الإدخال/التغيير/الحذف في هذا المجلد ، معظم الناس عندهم حاسبة عادية يستخدموها لمجلد المشاركة ، والحاسبه فيها وندوز 7 او 10 او ... ، ولكن الافضل والاكثر احترافا ، ان يكون هناك جهاز خاص اسمه سيرفر او خادم يقوم بهذه المهمة ، وهذا الجهاز له مواصفات جدا عالية ، وانت تختار اللي يناسبك ، ونظام التشغيل اسمه وندوز سيرفر ، وفيه أمان وحماية جدا قويه ، وتستطيع من اعداداته السيطرة على كل صغيرة وكبيرة فيه ، وخصوصا صلاحيات المستخدمين ، وحسب حاجتك ، تستطيع ان تضع فيه العدد اللي تريده من الهاردسكات ، وحتى هذه الهاردسكات غير اللي في الكمبيوترات العادية ، ولا يعمل كل واحد بنفسه ، وانما يعملون كمجموعة تسمى Raid ، وهناك Raid 0 10 5 50 6 ، بحيث اذا واحد فيهم اخترب ، يظل النظام شغّال ولكن بكفاءة اقل ، الى ان يتم تغيير الهارد الخربان ، وتقدر انك تحط فيه العدد اللي تريده من الهاردسكات (طبعا لازم تعرف شو حاجتك مسبقا ، وعلى اساسها تشتري السيرفر اللي فيه مكان لإحتياجاتك المستقبلية) ، وبعدين تضيف زيادة ، يعني ، اذا في كمبيوترك الخاص سعة الهاردسك 500GB وامتلئ فماذا تعمل؟ ، تضطر الى استبداله بواحد جديد ذو سعة اكبر ، او تضيف واحد جديد وتغير كود برنامجك ليتماشى مع الوضع الجديد ، بينما في السيرفر ، تعال واضف في الـ Raid وبدون اي تغيير (طبعا في تغيير في اعدادت Raid ولكن ليس في البرنامج) كما ان سرعة الهاردسكات في السيرفر اسرع من الهاردسك ، وبالاضافة الى هذه السرعة ، فالـ Raid يحفظ الملف بتجزئته على جميع الهاردسكات ، فيصبح جدا سريع في الحفظ وفي قراءة الملف. وطبعا هناك العديد من الميزات الاخرى ، مثل عدد CPU وسرعتها ، ونوعيات تستطيع ان تضيف لها هاردسكات او CPU بدون المساس ببرنامجك 2. جهاز الاسكانر يحفظ صور السكانر في مجلد معين ، ولما تضع المستندات على السكانر لتصويرها ، تستطيع التصوير عن طريق زر على السكانر او الكمبيوتر لحفظها في هذا المجلد ن ثم تنقل هذه المستندات يدويا بعد التدقيق عليها ، تنقلها الى المجلد التابع لبرنامج قاعدة بياناتك (طبعا هذا يعتمد على طريقة عمل برنامجك وكيف سيقرأ هذه الصور ، وتستطيع حفظ هذه الصور في ملفات منفردة بصيغة jpg مثلا او حفظها جميعا في ملف واحد بصيغة PDF ، ولكل ميزته وعيوبه ، والاهم هو الطريقة التي يريد المستخد تصفحها) ، وتستطيع من برنامجنا التحكم في جهاز السكانر وادخال الصور في مجلد معين حسب ID الموضوع. هذا كله ، طبعا بإختصار ، وتحتاج الى متخصصين لعمل كل هذه الاعدادات بالطريقة والبرمجة الصحيحة ، وفي نهاية الامر ، البرنامج يقوم بربط جميع هذه الاشياء ، وبدون تدخل المستخدم. جعفر

رقم السند مجرد ملاحظة ، واذا ما جعلت هذا الحقل من نفس النوع (يا رقم او نص) في جميع الجداول ، فما تقدر تربط الجدولين بعلاقة هذا الحقل ، فقط للعلم ، واللي اسهل تعالجه الآن. اما موضوعنا الاساسي: انت الآن غيّرت المعطيات ، ففي مشاركاتك السابقة كنت تتكلم عن 3 حقول يجب التأكد انها غير موجودة في الجدول حركات . اما الآن فتقول: . وحتى في قولك الجديد ، حقل supplier غير موجود في الجدول حركات . =================================================================== بعد ان اخبرتك البيانات اعلاه ، رجاء لما تكتب رد: 1. كتابة جدول وفيه الحقول اللي تريدنا نعمل مقارنه بينها ، كالتالي: اسم كل حقل في جدول سند_صرف ، ويقابله الحقل في جدول حركات . 2. تأكد من وجود الحقول في الجدول الذي تتكلم عنه. جعفر

شكرا لك على المشاركة

السلام عليكم اخوي ابو زاهر اعطني دقائق انظر في سؤالك ان شاء الله جعفر

ابو ياسين يجب تعديل نوع حقل رقم_السند ، حتى يكون نفسه في الجدولين ، يا رقم او نص. . انت كلامك عن "عالم النسيج" وهو في حقل اسم_المورد في جدول سند_صرف ، طيب شو اسم الحقل اللي لازم نقارنه به في جدول حركات؟ . جعفر

هذا مثال وانت طبقه بطريقتك طباعه الفاتوره.rar

يعطيك العافية اخوي عبد اللطيف

معلومة نسيت اقولها msgbox me.text.column(0) هو نفسه msgbox me.text

ابشر اخوي جعفر وهذا المرفق كما طلبت ترحيل.rar

اولا ، ولسهولة قراءة الكود ، رجاء ادخاله كما في الموضوع هكذا: . ثانيا ، نعم هي نفس قيمة me.text.column(0) . وهي اهم شيء في اعدادات الحقل. جعفر

وعليكم السلام هذا العمود الذي به معلومات الحقل (يعني في الاستعلام اللي عملته للحقل ، العمود الاول) ، واذا حفظت الحقل ، فتكون هذه القيمة. جعفر

السلام عليكم ورحمة الله لم أنتبه لهذا الخلل، تم التعديل على الملف بإضافة عمود آخر لتحديد "أقرب تاريخ لانتهاء العقد بعد تاريخ اليوم (التاريخ الحالي)" وذلك لتبسيط معادلات العدّاد... أرجو أن تسلم الجرة هذه المرة... بن علية حاجي طلب عداد بقرب انتهاء عقد.rar

أخي شفان أكثر من رائع .. بارك الله فيك وجعله في ميزان حسناتك أنت ووالديك وكل من تحب

نعم لان كان هذا الحقل فارغ في الجدولين الجدول الصدقات و الجدول الزكات وتم العمل اللازم للتعديل.rar

الف الف مليون شكر استاذي العزيز شفان الله يبارك فيك ويسعدك ويكتب لك الأجر على ماتقدمه

اشوف الطلب زاد ، فإنشاء الله اخبركم في الموضوع نفسه جعفر

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

مشاركة مع اخي شفان عملت تعديل على الوحدة النمطية لتأخذ جميع انواع الفواصل Public Function ParseText(TextIn As String, X) As Variant On Error Resume Next Dim var As Variant Dim delim As String For i = 1 To Len(TextIn) If Not IsNumeric(Mid(TextIn, i, 1)) Then delim = Mid(TextIn, i, 1) Exit For End If Next i var = Split(TextIn, delim, -1) ParseText = var(X) End Function . وانا افضل لو نعمل كود الحقل في الوحدة النمطية مباشرة كذلك ، لأنك ستحصل على النتائج بضعف السرعة (اسرع مرتين) ، لأنك ستنادي الوحدة النمطية مرة لكل حقل جعفر

نعتذر اليك هذا SELECT Almotabareen.ID, Almotabareen.Name, Nz(DSum("[Almablagh2]","Tabroaat_Sadaqat","[Tabroaat_Sadaqat]![iD_Name]=" & [ID]),0) AS SUM_SEDEQAT, Nz(DSum("[Almablagh_Zakah1]","Tabroaat_Zakah","[Tabroaat_Zakah]![iD_Name]=" & [ID]),0) AS SUM_ZEKAT FROM Almotabareen GROUP BY Almotabareen.ID, Almotabareen.Name; الاستعلام.rar

السلام عليكم ورحمة الله وبركاته تم إضافة المعادلات اللازمة لحساب ما تبقى من أيام لغاية تاريخ تجديد العقد الموالي للتاريخ الحالي (والعداد التنازلي يبدأ انطلاقا من 90 يوم كما طلبت)... أرجو أن تفي الغرض المطلوب... بن علية حاجي طلب عداد بقرب انتهاء عقد.rar

تم العمل اللازم تم العمل هذا استعلام SELECT Almotabareen.ID, Almotabareen.Name, Sum(Tabroaat_Sadaqat.Almablagh2) AS SUM_SEDEQAT, Sum(Tabroaat_Zakah.Almablagh_Zakah1) AS SUM_ZEKAT FROM (Almotabareen INNER JOIN Tabroaat_Sadaqat ON Almotabareen.ID = Tabroaat_Sadaqat.iD_Name) INNER JOIN Tabroaat_Zakah ON Almotabareen.ID = Tabroaat_Zakah.iD_Name GROUP BY Almotabareen.ID, Almotabareen.Name; اليك المرفق العلاقات (1).rar

وعليكم السلام تفضل . جعفر 880.Accounts 2008.accdb.zip

بارك الله فيك استاذي الكريم ابو ياسين الله يعطيك العافيه الي الان اشوفه مظبوط حسب طلبي الف تحيه اليك واذا قابلتني مشكله بكلمك استاذي شكرا اليك

اتفضل هذا طلبك بالتمام والمال ادراج اسم العميل وؤقمه (3).rar

اخي هذا رابط المثال http://www.mediafire.com/file/2l6krojtbjgk42z/مثال.mdb

شكرا اخي ولكن المعلومة هذه غير متكاملة وغير دقيقة ، فلو تابعت المشاركات في الرابط الذي ارفقته انت ، سترى ان العضو Kamali_82 استعمل الكود ولم يعمل معه ، كما وانه لي مشاركة في نفس الموضوع واشرت فيه الى رابط موضوع آخر يحل المشكلة. وهذا رابط يناقش نفس الموضوع جعفر

اليك هذا استعلام لكي يعطيك الفارق بالسنوات SELECT TblMealomat.id, TblMealomat.Names, TblMealomat.BirthDate, DateDiff("yyyy",[BirthDate],Date()) AS oldYear FROM TblMealomat WHERE (((DateDiff("yyyy",[BirthDate],Date()))<18)); غير اسم الجدول واسماء الحقول الى اسماء الجدول والحقول عندك

في هذه الحالة لا يكون ربط بين النموذجين اتفضل كما طلبت العلاقات (1).rar

هذا شرح يوتيوب يمكن يفيدك

السلام عليكم ورحمة الله تم التعديل على تنسيقات الجدول (تأطير -تسطير-، ارتفاع الصفوف، تحجيم الصفحات، إعدادات الصفحة) وهي أمور مهمة جدا في ضبط طباعة الصفحات... وتم أيضا حذف كل "فواصل الصفحات" اليدوية المضافة... أرجو أن تفي الغرض المطلوب... ملاحظة: نوع الطابعة لها أيضا دور في ضبط طباعة الصفحات... ربما الضبط الذي قمت به لا يصلح مع الطابعة لديك... والله أعلم بن علية حاجي تصفية تلقائية.rar

من المفروض ان يكون اسم المتبرع الافتراضي في النموذج الزكاة و الصدكات بيكون يساوي اسم المتبرع في النموذج الاساسي اتفضل القي نظرتا اليه واذا تريد حسب كما تفكر انت راح اعمل لك العلاقات (1).rar

هل هذا ما تريده تم حماية النعادلات لعدم العبث يها عن طريق الخطأ استدعاء حسب الفصل Salim.rar

اخي طاهر الوليدي انا بعطيك مثال وانت طبقه على شغلك مثال.rar

ربما كان المطلوب salim2مرتبات-على.rar

أخي الفاضل اعتذر من حضرتك . لعدم معرفتي بذلك . وإنما أجبتك آنفاً على قدر معرفتي ، حباً في مد يد العون ولعل الإخوة الأفاضل بفيدونك بما تريد وهم كثر ولله الحمد

تم التطبيق على الملف المرفق ، وهو يعمل بصورة جيده وفقكم الله حركة2018.rar

يمكنك أخي الفاضل تحويل المعادلات إلى أكواد ، لكن لا أعتقد أن الملف سيكون أخف افتح محرر الأكواد وأدرج موديول ، واكتب الكود التالي : sub jard ( ) [g5].formula="=SUMIFS('حركة اليوميه'!G5:$H$10000,'حركة اليوميه'!E5:$F$10000,E5)" range("g5:g10000").filldown end sub لاحظ أخي الفاضل أن السطر الأول هو تعريف لمحتوى ( g5 ) مع تغيير شكل الفواصل في المعادلة والسطر الثاني لسحب المعادلة على النطاق المراد . ويمكنك تكرار هذا الكود قبل اغلاقه على بقية المعادلات التي تريد تحويلها إلى أكواد آمل أن تكون الصورة واضحة ، علماً بأنني لست ضليعاً في هذا الجانب ، وإنما رأيت المساهمة على قدر معرفتي المتواضعة فتقبل ما فيها من خلل .. وفقكم الله sub jard ( ) [g5].formula="=SUMIFS('حركة اليوميه'!G5:$H$10000,'حركة اليوميه'!E5:$F$10000,E5)" range("g5:g10000").filldown end sub

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