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

اعمل استعلام الحاق هكذا نفترض ان لديك جدولين واحد اسمه Tbl1 و الاخر اسمه Tbl2 وفي جدول الاول Tbl1 عندك حقل وقت باسم MyTime1 وفي جدول الثاني عندك حقل باسم MyTime2 قم بعمل استعلام هذا INSERT INTO Tbl2 ( MyTime2 ) SELECT DateAdd("h",-2,[Tbl1]![MyTime1]) AS Expr1 FROM Tbl1 WHERE (((Tbl1.ID)=[Forms]![Frm1]![ID])); وهذا شرح للجملة اضافة الى جدول Tbl2 حقل MyTime2 INSERT INTO Tbl2 ( MyTime2 ) حدد : هنا قمنا باستخدام دالة DateAdd لكي ننقص ساعتين h هو رمز الساعة -2 لكي ينقص ساعتين احذفه من جدول Tbl1 حقل MyTime1 SELECT DateAdd("h",-2,[Tbl1]![MyTime1]) AS Expr1 من جدول Tbl1 FROM Tbl1 بشرط حقل ID في جدول Tbl1 بيكون يساوي مربع نصي باسم ID في جدول Frm1 WHERE (((Tbl1.ID)=[Forms]![Frm1]![ID])); وقم بتشغيل الاستعلام بواسطة زر DoCmd.SetWarnings False DoCmd.OpenQuery "Q1", acViewNormal DoCmd.SetWarnings True والسلام

برغم الموضوع مخالف وهو في شروط المنتدى ممنوع استخدام مساعدة ولكن بعد اذن المشرفين شوف المرفق كان لازم تضيف استعلام وتغير فيه اسم التقرير ProgAssit40.mdb

Like "*" & fx() & "*"

حياك الله ابو ياسين ان كنت تقصد ان تحل دالة الادخال مكان مربع حوار البراميتر اعمل دالة عامة في وحدة نمطبة عامة ومثلا function xf() xf=inbutbox("ادخل المعيار") end function وفي الاستعلام وفي معيار اي عمود اكتب ()xf سيظهر مربع الدالة وحسب القيمة المدخلة ستكون قيمة للمعيار بالتوفيق

بالتوفيق اخي حربي العنزي الله يحفظك ولك بالمثل

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

كم يتأخر عندك عندي يتأخر تقريبا ثانيتين فقط وهذا جيد حسب مواصفات الجهازي شوف الفيديو عند الضغط على open حتى فقتح النموذج يبدأ من ثانية 2 الى 4 2018-09-19_20-13-52.rar

جمله السكويل بعد ان تعمل الاستعلام اضغط خيارات يطلع عرض او تصميم او سكويل شوف الصور

دائما انا استخدم هذه الطريقة Form_FormName بدل هذه الطريقة Forms!FormName لكن هناك شرط في طريقة اللي استخدمه وهو يجب ان يكون محرر فيجوال للفورم مفتوحة

اذن الجماعة بانتظارك لكي تعمل نسخة عملية وفيه كل الملاحظات 😊

السلام عليكم يمكنك عمل ذلك باستخدام تحديد الباينات Data Validation بالملف المرفق ، لايسمح لك بتكرار البيان إذا سبق وضع نفس البيان في العمود B الأصفر وأيضا يعطي عند تكرار البيان رسالة تنبيه / تحذير منع تكرار بيانات في نفس العمود.xlsx

السلام عليكم تفضل كود سريع Sub distrib() [A9999].End(xlUp).Select Range(ActiveCell, Selection.End(xlUp)).Select For i = 1 To Selection.Rows.Count Step 2 [B9999].End(xlUp).Offset(1, 0) = Selection(i) [C9999].End(xlUp).Offset(1, 0) = Selection(i + 1) Next i Selection.Clear [A6].Select End Sub أنظر المرفق به الكود مع زر تشغيل أخي الكريم/ علي محمد علي جزاك الله خيرا أصبح وقتي بالعمل والأسرة ضيق .. دعواتك توزيع بيانات عمود علي عمودين.xlsm

