Shivan Rekany

اعمل نموذج بنوع (داتاشيت) هو مثل الجداول والاستعلامات وتقدر تفتحه مثل كل النماذج الاخرى م.2017.شفان ريكاني

اعمل استعلام بين تاريخين مصدر للتقرير بعدين راح تعطي كود فتح التقرير بشكل نورمال م.2016.شفان ريكاني

اصبر اتفضل اضفت حقلين الحقل الاول هو DateN: IIf([id] Mod 2;-CDbl([date]);CDbl([date])) انا استخدمت iif لان عندنا شرط لكي يعطينا نتيجة سالب ام موجب 2 mod لكي يفرق بين سجلات مفرد و مزدوج cdbl لكي يحولنا التاريخ الى تسلسل رقمي للتاريخ والثاني Frq2Date: IIf(Abs(DSum("[DateN]";"استعلام1";"[id] <=" & [id] & "and [id] >=" & [id]-1))>42000;0;Abs(DSum("[DateN]";"استعلام1";"[id] <=" & [id] & "and [id] >=" & [id]-1))) انا استخدمت iif لان عندنا شرط لكي يعطينا صفر لاي فرق بين سجلين اذا كان قيمته اكبر من 42000 abs لكي يعطينا نتيجة موجبة فقط dsum ما يحتاج الشرح انظر الى الصور النتيجة واليك مرفقك بعد تعديل test135.rar وهناك ملاحظة كما قلت لك في مشاركة الماضي للموضوع يجب ان يكون التسلسل مضبوط م.2015زشفان ريكاني

هناك يجب ان ترجع للمبرمج ... اي من عمل البرامج لك ارجعه واسأل عنه ... لان نحن لا ارى كما ترى انتي .. ولكي لا نتجاوز الحدود الملكية الفكرية والا كان اقولك ارفق نسخة من قاعدة بيانات وليس هناك المشكلة ان يكون رقم سري على الاكواد م.2014.شفان ريكاني

اليك هذا الرابط لعلك تستفيد منه م.2013.شفان ريكاني

الحمد لله بنسبة لنا تم الجواب على الأسئلة لكن بعد ما وصلتنا رأيي صاحب السؤال السيد @metwali شكرا لك سيد جمال شكرا لانك معنا م.2012.شفان ريكاني

استأذن من السيد @Gamal.Saad حسب فهمي لسؤالك هذا ما هو السبب تريد ان تضع الكود في كل النموذج حسب فهمي يكفيك ان تعطي الكود في مكان واحد وهو سيعمل المطلوب على كل النماذج لماذا تريد ان يكرر الامر عند فتح كل نموذج ممكن تفهمني السبب ؟ م.2011.شفان ريكاني

شكرا لك سيد جمال على التنبيه تم العلاج بواسطة اضافة سطر الى الكود والكود سيكون كالتالي Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer) Dim i As Integer i = ((Me.dd + 1) * 0.503) * 567 Me.Box34.Height = i + (1.802 * 567) Me.Detail.Height = Me.Box34.Height End Sub db1 (2) (2).rar هل ممكن تعمل التجربة على المرفق م.2010.شفان ريكاني

اتفضل اليك هذا Private Sub a1_GotFocus() If Me.a1 <= 0 Then Me.a1.Locked = False Else Me.a1.Locked = True End If End Sub enabled_ctrl.rar م.2009.شفان ريكاني

استأذن من استاذنا ابوخليل اليك هذا الرابط م.2008.شفان ريكاني

اليك هذا الرابط م.۲۰۰۷.شفان ریکاني

ما قصدك بمرتبة ؟ كما انا فهمت منك الجواب هو تأكد من فونت المستخدمة في جهازك هل هو موجودة م.2006.شفان ريكاني

استأذن من استاذنا الكرام السيد @ابوخليل و السيد @رمهان و السيد @Gamal.Saad اتفضل السيد @metwali هذه الطريقة لعل يفيدك بعد عديد من المحاولات وصلت الى هذا اولا : انا اضفت حقلين جديدين في استعلام مصدر التقرير وهما 1 / id1: Len([info2]) لكي نعرف عدد المسافات اي الحروف في حقل اينفو 2 2 / dd: [id1]\98 لان كل سطر الكامل هو يساوي 98 مسافات لذا انا اضفت هذا الحقل لكي نعرف عدد الاسطر في حقل اينفو 2 ثانيا : غيرت خاصية التفصيل can Grow الى لا كما مبينة في الصورة ثالثا : استخدمت هذا الكود في التفصيل عند الفورمات Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer) Dim i As Integer i = ((Me.dd + 1) * 0.503) * 567 Me.Box34.Height = i + (1.802 * 567) End Sub اتفضل القي نظرتا الى التقرير ووافيني بالنتيجة db1 (2).rar م.2005.شفان ريكاني

