Shivan Rekany

اليك هذا الموضوع تقدر ان تكبر او تصغر حجم الفورم او اليك هذا تقدر تتغير دقة الشاشة

انا انزلت المرفق لكن بعد لا اعرف وين المشكلة لان عندي كل شيء تمام فتحت النموذج والاشارة في الحقل id ... لكن انا استخدم هذه الطريقة لكي نجعل التركيز على الحقل مثلا نريد ان يكون التركيز على نموذج1 في حقل اي دي استخدم هذا من اي نموذج او من اي مكان تستخدمه سيكون فعال حسب تجربتي Form_نموذج1.id.SetFocus لكن يجب ان يكون صفحة الاكواد النموذج اللي تجعل تركيز عليه مثلا (نموذج 1 ) جاهز اي يجب ان يكون اسمهم موجود هناك

عندك هذا الكود في حقل ترانسفير نو بعد تحديث Private Sub asd22_AfterUpdate() Dim A A = DLookup("[ID9]", "[Tas7]", "[asd22] =form![asd22]") If (Eval("DLookUp(""[asd22]"",""[Tas7]"",""[asd22] =form![asd22]"") Is Not Null")) Then Beep MsgBox "Sorry this number is already registered!", vbInformation Me.Undo DoCmd.GoToRecord , , acGoTo, A Me.Refresh End If '----------- End Sub كان من الاحسن ان تستخدم هذا جزء منه قبل تحديث الحقل وليس بعد تحديث ولكن يمكن تستخدمه بعده ايضا If (Eval("DLookUp(""[asd22]"",""[Tas7]"",""[asd22] =form![asd22]"") Is Not Null")) Then Beep MsgBox "Sorry this number is already registered!", vbInformation Me.Undo End If

نعم لان كان هذا الحقل فارغ في الجدولين الجدول الصدقات و الجدول الزكات وتم العمل اللازم للتعديل.rar

نعم اتفضل عملت موديول جديد وكتبت فيها هذا السطر من الكود فقط Option Compare Database Public OpenNum As Integer في الخصائص القاعدة البيانات الحالية اخترت احد النماذج لكي يفتح في البداية فتح القاعدة البيانات بعديف وفي ذلك النموذج في حدث عند الفتح كتبت هذا الكود Private Sub Form_Open(Cancel As Integer) OpenNum = OpenNum + 1 If OpenNum = 1 Then DoCmd.OpenForm "Tabil_Visitors", acNormal, "", "", , acNormal End Sub هذا شيء برأيي متعلة بمصدر النموذجين ... والله يعلم Dcoun (1).rar

شكرا على التعديل وشكرا لمشاركتك ونشكرك اذا تكمل الموضوع

اذا انت محتاج هذا الرابط لاستاذنا الكبير جعفر @jjafferr هل هناك تحديث جديد ؟

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

السبب يرجع لاننا نستخدم هذا الرمز ( . ) بين الرقمين و حضرتك استخدمت هذا ( , ) ولكي يعمل عند يجب عليك ان تستخدم هذا الرمز ( . ) او يجب ان تفتح فانكشن وتغير الرمز "." في هذا السطر الى رمز انت تريد var = Split(TextIn, ".", -1)

نعتذر اليك هذا SELECT Almotabareen.ID, Almotabareen.Name, Nz(DSum("[Almablagh2]","Tabroaat_Sadaqat","[Tabroaat_Sadaqat]![iD_Name]=" & [ID]),0) AS SUM_SEDEQAT, Nz(DSum("[Almablagh_Zakah1]","Tabroaat_Zakah","[Tabroaat_Zakah]![iD_Name]=" & [ID]),0) AS SUM_ZEKAT FROM Almotabareen GROUP BY Almotabareen.ID, Almotabareen.Name; الاستعلام.rar

للدقائق او الساعات او الثواني يجب ان تستخدم تاريخ الطويل اي بها تاريخ و الوقت مثل Now هكذا 18/01/2018 01:54:41 ص او الساعة فقط بدون تاريخ مثل Time هكذا 01:55:28 ص من وقت هذا الى وقت هذا

تم العمل اللازم تم العمل هذا استعلام SELECT Almotabareen.ID, Almotabareen.Name, Sum(Tabroaat_Sadaqat.Almablagh2) AS SUM_SEDEQAT, Sum(Tabroaat_Zakah.Almablagh_Zakah1) AS SUM_ZEKAT FROM (Almotabareen INNER JOIN Tabroaat_Sadaqat ON Almotabareen.ID = Tabroaat_Sadaqat.iD_Name) INNER JOIN Tabroaat_Zakah ON Almotabareen.ID = Tabroaat_Zakah.iD_Name GROUP BY Almotabareen.ID, Almotabareen.Name; اليك المرفق العلاقات (1).rar