السلام عليكم اخي الكريم بما انه يهمك سماع رأينا فاليك بعض الملاحظات التالية لتصبح الفاتورة اكثر احترافية 1- يجب ان يكون عمود الاجمالي قابل للكتابه فيه بحيث لما اكتب فيه يقوم البرنامج بتعديل السعر ولما اكتب بالسعر يعدل البرنامج الاجمالي 2- يجب ان يكون في الاصناف الوحدات وهو امر ضروري جدا بحيث نستيطع تحديد اني اريد بيع قطعة او دستة او كرتونة من نفس الصنف 3- يجب ان تحتوي الفاتورة على تحديد عملات فمن الممكن ان نستخدم اكثر من عملة في الفواتير 4- يجب ان تحتوي الفاتورة على طريقة الدفع نقدي ام اجل او بشيك او بورقة تجارية 5-يجب ان تحتوي الفاتورة على مستودع توضع فيه البضاعة المشتراة او المباعة 6- يجب ان يكون في الفاتورة مربع نص يحوي اجمالي الفاتورة و صافي الفاتورة والحسم والاضافات 7- يجب ان يكون في الفاتورة دفعة نقدية اولى في حال كانت الفاتورة اجلة فقد يدفع الزبون مباشرة جزء من الفاتورة 8- يجب ان يحوي جسم الفاتورة على عمود ملاحظات لاقلام الفاتورة فقد يحتاج المستخدم ان يسجل ملاحظة عن كل صنف في الفاتورة 9- يجب ان تحوي الفاتورة على زر حذف للفاتورة كاملة وليس لاصناف الفاتورة مع رسالة تنبيه للحذف فقد يضطر المستخدم لحذف فاتورة ما 10 - مربع التحرير والسرد سيء جدا في البحث في حال وجود عدد كبير من الاصناف وعدد كبير من الزبائن فهو يبحث في الاحرف الاولى من الاسم اتمنى ألا اكون قد اثقلت عليك بملاحظاتي فانا محاسب ومتعامل مع الفواتير بشكل كبير فارجوا ان تكون ملاحظاتي لك حافزا على تحسين عملك وتقدم انجازاتك في المنتدى تحياتي لك

نعم لائحة أسماء دون تكرار ومرتبة أبجدياً بدون ماكرو ولا فلتر فقط (معادلات) اللائحة تتجاهل الفراغات و الارقام (فقط نصوص) لرؤية المعادلات يكفي رفع الحماية عن الشيت/ بدون كلمة مرور ترتيب ابجدي.xlsx

حياك الله اخي ابا ياسين انا اخطأت في اسم الدالة وكنت اكتب في المحرر مباشرة الدالة inputbox بالتوفيق

تسلم اخي رمهان انا حاولت في مثل هذة من قبل ياليت لو تخبرني كيف اعملها بهذا المعيار Like "*" & [ادخل اسم القماش] & "*"

الحمد لله الذي بنعمته تتم الصالحات لقد تم الأمر على خير ما يرام و بطريقة مركبة شغلت فيها زراً عن طريق زر آخر .. شكراً أستاذي @Shivan Rekany

تفضل اخي أبو زاهر واعذرني لقلة تواجدي للانشغال في بداية العام الدراسي ضع هذا الكود في حقل الشهر الحالي: =DSum("[Alkmiah]","[Hrakatsanf]","[ID_Sanf]='" & [ID_Sanf] & "'" & " And [Nwaha] = 'مبيعات' And [Atarih] >= #" & Format(DateSerial(Year(Date()),Month(Date()),1),"yyyy-mm-dd") & "#")

السلام عليكم أستاذ @Shivan Rekany لقد توصلت إلى الأمر التالي ME.CB100.SELECTED(1) = true 'اختيار السطر الأول ME.CB100.SELECTED( CB100.LISTCOUNT--2) = true IF ME.CB100.LISTCOUNT = 0 or IF ME.CB100.LISTCOUNT = 1 then me.cb100.setfocus else ME.CB100.SELECTED( CB100.LISTCOUNT-2)= true END IF إضغط و إسحب للتحريك

تم ذلك عن طريق التقرير الفرعي

تم الجواب على ها السؤال اليك الرابط