حسب معرفتي ليس هناك نوع بهذا بل هناك نوع Text فقط و يوجد ايضا نوع Date/Time ومنه بيأخذ Short Date هذا والله يعلم م.2004.شفان ريكاني

لا اخي الكريم اولا افتح برامجك على لابتوبك واضغط على ( ALT + F11 ) من قائمة تولس او الخيارات اختر ريفرينس اي مكتبات سيظهر لك هذه النافذة دور على اي مكتبات امامه كلمة MISSING اذا وجدت احدى المكتبات في اوله ذلك الكلمة شوف نقطة رقم 2 في اخره مكتوبة اسم المكتبة راح تجده في داخل المسار C:\Windows\System32 في جهازك اللي بيشتغل عليه البرامج فقط اعمل كوبي باست الى نفس امسار في لابتوبك هذا والله يعلم م.2003.شفان ريكاني

فتح البرامج على كلا جهازين وتأكد من مكتباتهما ل هما نفس المكتبات ؟ اذا يكون اي مكتبة به كلمة MISSING امامه في لابتوبك دور المكتبة ستجده في مسار C:\Windows\System32 في جهازك اللي بيشتغل عليه البرامج واعمل نسخ و لصق الى نفس المسار في لاب توبك ان شاء الله سيحل مشكلتك والله يعلم م.2002.شفان ريكاني

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

حسب معلوماتي ان رقم 100 هو كو لرقم 4 في لوحة المفاتية الحسابية اي اللي في يمين الكيبورد و رقم 52 هو كود لرقم 4 اللي فوق الحروف في لوحة المفاتيح هذا والله يعلم بلى استاذي الحبيب ممكن اتفضل اليك هذا فانكشن اعمل كوبي باست في وحدة نمطية Public Function AllowKeyCode(KeyCode As Integer, Shift As Integer) As Integer Select Case KeyCode Case 52 ' هنا اكتب اي امر تريد DoCmd.OpenForm "ck", acNormal Case Else ' وهنا اكتب اي امر تريد وتقدر تستمر اي تطول الكود حسب حاجتك DoCmd.Close acForm, "فواتير" End Select End Function واكتب هذا في فورم عند كي داون اي ضغط على الازار Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) KeyCode = AllowKeyCode(52, Shift) End Sub لكن لا تنسى يجب ان يكون كي بريفيو لكل النموذج المستخدمة عليه الكود ان يكون = نعم تقبل تحياتي م.2000.شفان ريكاني

استاذي الحبيب السلام عليكم ور حمة الله وبركاته ممكن تتأكد من القاعدة مجددا لان فتح معي برامج مباشرتا الى نموذج الرئيسي وما ظهر النموذج التسجيل بدون ان اسجل البرامج لترى ما هو السبب ؟

حسب فهمي لا ليس ممكن .. إلا اذا * المبرمج اعطاه الكود في وقت محدد ان يغير شيء هكذا ما هو نوع ذاك الحقل من قبل والان صار اي ؟ ممكن توضيح اكثر لان ما افكر ان يحدث هذا الامر

اتفضلي اليك هذا الكود مثلا عندك جدول باسم تابل 1 و حقل باسم موبايل ونوعيته هو تيكست وتريد تتغير الى نمبر استخدم هذا الكود Dim db As DAO.Database Set db = CurrentDb Dim strSQL As String strSQL = "ALTER TABLE Table1 ALTER COLUMN mobile INTEGER" db.Execute strSQL Set db = Nothing او بلعكس من نمبر الى تيكست اسنخدم هكذا strSQL = "ALTER TABLE Table1 ALTER COLUMN mobile TEXT(10)" هناك ملاحظة : لا يجوز ان تستخدم الكود بواسطة نموذج مصدره ذلك الجدول

هناك حل لهذه المشكلة ايظا فقط غير كما في الصورة واليك مرفقك بعد تعديل ليس هناك اي المشكلة والله يعلم اننا في الحياة والحياة بدون مشاكل ما بها التذوق Database1.rar

انت كان عملت الاستعلام وانا فقط غيرت كما مبينة في الصورة واتفضل اليك قاعدة بها نموذج هل هذا ماتريد ؟ Database1.rar

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

اظن انك تريد هذا DoCmd.SelectObject acReport, "ReportName", True DoCmd.PrintOut , , , , 2 غير ReportName باسم تقريرك