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

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

تفضل 2APE.rar

Stellar Repair for Access ستجد نسخة مجانية متوفرة

الشكر لله الذي وفقنا لهذا

معادلة بحث عادية جدا يمكنك استعمال vlookup أو Index & match مثال =VLOOKUP(j3, l1:m100, 2,0) بالتوفيق

جميعا بإذن الله

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

بعد إذن أخي الكريم @ابراهيم الحداد لا نحتاج لعكس الكلام لأنه يظهر الأرقام مقلوبة مثل 13 تظهر 31 وهكذا هذا جهدي المتواضع في هذا المجال Sub AbsDays() Dim ws As Worksheet, C As Range, LR As Long, x As Long Set ws = Sheets("SS") LR = ws.Range("AG" & Rows.Count).End(xlUp).Row For x = 3 To LR ws.Range("AI" & x) = "" For Each C In ws.Range("A" & x & ":AE" & x) If C.Value > 0 Then ws.Range("AI" & x) = ws.Range("AI" & x) & IIf(ws.Range("AI" & x) = "", "يوم ", " و") & C.Value Next C : Next x MsgBox "Done by mr-mas.com" End Sub بالتوفيق ترحيل أيام الغياب.xlsb

السلام عليكم ورحمة الله استخدم الكود التالى Sub AbsCount() Dim ws As Worksheet, LR As Long Dim x As Long, y As Integer Dim C As Range, Abst As String Const Com = "," Set ws = Sheets("SS") x = 3 LR = ws.Range("AG" & Rows.Count).End(xlUp).Row Do While x <= LR For Each C In ws.Range("A" & x & ":AE" & x) If C.Value > 0 Then Abst = Abst & C.Value & Com ws.Range("AL" & x) = StrReverse(Left(Abst, Len(Abst) - 1)) End If Next C Abst = "" x = x + 1 Loop End Sub

تفضل <<<<<<<>>>>>>>> Kan_20211007.rar

شكرا جزيلا استاذنا

هذا ملفك بعد تنفيذ المطلوب التصفية بشرطين الفصل والنوع بالتوفيق قائمة فصل بنون وبنات.xlsx

اخي الكريم ارفق مثالك حتى نستطيع تشخيص الخطاء. الظاهر هناك نقص في الكود تحياتي

للاسف هذا فقط ما استطعت استراجاعة استاذى الجليل و معلمى القدير و والدى الحبيب الاستاذ @ابوخليل ممكن اسم البرنامج المستخدم من قبلكم APE (AccessFIX).accdb

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

جميعا بإذن الله تعالى

يعطيك العافية Tutuapp 9Apps Showbox

لاضافة جدول في قاعدة خارجية استخدم الاتي <<<<<<<>>>>>>>> Dim msgstyle Dim strSQL1 As String Dim b As New Access.Application Set b = CreateObject("Access.Application") b.OpenCurrentDatabase (Me.txtPath) strSQL1 = "CREATE TABLE [kanory] ([ProductID] AUTOINCREMENT,[ProductName] TEXT(40) NOT NULL,[SupplierID] LONG,[BirthDate] DATETIME,[CategoryID] LONG,[QuantityPerUnit] TEXT(20),[UnitPrice] CURRENCY,[UnitsInStock] SMALLINT,[UnitsOnOrder] SMALLINT,[ReorderLevel] SMALLINT,[Discontinued] BIT NOT NULL,CONSTRAINT [PrimaryKey] PRIMARY KEY ([ProductID]));" b.DoCmd.RunSQL strSQL1 MsgBox Space(20) & "تم انشاء الجدول Kanory بنجاح.." & Space(20), msgstyle, "للمعلومية" Set b = Nothing اما لتعديل خصائص حقل موجود في الجدول استخدم التالي مع ملاحظة : ان اختلاف البيانات قي الحقل اذا كانت هنا بيانات ممكن تفقدها :::: <<<<<>>>>>>> Dim msgstyle Dim b As DAO.Database Dim strFieldName As String Set b = DBEngine.OpenDatabase(Me.txtPath) With b.TableDefs("Kanory").Fields("S_Name") .Properties.Append .CreateProperty("DisplayControl", dbInteger, AcControlType.acComboBox) .Properties.Refresh End With MsgBox Space(20) & "تم انشاء الجدول Kanory بنجاح.." & Space(20), msgstyle, "للمعلومية" b.Close Set b = Nothing

ياريت يااستادنا الفاضل تقولنا طريقة الاصلاح من فضلك

عاجز عن الشكر المشكلة كانت افى الفاصلة المنقوطة جزاكم الله خيرا

