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

وعليكم السلام اخي وضاح هذا الخطأ ينتج لما تكون عندك معادلة لحقل ومافيه بيانات ، لذا تقدر تستعمل iif الشرطية: اذا في بيانات ، فقم بالمعادلة ، واذا مافي بيانات فاعطنا "" ، مثلا من http://allenbrowne.com/RecordCountError.html : =IIf([Form].[Recordset].[RecordCount] > 0, Sum([Amount]), 0) وهناك شرح اكثر في الرابط اعلاه. جعفر

بسم الله الرحمان الرحيم السلام عليكم اغلبيتنا يعلم بان الاكسل جيد في انشاء برامج حسابية صغيرة لاكن مع مرور الوقت و زيادة حجم قاعدة البيانات للبرنامج يصبح هناك نوع من البطئء و التشنج في البرنامج لان الاكسل عبارة عن جداولة الكترونية و ليس بقاعدة بيانات و ايضا كما نعلم بان الاكسيس جيد جدا بالنسبة الاكسل لاستخدامه كقاعدة بيانات وب بالفعل الاكسيس مازال لحد الان يستعمل كقاعدة البيانات في البرامج المتوسطة لذى فكرة في دمج الاكسل و الاكسيس معا للستفادة من قوة الاكسل في الجداول و الحسابات و جمال الفورم مع الاكسيس المتميز في قوة قاعدة البيانات و عدم تاثره كثيرا بكبر حجمها كما هو معمول مع لغات البرمجة الكبيرة ك c++ vb.net java python ...... اذن ستجدون في هذا الموضوع مثال شامل لربط الاكسل بالاكسيس فقط بالاكواد بحيث سنتعامل مع الاكسيس بسلاسة كبيرة وذلك استخدام اوامر sql مع vbq بسهولة كبيرة وتنفذ جميع الاوامر من حذف او اضافة او تعديل او التقارير المعروف بها الاكسيس من خلال الاكسل دون فتح ملف الاكسيس (في الحقيقة يفتح ملف الاكسيس لاكن لن تلاحظ ابدا بانه مفتوح) والعملية المتبعة في ذلك مقسمة الى ثلاث مراحل فتح اتصال مع الاكسيس تنفيذ اوامر sql (select insert update delete) غلق الاتصال مع الاكسيس لا اطيل عليكم و اترككم مع الملف و لاي استفسارات انا في الخدمة تحياتي للجميع و ارجو ان تستفيدو من الموضوع ConnectDatabaseAccess.rar

وعليكم السلام أهلا بك في المنتدى سؤالك غير واضح ، فرجاء توضيحه اكثر بمرفق ، وتوضح لنا من المرفق ما تريده ، وياريت تعمل لنا الشكل الاخير لما تريده ، سواء في ملف وورد او حتى صورة جعفر

ما هو اصدار اوفيس تبعك ؟ احتمال ان ذلك القاعدة تم عمله باصدار احدث من اصدار اوفيس تبعك والله يعلم

اخي الفاضل ابو زاهر ممكن رفع مرفق للتعديل عليه ومعرفة سبب المشكلة

اخي حسين العربى اشكرك ثم اشكر الله يجزاك الف خير

حرب هذا الملف تستطيع ان تتعامل طبيعياً مع الورقة حتى و لو كان اليوزر ظاهراً الكود Option Explicit Private Sub Command1_Click() Application.ScreenUpdating = False Dim arr(), str$ Dim k%, x%, My_Num, lr%, i%, t% Dim sh As Worksheet: Set sh = Sheets("add") My_Num = sh.[j6] If Not IsNumeric(My_Num) Or My_Num < 1 _ Or My_Num = vbNullString Then My_Num = 10 Else My_Num = Int(My_Num) End If k = 1 lr = sh.Cells(Rows.Count, "B").End(xlUp).Row sh.Range("e2:f" & lr).ClearContents For i = 6 To lr Step My_Num x = InStr(Me.TextBox2, " ") str = Left(Me.TextBox2, x - 1) str = str & k If lr - i < My_Num Then t = lr - i + 1 sh.Range("f" & i).Resize(t) = Me.TextBox3 sh.Range("e" & i).Resize(t) = str: Exit For End If sh.Range("f" & i).Resize(My_Num) = Me.TextBox3 sh.Range("e" & i).Resize(My_Num - t) = str k = k + 1 Next Application.ScreenUpdating = True 'Unload Me 'تستطيع تشغيل هذا السطر اذا اردت ان يختفي الفورم End Sub الملف اضافه1 Salim.rar

