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

تفضل ...... برنامج_القرأن_الكريم.zip

السلام عليكم ورحمة الله وبركاتة واجهة مشكلة عند النقر على زر ضغط واصلاح قاعدة البيانات وعند تحويل قاعدة البيانات( الواجهة) الى accde بظهور رسالة غريبة ولا يتم بعدها اكمال العملية سواء الضغط والاصلاح أو عملية تحويل القاعدة هذه صورة الرسالة فصرت ابحث وين المشكلة مدة اسبوعين في الاكواد لكن لم اجد اي كود يوجد به خطأ صرت ابحث في الاستعلامات ونفس الشي لم اتوصل الى اي خطأ وبعد التعب في البحث فكرت ابحث عن المشكلة في الجداول في قاعدة البيانات الخلفية كانت الجداول سليمة تمام بعد كذا رحت ابحث في الجداول المرتبطة فكتشفت ان احد الحقول قد تم تغيره وهو عبارة عن حقل قائمة منسدلة يقبل اختيار عدة قيم لكن يظهر بشكل حقل مرفق هذه الصورة قبل وهذه الصورة بعد الان عرفت وين المشكلة لكن مش عارف سببها رجعت الى حلقة البحث والاستكشاف 😖صرت ابحث عن الاكواد التي لها صلة بالحقل في النماذج مباشرة ولكن كل شي كان تمام التمام صرت ابحث في الاكواد العامة في القاعدة مثل اكواد التأمين واكواد النسخ الاحتياطي الخ ...... الى ان وصلت الى كود اخفاء الجداول المرتبطة وهنا كانت المفاجأه فبعد ايقاف هذا الكود واعادة اصلاح الجدول واظهارة اختفت المشكلة وبعد اعادة الكود للعمل وتنفيذ اخفاء الجداول ترجع المشكلة مع العلم ان المشكلة ما تصير الا مع هذا الحقل في هذا الجدول فقط فتذكرت كلمة لاستاذنا @jjafferr في احد المواضيع ( لا اتذكر الموضوع بالضبط ) وهو يقول انه قرأ ان اكواد احفاء الجداول تسبب مشاكل وهذا ما حدث معي بالفعل واحببت ان اشارككم هذه المشكلة لكي يتم اخذ الحيطة والحذر وهذا هو الكود Dim db As DAO.Database Dim tdf As TableDef Set db = CurrentDb For Each tdf In db.TableDefs If tdf.Attributes = 1073741824 Then tdf.Attributes = 1 Next db.Close Set tdf = Nothing Set db = Nothing

تفضل ...... Qran.mdb

بعد اذن الأستاذ محمد فؤاد لك ما طلبت كما تم مناقشة هذا الموضوع من قبل على هذا الرابط https://www.officena.net/ib/topic/91655-دالة-لعد-الطلاب/ New_Microsoft_Excel_Worksheet_(2).xlsx

أ/ jo_2010 فى خصائص الحقل بالجدول Field Size .. Double Format .. Standard بس هيا بتبفى فاصلة بين كل 3 أرقام والنقطة بتبقى قبل آخر رقمين عشريين مبتبقاش كلها نقط

لعل هذا جزء من الحل ..... تفضل حضور المهندسين.accdb

الاخ عبدالله الصاري الموقر والاخ علي محمد علي الموقر جزاكم الله خيرا ورحم الله والديكم

وعليكم السلام -انظر الى هذه الصورة فبها طلبك

تفضل لك ما طلبت تنسيق شرطى بشرط.xlsx

بارك الله فيك أستاذ أحمد ولكن اعتقد ان تكون المعادلة في الخلية bb7 هكذا =IF(AT7="Turkish Lira","Peaches",IF(AT7="USD DOLLARS","Cents"))

وعليكم السلام تفضل اخى الكريم عليك مشاهدة هذه الصورة لمعرفة سبب توقف المعادلة عن العمل Copy of Bank Statement _ 2019.xlsm

او يمكنك تجربة هذا الملف أيضا بريك.xlsx

وعليكم السلام وكل عام وانتم بخير -نورت المنتدى اهلا بك جرب هذا تم ضبط وتعديل الملف , كل ما عليك اختيار كود الموظف من القائمة المنسدلة الموجودة بعمود كود الموظف ثم بعد ذلك كتابة الحضور والإنصراف وسيب الباقى على الإكسيل Attendance.xlsx

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