هذه دالة يقوم باستخراج فرق ناتج بين تاريخين بالسنة او فصل او شهر ..... الى ثواني ونكتب الكود هكذا DateDiff("تريد ان يعطيك نتيجة بأي شيء مثل سنة او يوم او ... الخ",first date,end date) DateDiff("yyyy",#12/12/2012#,18/12/2017) اذا نريد نتيجة الفارق بين تاريخين بالسنة سنكتب "YYYY" وللفصول سنكتب "q" وللشهور "m" وللايام السنة "y" ولليوم "d" وللايام الاسبوع "w" وللاسبوع "ww" وللساعات "h" وللدقائق "n" وللثواني "s"

اليك هذا استعلام لكي يعطيك الفارق بالسنوات SELECT TblMealomat.id, TblMealomat.Names, TblMealomat.BirthDate, DateDiff("yyyy",[BirthDate],Date()) AS oldYear FROM TblMealomat WHERE (((DateDiff("yyyy",[BirthDate],Date()))<18)); غير اسم الجدول واسماء الحقول الى اسماء الجدول والحقول عندك

في هذه الحالة لا يكون ربط بين النموذجين اتفضل كما طلبت العلاقات (1).rar

هل تريد ان يظهر هكذا انا استخدمت هذا =IIf(Len([Champ1] & "")=0;"";"<div align=right dir=RTL><font size=4>" & ParseText([Champ1];0) & "</font>.<font size=2>" & ParseText([Champ1];1) & "</font></div>") مع هذا فانكشن Public Function ParseText(TextIn As String, X) As Variant On Error Resume Next Dim var As Variant var = Split(TextIn, ".", -1) ParseText = var(X) End Function Data.rar

من المفروض ان يكون اسم المتبرع الافتراضي في النموذج الزكاة و الصدكات بيكون يساوي اسم المتبرع في النموذج الاساسي اتفضل القي نظرتا اليه واذا تريد حسب كما تفكر انت راح اعمل لك العلاقات (1).rar

شکرا لک استاذنا الحبيب

اولا : اهلا بك في منتداك ثانيا : نحتاج توضيح اكثر ثالثا : نريد نسخة مصغرة من قاعدتك لكي نعمل التعديل عليه بعد توضيح

استغفر الله ... نحن طلابكم سيدي كما قلت لك سابقا نعم ممكن واليك هذا تم اضافة بعض سجلات قليلة في الجداول لكي يبين لنا اكثر تم عمل 3 استعلامات وهذا استعلام للجدول جوازات SELECT الجوزات.المعرف, الجوزات.[كود العميل], الجوزات.البيان, الجوزات.القيمة, 1 AS [نوع البيان] FROM الجوزات WHERE (((الجوزات.[كود العميل]) Like "*" & [Forms]![FrmReport]![Combo1] & "*")); وهذا للتذاكر SELECT التذاكر.المعرف, التذاكر.[كود العميل], التذاكر.البيان, التذاكر.القيمة, 2 AS [نوع البيان] FROM التذاكر WHERE (((التذاكر.[كود العميل]) Like "*" & [Forms]![FrmReport]![Combo1] & "*")); وهذا للسكن SELECT السكن.المعرف, السكن.[كود العميل], السكن.البيان, السكن.القيمة, 3 AS [نوع البيان] FROM السكن WHERE (((السكن.[كود العميل]) Like "*" & [Forms]![FrmReport]![Combo1] & "*")); كما تشوف انا اضف حقل في كل الاستعلام باسم نوع البيان وعطيت رقم 1 للجواز و رقم 2 للتذاكر و رقم 3 للسكن وعمل استعلام التوحيد هكذا SELECT الجوزات.المعرف, الجوزات.[كود العميل], الجوزات.البيان, الجوزات.القيمة, 1 AS [نوع البيان] FROM الجوزات WHERE (((الجوزات.[كود العميل]) Like "*" & [Forms]![FrmReport]![Combo1] & "*")); UNION SELECT التذاكر.المعرف, التذاكر.[كود العميل], التذاكر.البيان, التذاكر.القيمة, 2 AS [نوع البيان] FROM التذاكر WHERE (((التذاكر.[كود العميل]) Like "*" & [Forms]![FrmReport]![Combo1] & "*")); UNION SELECT السكن.المعرف, السكن.[كود العميل], السكن.البيان, السكن.القيمة, 3 AS [نوع البيان] FROM السكن WHERE (((السكن.[كود العميل]) Like "*" & [Forms]![FrmReport]![Combo1] & "*")); وعلى هذه الاستعلام عملت تقرير و تم اخفاء الحقل نوع البيان وعملت الفرز في التقرير نفسه حسب حقل نوع البيان لكي يظهر لنا التقرير هكذا وتم عمل نموذج فيها كومبوبوكس اذا تختار احد العملاء راح يظهر البيانات لذاك العميل فقط واذا ما تختار اي عميل راح يظهر كل السجلات دمتم بخير تقرير مجمع.rar

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

استخدم هذا الشرط If DCount("*", "سند_صرف", "[اسم_المورد]='" & Me.supplier_name & "'" & "and [التاريخ]=#" & Me.payment_date & "#") > 0 Then Exit Sub Else ' اكتب تكملة الكود انا ما عملت التعديل على النموذج لان الجدول الموردين كان مصدر كومبوبوكس و كان مش موجود في القاعدة لذلك عطيتك الكود التحقيق الشرط فقط دمتم بخير

اتفضل استاذ @Elsayed Bn Gemy اليك هذا التقرير عملت استعلام التوحيد كما تفضل استاذ @jjafferr لكن للجداول وليس للاستعلامات لان ماكان بها شروط تقرير مجمع.rar

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

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