اتفضل اليك هذا عند تحميل النموذج get استخدم هذا الكود و لا تهتم بالاستعلام اي تقدر تحذف الاستعلام Private Sub Form_Load() If CurrentProject.AllForms("نموذج_التنقل").IsLoaded = True Then Me.RecordSource = "SELECT ged.num_modaf, ged.num_adarh, ged.num_ged, ged.n_t_m, ged.date_ged, ged.Year, ged.num_mudkrh, ged.mostfed, ged.sader, ged.[adarh-mrfua], ged.mony, ged.subject, ged.mrfgt, ged.moment, ged.date_out, ged.adarh_out, ged.halah, ged.moment2, ged.out FROM ged WHERE (((ged.num_ged)=[Forms]![نموذج_التنقل]![NavigationSubform].[Form]![y]) AND ((ged.n_t_m)=[Forms]![نموذج_التنقل]![NavigationSubform].[Form]![t]));" Else Me.RecordSource = "SELECT ged.num_modaf, ged.num_adarh, ged.num_ged, ged.n_t_m, ged.date_ged, ged.Year, ged.num_mudkrh, ged.mostfed, ged.sader, ged.[adarh-mrfua], ged.mony, ged.subject, ged.mrfgt, ged.moment, ged.date_out, ged.adarh_out, ged.halah, ged.moment2, ged.out FROM ged WHERE (((ged.num_ged)=[Forms]![ged]![y]) AND ((ged.n_t_m)=[Forms]![ged]![t]));" End If End Sub اليك المرفق عنصر التنقل.accdb

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

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

جرب هذا الملف طالما انك لم تقم برفع ملفك على الرغم عدم رفعك للملف هذا يكون مضيعة للوقت لأن الملف الذى سأقوم برفعه الأن اذا لم يناسبك بذلك قد ضيعت الوقت لأنك سوف تقوم برفع ملفك بعد ذلك ونبدأ بذلك من البداية حذف صف معين مكرر فى كل الصفحات عند الوقوف عليه.xlsm

يا اخي ارفع ملفاً يستطيع الانسان ان يفهم منه شيئاً مثلاً عندك جدول من صفين و كل اعمدته ابتداء من العامود الثالث تساوي صفر او فراغ ماذا تريدنا ان نعمل الرجاء رفع ملف جديد فيه بعض البيانات (10 15 سطر) مع شرح ما تريد و وضع جدول ( ثاني ) بالنتائج المتوقعة

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

موضوع أكثر من رائع بارك الله فيك أستاذسليم

استعمال الدالة Index لا تلزمك استعمال Ctrl+Shift+Enter اذا كانت وحيدة في Formula لكن اذا استعملت معها في نفس Formula دالات اخرى مثل If او Match يجب ادخال Ctrl+Shift+Enter مثلا : =IF(ROWS($A$1:A1)>$G$1,"",INDEX($A$1:$A$100,SMALL(IF($A$1:$A$100<>"",IF(MATCH($A$1:$A$100,$A$1:$A$100,0)=ROW($A$1:$A$100)-ROW($A$1)+1,ROW($A$1:$A$100)-ROW($A$1)+1)),ROWS($A$1:A1)))) واعتقد (لست متأكداً) ان استعمال Ctrl+Shift+Enter يسرع في عملية البحث اذا كان هناك الكثير من الصفوف (فوق الـ 500)

هذه المعادلة (Ctrl+Shift+Enter) =MAX(INDEX(INDIRECT($J$2),,1)) اذا لم تعمل بدل الفاصلة العادية الى فاصلة منقوطة لتصبح هكذا (لا تنس Ctrl+Shift+Enter) =MAX(INDEX(INDIRECT($J$2);;1))

من خلال الصورة انه في خطا في الاسم form فهو forms! main ولو ترفق مثال مصغر يكون افضل

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

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

السلام عليكم ورحمة الله و بركاته أحبتي كلمة فك الحماية المجلد الضغط هي ٥ و أيضا هي نفسها لفك الحماية للصفحة هي ٥ لا تنسونا من صالح دعائكم فك الحماية بكتابة رقم ٥ فك الحماية بكتابة رقم ٥ جزاكم ربي بالمثل

تفضل 1.xlsx

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