واذا حقول التقرير كثيرة ، فبالاضافة الى جعل التقرير افقي ، قد تحتاج الى 🙂 جعفر

تفضل لك ما طلبت بالمعادلات _الأحوال الثانية - نسخة.xlsm

شكرا لك على المعلومة النادرة المهمة ، كتب الله اجرك ،،،

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

وعليكم السلام اهلا بك في المنتدى-لا تنتظر المساعدة من احد بدون رفع الملف فلا يمكن العمل على الصورة كما لا يمكن العمل على التخمين

تم التعديل على الملف الجديد درجات.xlsx

الملف يعمل عندى بشكل طبيعى New_Microsoft_Excel_Worksheet_(2).xlsx

تم التعديل على الملف اتمنى ان يكون هو المطلوب New_Microsoft_Excel_Worksheet_(2).xlsx

مرفق الطباعة على ورقة نصف A4 تسمى (A5) كل شهادة بورقة ( يجب أن يكون لديك ورق حجم A5 وتضبط درج الطباعة أو الماكينة على نفس حجم الورق شهادات جديد مع اضافة صور للطلبة.rar

بعد اذن الأستاذ عبدالله وهذا رابط اخر من داخل المنتدى -يمنع فتح الملف اذا تم نقاه وتغيير مكان الحفظ او تغيير اسمه https://www.officena.net/ib/topic/38637-موضوع-مميز-تمت-الاجابةأريد-كود-يمنع-الملف-من-الفتح-عندما-يستبدل-جهاز-الكمبيوتر-نقله/?tab=comments#comment-261437 وهذا موضوع اخر يخص طلبك وهو ربط بين ملف اكسيل واسم جهاز الكمبيوتر http://excel-egy.com/forum/t3183 وهذا ايضا موضوع اخر لملف يعمل على جهازين فقط https://www.officena.net/ib/topic/64356-ملف-يعمل-على-جهازين-فقط/ واخيرا اذا كنت حابب ان تمنع الملف ان يفتح ويعمل على اى جهاز يمكنك تتبع الأتى: اولا:-عليك بفتح مديول جديد ووضع هذا الكود به Sub CommitSuicide() 'http://www.cpearson.com/excel/workbooktimebomb.aspx With ThisWorkbook Application.DisplayAlerts = False If .Path <> vbNullString Then .ChangeFileAccess xlReadOnly Kill .FullName End If .Close SaveChanges:=False End With End Sub Sub Locked(ByVal bEnabled As Boolean) Dim sh As Worksheet Dim iHome As Integer Dim iOthers As Integer If bEnabled = True Then iHome = -1 'visible iOthers = 2 'very hidden Else iHome = 2 iOthers = -1 End If With ThisWorkbook On Error Resume Next Application.ScreenUpdating = False .Sheets("Welcome").Visible = iHome For Each sh In .Sheets If Not sh.Name = "Welcome" Then sh.Visible = iOthers End If Next sh .Sheets("Welcome").Visible = iHome Application.ScreenUpdating = True On Error GoTo 0 End With End Sub ثانيا :- وضع كود اخر فى حدث This Workbook Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Locked True End Sub Private Sub Workbook_Open() Select Case Environ("COMPUTERNAME") Case "LPPC28" 'approved computers Locked False Case Else CommitSuicide End Select End Sub واخيرا عليك بتسمية احد صفحات الملف ب Welcome Sheet ووضع هذا الكود فى حدث هذه الصفحة Private Sub Worksheet_SelectionChange(ByVal Target As Range) Locked False End Sub بارك الله فيك

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

تفضلوا هذا هو الملف بعد اذن الأستاذ محمد فؤاد طبعا لكى تعم الإستفادة للجميع المبيعات و العملاء.xlsm

جزيت خيرا

تفضل data transfer.xlsm

جزاكم الله خيراً إخوتي الكرام على مروركم العطر .. تقبلوا تحياتي العطرة والسلام عليكم.

وعليكم السلام 🙂 في الوقت اللي نقول فيه ان الاكسس ممكن يعمل كل شيء (تقريبا) ، يجينا مثل هذا السؤال ، ونقف محتارين في الجواب !! الكلام عن انواع معينه من المرفقات فقط ، مثل (PDF او Word او صورة او Excel او .. ) المشكلة: لما تطبع اي شيء ، فالامر بين امر الطباعة و الطابعة ، يعني الاكسس يعطي الامر فقط ، الحل: 1. اما ان نضع الملف في تقرير في الاكسس ، ومنه نقدر ان نضع حقل نص فوقه ، فيه البيانات المطلوبة ، وهذا ممكن مع بعض الصيغ اعلاه: الصور وملفات PDF يمكن عرضها مباشرة في الاكسس ، وهذه طريقة : . ملفات الورد ، فقد ابدع اخونا @ابوخليل بعرض مجموعة امثلة هنا ، وفي اعتقادي بأن الاكسل ممكن فتحة باحد هذه الطرق كذلك . 2. ان ندرج هذا الملف في ملف HTML (برمجيا من الاكسس) ، وفي هذا الملف ممكن ان نضيف اي معلومة اضافية ، والبارع في هذا المجال هو اخونا @أبو إبراهيم الغامدي وطبعا اخونا @رمهان 🙂 3. ان نحصل على برنامج يطبع الى طابعة PDF افتراضية (virtual printer) ، وتكون هذه الميزة موجودة فيه ، وطبعا لازم ان هذه الطابعة يمكن التحكم فيها عن طريق Commandline ، 4. هناك شيء اسمه Water mark ، وعادة موجود في جميع الطابعات ، ولابد ان هناك طابعات تمكنك من تغيير الكلمه الى الكلمة التي تريدها ، ولكن قد لا تستطيع تغيير هذه الكلمة برمجيا ، وتظل ثابته . واكيد اكون ناسي طرق اخرى جعفر

تفضل اخى الكريم هذا كان برنامج جاهز عندى 2.xls

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

بارك الله فيك استاذنا الكريم وجزاك الله كل خير

بارك الله فيك وجزاك الله كل خير

بارك الله فيكم جميعا كلها حلول ممتازة جزاكم الله كل خير وكل عام وانتم بخير

السلام عليكم ورحمة الله أرفق ملفك أو جزءا منه للعمل عليه... وهل تضع الرسم 1500 دج في حالة ما إذا كان الرسم على المبلغ حسب النسب المعطاة أقل من 1500 دج؟ الملف المرفق فيه بعض ما تريد (على ما أعتقد)... بن علية حاجي Classeur1.xlsx

وعليكم السلام كان عليك فقط استخدام خاصية البحث بالمنتدى -تفضل https://www.officena.net/ib/topic/49634-حساب-سن-المعاش-لسن-الـ60/ https://www.officena.net/ib/topic/22634-هل-توجد-دالة-لحساب-سن-التقاعد-المعاش-في-الإكسيل/ وهذه ايضا روابط خارجية مفيدة من منتديات اخرى https://excel-egy.com/forum/t141 ويمكنك ايضا معرفة التاريخ الذى يصل اليه الشخص لسن المعاش ,فاذا افترضنا ان تاريخ الميلاد موجود بالخلية E2 فيمكنك استخدام هذه المعادلة للتوصل لتاريخ سن المعاش =IF(DAY(E2)=1,DATE(YEAR(E2)+60,MONTH(E2),0),DATE(YEAR(E2)+60,MONTH(E2)+1,0))

تفضل العملاء 2019.xlsm

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

تفضل معادلة بحث.xlsx

بارك الله فيك

وعليكم السلام يمكنك استخدام خاصية البحث بالمنتدى فهناك العديد من الموضوعات التى تخص طلبك ومنها https://www.officena.net/ib/topic/46059-جديد-نزول-برنامج-المخزون-و-الفواتير-الشامل-الاصدار-الثالث-المشروع-الكبير/?tab=comments#comment-273864

أحسنتما بارك الله فيكم وجزاكم الله كل خير

تفضل VLOOKUP.xlsx

اشكرك استاذي على الشرح ...... بارك الله فيك

أشكرك أخي صالح ..... بارك الله فيك وفي عمرك ووقتك ..... تم المطلوب .....

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

هههه ..... زادت اللحمه ...... جزاك الله خيرا ..... تم المطلوب ... الله يكتب ذلك في ميزان حسناتك . أخي أمير .....

حبه حبه علينا يا أمير .... ولك من اسمك نصيب لكن ماذا لوكان الكود بدون علامة تنصيص ..... شاهد المرفق kanory.rar

بارك الله فيك أخي أمير بالفعل هذا ما اريد ........ زادك الله من بحور العلم .... جزاك الله خيرا ونفع بعلمكم