بالنسبة للتاريخ الهجري انظر هنا اما تعديل الكود فيكون هكذا : =Round(DateDiff("d";[DateOfBirth];Date())/360;0) اما الخطأ الظاهر عندك فأعتقد بسبب عدم اعتماد التاريخ الهجري في قاعدة البيانات

تفضل اخي وائل و عذرا على التاخير تعديل بمثال أ محمد أيمن.rar

اقرأمشاركتي اللأولى الرقم 1 في الكود اجعله صفر اما الهجري ففي مرفقي تم التعيين الى الهجري تجد هذا في خيارات قاعدة البيانات : استخدام التاريخ الهجري

اضغط على مفتاح الشيفت باستمرار بنفس اللحظة التي تفتح بها قاعدة بياناتك

تم التعديل لاحظ التالي : تم تغيير حقل العمر في الجدول الى تاريخ الميلاد تم عمل حقل لتاريخ الميلاد في النموذج حقل العمر يظهر آليا بمجرد كتابة التاريخ برنامج الايتام2.rar

جزيت خيرا اخينا ابو زاهر اخي السائل انا فكرت خارج الصندوق واعطيك فكرة سهلة هذا الكود ليس به اوامر بحث ولكن قد يفي بالمطلوب Private Sub Text21_AfterUpdate() DoCmd.GoToRecord , , acGoTo, Month(Text21) Me.DateMTarget_Subform.SetFocus DoCmd.GoToRecord , , acGoTo, Day(Text21) End Sub جرب وان شاء الله تمام

مشاركة مع اخوتي : خذ البيانات من الجدول وليس من النموذج /// واستخدم دالة Dlookup والافضل من هذا كله ان الشرط يكون حسب متغير وليس رقما ، لان المستخدم قد يحتاج لتغييره لدواعي امنية ونحو ذلك

يمكنك استعمال هذا الكود Private Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef dwflags As Long, ByVal dwReserved As Long) As Long If InternetGetConnectedState(0&, 0&) Then 'code if conected Else MsgBox "تأكد من اتصالك بالانترنت" End If مع مراعاة أن السطر الأول للإعلان عن الدالة يجب أن يوضع في الجزء العلوي من الموديول وكود الشرط يمكن تضمينه في أي إجراء أو حدث وفقنا الله وإياكم لكل خير

السلام عليكم حسب علمي يمكن إنشاء اختصار للبرنامج بسطح المكتب و تغيير أيقونته بإستعمال هذا الكود: With CreateObject("WScript.Shell") With .CreateShortcut(.SpecialFolders("Desktop") & "\Test Database.lnk") .TargetPath = "f:\aa\Test.accdb" .WindowStyle = 1 .Hotkey = "" .IconLocation = "f:\aa\arabic.BMP, 0" .Description = "Test Icon Substitution" .WorkingDirectory = "f:\aa\" .Save End With End With أما تغيير أيقونته مباشرة فلم تمر عليا من قبل و الله أعلى و أعلم.

العفو منك اخى الحبيب اولا انا اقل طالب علم فى هذا الصرح الشامخ ثانيا انا فعلا اخدت بالى ان حضرتك استخدمت عدد مرات الدخول بزر امر التخطى والذى لم الاحظه فى المرة الاولى ولكن انتبهت اليه بعد ذلك وممكن سؤال ؟؟؟ هو ليه ما يشتغل مع 2007 ؟! على الرغم من انه يدعم نفس الامتداد accdb وبخصوص الموديول Global_Value والتعديل عليه هل قمت بالتعديل ؟! انا ظهر عندى مشكله فى الكود الاتى If Acti = 0 Then Me.أمر39.Visible = True Else Me.أمر16.Visible = True End If الكود ده موجود فى النموذج HA_Home وظبط معى الكود بالتعديل الذى اشرت به على حضرتك فى الموديول اعتذر لتأخرى فى الرد على حضرتك وانقطاع التواصل لظروف خارجه عن ارادتى اسالكم الدعاء بظهر الغيب

او تضع هذا الكود عند اول نموذج يفتح Application.SetOption "Use Hijri Calendar", 1 وللميلادي هذا Application.SetOption "Use Hijri Calendar", 0

الملف قيد التحميل و الشكر مسبقا