نسخ المعادلة من الموقع إلى الملف لا يحتاج خبرة الخطوات : * تحديد المعادلة بالضغط والسحب * كلك يمين ثم نسخ copy او الضغط ctrl+C من لوحة المفاتيح * تحديد الخلية التي تظهر فيها النتيجة * لصق المعادلة في شريط المعادلات formula bar عن طريق كلك يمين ثم لصق paste او الضغط ctrl+v من لوحة المفاتيح * الضغط على مفتاح الإدخال enter إذا ظهر خطأ فيجب تغيير الفاصلة (, ) في المعادلة إلى فاصلة منقوطة ( ; ) وأنصح بتعلم الأساسيات أولا قبل الدخول في المعادلات بالتوفيق

مشكور استاذي الفاضل

Target(2, 1).Resize(1, 8).Interior.Color = &HFF00& Target(2, 1).Offset(, 1).Resize(1, 4).Merge

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

يمكنك استعمال هذه المعادلة =IF(OR(Q6="",F6=""),"",IF(Q6>=250,"ناجح"&IF(F6="ذكر", "", "ة"),"له"&IF(F6="ذكر", "", "ا")&" برنامج علاجي")) بالتوفيق

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

ولا يهمك أخي العزيز ، هذا تعديل على الكود ليوافق طلبك : Public Function ReLink() Dim BEPath As String Dim wrkJet0 As Workspace Dim dbs0 As DAO.Database BEPath = DFirst("database", "msysobjects", "[Database]<> '""'") Set wrkJet0 = DBEngine.Workspaces(0) Set dbs0 = wrkJet0.OpenDatabase(BEPath, False, False, ";PWD=" & "000000") Dim db As DAO.Database Dim tdf As DAO.TableDef Set db = CurrentDb() For Each tdf In db.TableDefs If (tdf.Attributes And dbAttachedTable) = dbAttachedTable Then On Error Resume Next tdf.Connect = ";DATABASE=" & BEPath tdf.RefreshLink End If Next End Function وأخبرني إن واجهت فيها أي مشكلة ..

إذا كانت صفحات الملف أسفل بعضها فهذا يتم من خلال خصائص الطابعة printer properties الموجودة في نافذة معاينة قبل الطباعة وبعد ضبط خصائص الطابعة يتم الطباعة بكود الطباعة العادي ActiveSheet.PrintOut ستتم الطباعة على الوجهين وبعد البحث لم أعثر على كود يقوم بتغيير خصائص الطابعة إلى ماهو مطلوب بالتوفيق

بعض الناس تريد أن تتعلم وبعضهم للأسف يريد الحل جاهزا تم عمل المطلوب بالمرفق بالتوفيق ‏‏برنامج تقييم الزيارات عن بعد للوحدات مكرر - نسخة.xlsb

جزاك الله كل خير أخي هشام فعلا برنامج رائع

الله يبارك فيك أخي خالد والله مفتقدكم جميعا ولكن الدنيا مشاغل ومدرستنا كان لديها تقييم تابع لهيئة الجودة والاعتماد والحمد لله ظهرت بصورة لائقة شكرا لمرورك الكريم

تفضل اخي الكريم المطلوب في المرفق ولمزيد من المعلومات يمكنك متابعة هذا الرابط http://www.officena.net/ib/index.php?showtopic=29738 mas(3).rar

الشكر لله أخي الكريم وفقني الله وإياكم لكل ما يحبه ويرضاه

بعد البحث توصلت إلى أن هذه الشهادة موجودة من عام 2003 ولكن لم يتم اعتمادها هنا في مصر إلا في الجهاز المركزى للتعبئة العامة والإحصاء ويتم إعطاء شهادة عن كل موديول وهي عبارة عن أربع موديولات وورد وإكسل وأكسس وباوربوينت وتتكلف في هذا المركز حوالي 450 جنيه مصري لمزيد من التفاصيل http://www.capmas.gov.eg/courses/icdl_E3lan.htm وهذه كورسات الدورة http://www.mediafire.com/download.php?wjjvnj2remj تحياتي للجميع أخوكم محمد صالح

أشكرك أخي بوش على مجاملتك وذوقك

وإياك أخي الكريم أتمنى أن ينفع الله به كل إخواننا

هديتي لإخواني وأخواتي أعضاء منتدانا الرائع أوفيسنا هذا رابط لأفضل نسخة أوفيس 2007 sp2 انجليزي وهذا رابط لنفس النسخة عربي والجميل أن البرنامج ذاتي التثبيت ويحتوي على برامج إضافية لعرض قوائم 2003 وكتابة الرموز الرياضية ويحتوي على جميع التحديثات

عربي ولا انجليزي ؟؟

قصيدة رائعة وتذكير بها أروع من أخي زياد أزاد الله حسناته

السلام عليكم ورحمة الله وبركاته برجاء من الاخوة الاعضاء المحترمين مساعدتى فى انهاء هذا المشروع كما بالصورة ولكم جزيل الشكر وللمنتدى المحترم جدا وجزاكم الله خيرا oo.xlsx

بصراحة انا مش خبرة اوى بالاكسل ممكن حضرتك نصبق الكود بالمرفق