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

مجموعة ايقونات اهداء لكم نسخ ولصق ايقونات.accdb

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

الكثير يتساءل عن كيفية حساب فاتورة الكهرباء مع شطورها مثلاُ دون 70 كيلو واط السعر 5 جنيه من 71 كيلو واط الى 80 السعر 8 جنيه من 81 كيلو واط الى 200 السعر 15 جنيه من 201 و ما فوق 17 جنيه كيف نحسب الفاتورة اذا كان الاستهلاك 550 كيلو واط مثلاً هذا الملف يجيب عن هذا السؤال الكود Function My_Facture(Myfact As Long, n1 As Integer, n2 As Integer, n3 As Integer, n4 As Integer) As Long '''''''''''''''''''''''''''''''''''''''''' Select Case Myfact Case Is <= 70 How_Many = Myfact * n1 Case Is <= 80 How_Many = (70 * n1) + (Myfact - 70) * n2 Case Is <= 200 How_Many = (70 * n1) + (10 * n2) + (Myfact - 80) * n3 Case Is > 200 How_Many = (70 * n1) + (10 * n2) + (120 * n3) + (Myfact - 200) * n4 End Select My_Facture = How_Many '''''''''''''''''''''''''''''''''''''''' End Function الملف مرفق Facture_Electrique.xlsm

شكرا بارك الله فيك

نعم اليك هذا الرابط https://access-programmers.co.uk/forums/showthread.php?t=134027 بها هذه القاعدة وفيها ما تريد ACC2000 Concept App 08-17.mdb

اتفضل اليك هذه الوحدة النمطية قم بعمل نسخ هذا الى وحدة نمطية Option Compare Database Option Explicit Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long Private Declare Function UpdateLayeredWindow Lib "user32" (ByVal hwnd As Long, ByVal hdcDst As Long, pptDst As Any, psize As Any, ByVal hdcSrc As Long, pptSrc As Any, crKey As Long, ByVal pblend As Long, ByVal dwFlags As Long) As Long Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Private Const GWL_EXSTYLE = (-20) Private Const LWA_COLORKEY = &H1 Private Const LWA_ALPHA = &H2 Private Const ULW_COLORKEY = &H1 Private Const ULW_ALPHA = &H2 Private Const ULW_OPAQUE = &H4 Private Const WS_EX_LAYERED = &H80000 Public Function isTransparent(ByVal hwnd As Long) As Boolean On Error Resume Next Dim Msg As Long Msg = GetWindowLong(hwnd, GWL_EXSTYLE) If (Msg And WS_EX_LAYERED) = WS_EX_LAYERED Then isTransparent = True Else isTransparent = False End If If Err Then isTransparent = False End If End Function Public Function MakeTransparent(ByVal hwnd As Long, Perc As Integer) As Long Dim Msg As Long On Error Resume Next If Perc < 0 Or Perc > 255 Then MakeTransparent = 1 Else Msg = GetWindowLong(hwnd, GWL_EXSTYLE) Msg = Msg Or WS_EX_LAYERED SetWindowLong hwnd, GWL_EXSTYLE, Msg SetLayeredWindowAttributes hwnd, 0, Perc, LWA_ALPHA MakeTransparent = 0 End If If Err Then MakeTransparent = 2 End If End Function Public Function MakeOpaque(ByVal hwnd As Long) As Long Dim Msg As Long On Error Resume Next Msg = GetWindowLong(hwnd, GWL_EXSTYLE) Msg = Msg And Not WS_EX_LAYERED SetWindowLong hwnd, GWL_EXSTYLE, Msg SetLayeredWindowAttributes hwnd, 0, 0, LWA_ALPHA MakeOpaque = 0 If Err Then MakeOpaque = 2 End If End Function وفي نموذج عند تحميل اكتب هذا Private Sub Form_Load() ' غير في الرقم Call MakeTransparent(Me.hwnd, 150) End Sub ولكي تتحكم بدرجة شفافية اكثر او اقل غير رقم 150 الى الاسفل او اعلى تحياتي

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

السلام عليكم ورحمة الله وبركاته أخيراً وبعد أن أزعجتكم بأسئلتى واستفساراتى انتهيت من تصميم استمارة 132 ع ح الخاصة بالمرتبات الحكومية المصرية خاصة أننى مجدت ان كثيرر من المنتديات يفتقر إلى مثل هذه الأعمال ، وأشهد أنكم لم تبخلوا على بالنصح والإرشاد وأخص بالذكر العمالقة أم عبد الله والأستاذ / جمال عبد السميع وغيرهم الكثيرين أرفق لكم الملف مفتوح بعد تصميمه بشكل بسيط وبدائى ، وأرحب بشدة أن يتدخل خبرائكم وأساتذتى بالتعديل عليها بما يرونه وأن يدلوا بدلوهم فيها حتى تخرج بأحسن صورة لائقة يفيد منها أعضاء هذا المنتدى العزيز على فكرة ، أنا عملت كل الأكواد المطلوبة ما عدا الدمغة مش عارف أحسبها كما كنت أتمنى فمرحباً لمن ليه الحل أيضاً . إستمارة 132 ع ح open.rar

من الملفات القديمة التي تمت مشاركتي لها والتي تطلب غالباً كيف نحمي الخلايا غير الفارغة بواسطة باسوورد (الباسورد في الملف / الخلية H3/ يمكن حفظة و مسحه عن عيون الفضوليين) مع حرية الغاء الجماية كما تشاء protect non empty data with Pass word.xlsm

بسم الله الرحمن الرحيم السلام عليكم الاساتذه الكرام برجاء التعديل على جدول الحصص تم تعديل ورقة عمل (جدول المعلمين ) بعد ما تبين انه يمكن اضافة اكثر من مادة للمعلم الواحد مثل هذه الصورة المرفقة بنفس الورقة بالملف المرفق ومرفق برنامج الجدول المدرسى للاستاذ الكبير عبدالله باقشير للاطلاع وسيتم تكرار اسم المدرس واسم المادة التى يقوم بتدريسها مثلا مصطفى1 مادة التدريس رياضيات مصطفى 2 مادة التدريس دين لانه يوجد اكثر من مدرس فى الابتدائى يقوم بتدريس اكثر من مادة وشكرا مقدما لكل من يتعاون معى

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

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

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

تم عم المطلوب بإضافة علامة + بعد كل معادلة من المعادلات السابقة Formula Merge.rar

البيانات دي متغيرة كل مرة ؟؟ ولو متغيرة بناء على ايه ؟

شوف هذا التعديل الاخير هذا بطي شوي مثال (2).accdb

شكر على الهديه استاذ عبداللطيف بارك الله فيك

بارك الله فيك اخ عبد اللطيف لو كان بايدي كنت عطيتك اكثر 10/10 دائما سباق للخير والمساعدة

أعدت تجربة الكود عندي ونجح الأمر. لذلك: 1- تأكد من عدم وجود مسافة في آخر نص خانة الاستبدال. تأكد أنه ينتهي بـ 2. 2- احرص أن تنسخ وتلصق كود خانة البحث كما هو. لا تكتبه بنفسك من جديد في الخانة. تبين لي أن النسخ من الصفحة يضيف حروفاً غير مرئية إلى الخانة في الوورد. لذا عدّلت ردي السابق.

اخي ابو زاهر اقبل مني هذة المشاركة المتواضعه لعل الاخوه الخبرا ء يطورها حسب رغبتك مثال.accdb

تسلم ايدك روعة ... هذا ما كنت ابحث عنه طويلاً .. جزاكم الله خيراً

شكرا على هدا العمل الجميل

تفضل تم عمل التعديل المطلوب خلاصة كشف غائب ومجاز شهريا.xlsm

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

تفضل اخى الكريم انا عملت على الملف الأول فإنك لم تفهمنى Book1.xlsx كما بالصورة

بنفس معادلتك ولكن سبقت المعادلة ب لاحظ المعادلة بنفسك iferror وستجد ان قمت بتثبيت ايضا هذا الجزء من المعادلة كما ترى شكله ورقة2!$A$1:$D$3 أى وضعه بين علامات الدولار كما تشاهد وهذا يتم بتحديد المدى المراد ثم الضغط على F4 من لوحة المفاتيح جزاك الله كل خير

أشكرك اخي علي ولكن كيف عملت ذلك ؟

بعد اذن استاذى سليم تفضل الملف Book1-1.xlsx

شكرا على الإهداء

هل هذا هو المقصود ... حسب المرفق 200003.pdf

أخي ahmed_rashed كذلك انا عندي نفس الإصدار ولكن لم يتم التحميل وتظهر رسالة بأن الملف معطوب وشكرا

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

لست خبيراً بالماكرو ولكن يمكن حل مشكلتك بالبحث والاستبدال. اضغط على CTRL+H وانسخ النص أدناه وألصقه في خانة البحث: ([:،؛])([! ]) ألصق في خانة الاستبدال ما يلي: \1 \2 لا تنس أن تختار "استخدام أحرف البدل" في خيارات البحث. بهذه الطريقة يبحث الوورد عن كل نقطتين/فاصلة/فاصلة منقوطة لا تتبعها مسافة، فيضيف مسافة بعدها.

'شرح الكود Sub معاينة_مع_الطباعة() 'الإعلان عن ماكرو باسم ( معاينة _ مع _ الطباعة ) لاحظ وجود شرطة بين كل كلمة وأخرى في الاسم لأنه ينبغي ألا يتخلل الاسم فراغ Range("f10:f132").AutoFilter Field:=1, Criteria1:="<>" ' هذا الكود خاص بالفلترة في العمود F ابتداءًا من الخلية F10:F132 بشرط ألا تكون الخلية فارغة فبذلك يتم ظهور الصفوف الغير فارغة ' فلذلك يظهر الجزء الأعلى والجزء الأسفل في الطباعة ActiveWindow.SelectedSheets.PrintPreview ' تنشيط المعاينة قبل الطباعة A = MsgBox("هل تود الطباعة بعد المعاينة؟", vbYesNo + vbQuestion, "طباعة") ' رسالة الطباعة وبها اختيار أمر Yes و No If A = vbYes Then With ActiveSheet .PrintOut End With ' إذا تم الاختيار Yes يقوم بالطباعة End If Range("A1").Activate ' تنشيط الخلية A1 Range("f8:f132").AutoFilter 'إلغاء الفلترة ابتداء من الخلية F8:F132 ' لاحظ الأمر إلعاء الفلترة بدء من خلية غير مخفية وانتهى أيضَا بخلية غير مخفية End Sub ' إنهاء الماكرو ' ملحوظة لنسخ الكود مع الشرح يجب اختيار ( اللغة العربية ) في الجهاز قبل نسخ الكود . وتم وضع العلامة ' بالضغط على 'حرف( ط) ' 'وأتنمنى أن أكون وُفِقْت في توصيل المعلومة 'بالنسبة للسؤال تكرار أعلى كل صفحة انظر الصورة المرفقة أما تكرار أسفل الصفحة فلا يوجد طريقة

اعتذر عن التأخر اخي محمد تفضل Dim rs As Object Set rs = Me.Recordset.Clone rs.FindFirst "[numx] = " & Str(Nz(Me![txtSearch], 0)) If rs.NoMatch Then MsgBox "لا يوجد سجل" txtSearch = "" Else Me.Bookmark = rs.Bookmark End If test7.mdb

السلام عليكم موقع البرنامج https://www.royal-technical.com/2018/03/psr-100.html وصفحة النسخة الخامسة https://www.royal-technical.com/2018/04/pos-program-psrsystem.html رابط كامل تحميل الحزمة الاخيرة للاصدار الخامس اخر تحديث+متطلبات التشغيل http://www.mediafire.com/file/v8pgaidu433s74n/بر+نامج+نقاط+بيع+متكامل+مجانا+PSR+System.rar ولكن ، صحيح ان برنامج حفظ البيانات هو اكسس ، ولكن البرنامج ليس معمول على اكسس ، لذلك ، ولأننا في منتدى الاكسس ، يجب ان ننقل هذا الموضوع الى إعلانات شخصية للاعضاء ، مع ترك رابطه في منتدى الاكسس جعفر

تفضل اخى الكريم فاتوره.xlsm

جرب هذا الملف تم تفيير اسماء الصفحات الى الاجنبية لحسن عمل الكود officina_salim.xlsm

السلام عليكم وفي السياق نفسه مع الدالة Reverse بتصرف بسيط... بن علية حاجي مشكلة الكتابه المعكوسه.xlsm

تفضل الكود المطلوب Private Sub Workbook_Open() Application.EnableCancelKey = xlDisabled Application.Visible = False Workbooks.Application.Visible = True ActiveWindow.DisplayHeadings = False Application.DisplayFormulaBar = False Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",false)" UserForm1.Show If Hex(CreateObject("Scripting.FileSystemObject").Drives.Item("C:").SerialNumber) <> "4282084B" Then With ThisWorkbook .Save .ChangeFileAccess Mode:=xlReadOnly Kill .FullName .Close savechanges:=False End With End If Sheet83.Select End sub

تفضل أخي الكود بالمرفقات وفقنا الله جميعا لكل خير mas_ar_n2t_utf.rar

بسم الله الرحمن الرحيم الحمد للـه الذي بنعمته تتم الصالحات، والصلاة والسلام على سيدنا محمد المبعوث بالرحمات، وعلى آله وصحابته أولـي النهى والمكرمات، وعلى التابعين ومن تبعهم بإحسان مابقيت الأرض والسموات. وبعد ,,,, السلام عليكم ورحمة الله وبركاته أخواني وأخوتي الكرام في صرحنا المبارك اوفيسنا التعليمي كان هناك موضوع للاخ الكريم // اسماعيل طه (( طلب نموذج إيداع نقدي وسحب نقدي )) علي الرابط http://www.officena.net/ib/index.php?showtopic=51017 والاخ الكريم مشكور راسلني عدة مرات علي الخاص وعرض مقابل مادي واضحت له كما اوضح عدد من اخواني (جزاهم الله كل خير ) علي ذات الرابط السابق , أن الهدف من جمعنا انه تطوعي علي حسب وقت كل منا بهدف تبادل الخبرات المختلفة ونشر العلم والاحترام قبل كل شيء بينا وجمع الله بيننا بنعمته في التاخي والمحبة يمكن لا ابالغ ان قلت علي مستوي جميع المنتديات العربية والأجنبية بكل حب وأحترام وتأخي وعد الاخ الكريم اني سوف انجز العمل علي ما يسمح وقتي لوجه الله واقل ما نقدمه مقابل الكثير والكثير الذي تعلمناه من فرسان هذا الصرح , وبعد يوم واحد أرسل رسائل اخري انه سوف يدفع مقابل مادي (فلوس) كما ورد بالنص برسالته الكريمة فيا اخي الكريم العمل تبرع واجتهاد لوجه الله ولا نبغي جزاءا ولا معروفا الا دعوة بظهر الغيب بصلاح الحال ولي سؤال سألته لك لك ما جاوبتني ماهو المقابل امام رجاء الثواب من عند الله عز وجل ؟؟؟ وهل لو هناك مقابل سوف ينجز العمل خلال ساعات ؟؟؟ هدانا الله واياكم الي الصالحات واعتذر للاطالة أحببت عرض الموضوع بشكل عام حتي يكون هناك توضيح عام اننا لا نهدف الي الربح والترزق واوضح هدفنا الأسمي والأعلي من تجمعنا المبارك لتبادل الخبرات وأعتذر من ادارة الصرح اني قمت بفتح الموضوع بشكل مستقل بذاته لسهولة البحث وتعميم الفائدة البرنامج مع شرح موجز لشاشته المختلفة للتعرف علي الجانب الأخر من الاكسيل اننا يمكن ان نستخدمه بشتي الطرق وابراز جوانب فنية بجانب دور الاكسيل الاساسي شاشة الدخول وكلمة المرور (111) البرنامج يحتوي علي خيارين الخيار الاول (العمليات ) وتنقسم كالتالي 1- قسيمة ايداع نقدي ( لتسجيل الايدعات اليومية ) مع مسلسل ورقم سند تلقائي (جاري - توفير - مقاصة ) 2- قسيمة سحب نقدي (لتسجيل المسحوبات اليومية ) مع تسلسل ورقم سند تلقائي. ي (جاري - توفير - مقاصة ) 3- بحث ( يستخدم للبحث عن عملية معينة ) سواء اكانت العملية سحب او ايداع . 4- كشف حساب قسائم الايداع (كشف حـ/ شهري لاظهار معاملات الايداع علي الحسابات المختلفة خلال شهر معين ) 5- كشف حساب قسائم السحب ( كشف حـ/ شهري لاظهار معاملات السحب علي الحسابات المختلفة خلال شهر معين) 6- معلومات الحساب ( لتسجيل عميل جديد او الاستعلام عن بيانت عميل ) الخيار الثاني العمليات المصرفية الهدف منه اظهار المعلومات المتعلقة بالعمليات المصرفية المختلفة ويستخدم في الجانب التسويقي اكثر للخدمات البنكية وينقسم الي عدة خيارات كالتالي 1- أسعار العملات 2-حسابات التوفير (معلومات عن حسابات التوفير وكيفية فتح الحساب) 3-بطاقات الأئتمان. 4- تسهيلات الشركات . 5-بطاقة الماستر كارد. 6- مواقع الصراف الألي. واترككم لتجربة البرنامج بانفسكم والتعرف علي الوظائف المختلفة وادعوا الله سبحانه وتعالي ان يكون فيه الفائدة لكم ان كانت هناك اي ملاحظات او اخطاء واردة في البرنامج يسعدني ان استقبلها لتعديله ولتعميم الفائدة علي ذات الموضوع مع تحياتي واحترامي لكم اخيكم ضاحي الغريب ولا تنسونا بدعوة بظهر الغيب بصلاح الحال برنامج ادارة الخدمات المصرفية - ضاحي الغريب.rar

السلام عليكم يمكن عمل ذلك لكن بشرط ان تكتب اليوم برقمين مثلا 1 تكتب 01 و الشهر مثلا 2 يكتب 02 فكل من الكودين التاليين يعملان بهذه الطريقة مثال عوض ان تكتب : 1-2-2013 تكتب 01-02-2013 طبعا بدون الاشارة ( - ) الكود الاول Private Sub TextBox1_Change() If Len(TextBox1) = 2 Then TextBox1.Value = TextBox1.Value & "-" If Len(TextBox1) = 5 Then TextBox1.Value = TextBox1.Value & "-" End Sub الكود الثاني Private Sub TextBox1_Change() Art = Array(2, 5) For i = 0 To UBound(Art) If Len(TextBox1) = Art(i) Then TextBox1 = TextBox1 & "-" Exit For End If Next End Sub

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

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

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