رمهان

اذهب لحدث قبل التحديث لنموذج الادخال والصق لسطر التالي Cancel = Not DLookup("[الحركة]", "[الفترات المحاسبية]", "form![التاريخ] between [البداية] and [النهاية]") بالتوفيق

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

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

اختي الفاضلة ومشاركة مع اخي محمد ايمن بما انه لا يوجد شروط او محددات لسجلات محددة فيمكن كتابة الجملة التالية DoCmd.RunSQL "insert into WareHouse(barcode,quantity,branch) select barcode,quantity,branch from sales" وحبيت اوضح المشكلة لديك سابقا وهي ليست مشكلة وانما خطأ منطقي فكودك السابق يضيف القيم من النموذج وعند السجل الحالي وهو السجل الذي به مؤشر محدد السجلات وهنا بالطبيعي سيتم اضافة بيانات سجل واحد وهو الحالي ولكي نستخدم نفس فكرتك ودمجا مع فكرة الاستاذ محمد ايمن يمكن الدوران وعبارة عن ان انقل محدد السجلات لاول سجل ثم الادراج والانتقال للتالي ثم الادراج وهكذا وهنا ساقوم بتعديل بسيط بكودك السابق يقوم بالادراج من اسجل الحالي وما بعد وحسب رغبتك في تحديد البدء بالادراج وذلك بنقر سجل البدء For i = CurrentRecord To Me.RecordsetClone.RecordCount DoCmd.RunSQL " INSERT INTO WareHouse ( [barcode], [Quantity], [Branch])values ( '" & Me.[barcode] & "', " & -Me.[quantity] & ", " & Me.[branch] & ");" DoCmd.GoToRecord , , acNext Next بالتوفيق

واحدة تكفي وجرب عند on load فقط

غير بخصائص auto resize auto center fit to screen والله اعلم

عزيزي خلينا نضع الاجابة هنا لتعم الفائدة اريد الاجابة على 1. اين وضعت امر التكبير 2. خاصية نوع الاطار border style للنموذج

ممكن المرفق؟ واين وضعت امر التكبير؟ عند اي حدث للنموذج؟

مشاركة مع الاستاذ حلبي وبتعديل مشاركته بعد اذنه الاجمالي: DSum("[TXT3_3]","TABL3","[TXT4_3]='مستعمل' and [TXT1_3]='" & [TXT1_3] & "'") وللجديد عدل كلمة مستعمل ل جديد بالتوفيق

جرب منبثق = نعم كما ان الامر تكبير لم تذكر موقع الحدث ؟

بعدىالتحية اخينا فارس بني هلال اعتقد ان الموضوع شبيه لحد ما التالي ان لم يكن نفسه https://www.officena.net/ib/topic/67899-لماذا-لا-يعمل-الماكرو-worn/ تحياتي

اخي علي لا اخفيك انه بعدما تبين السؤال تبين عمقه لعل هذا المطلوب وتلاحظ ان لي محاولات بافكار لم تكتمل تركتها في الملف كمرجع لي لاحقا الملف به تطبيق لجملة استعلام لعلها ادت المطلوب هناك مربع نص يمكنك اخفاؤه ومهمته حسبة عدد المعايير المستخدمة بالتوفيق Forum.rar

ضع السطرين خلف الزر استعلام وعند حدث عند النقر Me.Filter = "[" & Me.مربع_تحرير_وسرد54 & "] is null" Me.FilterOn = True بالتوفيق

السلام عليكم كذلك ابدي اعجابي بالسؤال وبيشغل البطيخة على مقولة الاستاذة زهرة واعتقد انه لم يمر على المنتديات العربية هذه محاولة مع الاستاذ يوسف والفكرة فكرة ترتيب فتم اضافة حقل للترتيب فقط في جدول main بالتوفيق ترتيب سجلات.rar

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

السلام عليكم اسمحو لي بتعليق بمثابة التنويه في المشاركة الثانية تم اغفال شرط المقارنة من الاستاذ ابو خليل واعتقد نسيانا مما جعل الاخ ابو نادر يتركه في مثاله المرفق وهذا سيسبب خطا على كل حال ورايت بان اخ ابو نادر غير النص في الجدول الى انجليزي بدلا من العربي اي كتبت electronic بدلا من الالكترونيات وهذا ليس مطلب للحل ابدا بل ستظهر بيناتك في تقاريرك بالانجليش تكرما اخ ابو نادر تجربة التالي فالموضوع من حسن الحظ ان شرط التاريخ هو تاريخ اليوم من ما يجعل دالة date() كفيلة سواء تارخ هجري او ميلادي If Nz(DLookup("[raf]", "tamam_tarhel", "[raf]='electronic' And [tarekh]=date()"), 0) <> 0 Then بالتوفيق

وجدت لكم بالجعبة الفقيرة السطر التالي ولطلب الاخ محمد سلامة Private Sub Form_BeforeInsert(Cancel As Integer) ID = "S" & Replace(Nz(DMax("id", "tbl1", "id like 's" & Right(Year(Date), 2) & "*'"), "s" & Right(Year(Date), 2) & "00000"), "s", "") + 1 End Sub كما يمكن وضع السطر السابق كقيمة افتراضية للعنصر وبدون كود بالتوفيق

لي تعقيب بسيط للتنبيه والفائدة هنا هذا الشرط ليس لوجوده اهمية فهو يعمل مقارنة بين متغيرين تم اخذ قيمة لهما فوجوده زائد xLast = CLng(Right(DMax("ID", "tbl1", prtTxt = prtyr), 5)) اي يمكن ان يصبح السطر هكذا xLast = CLng(Right(DMax("ID", "tbl1"), 5)) كما ان استخدام الدالة clng لاحقا للتحويل تحتاج لوقفة ولكن بعد تفضل الاستاذ ابو خليل بشرح السبب ؟ فقد يبطل العجب ! وهنا استسمح صاحب الموضوع باختصار الكود بدون اي فكرة اضافية او عملية اختزال Private Sub Form_BeforeInsert(Cancel As Integer) prtyr = Right(DatePart("yyyy", Date), 2) xLast = Right(DMax("ID", "tbl1"), 5) If IsNull(xLast) Then xNext = 1 Else xNext = xLast + 1 End If Me!ID = "S" & prtyr & Format(xNext, "00000") End Sub تحياتي

جرب ان تضيف قيمة واحدة على الاقل في حقل id ولتكن 1600001 ادخل قيم غير تاريخ الجهاز لسنة 2017 وهكذا طبعا بدون اضافة اللاحقة النصية تحياتي

انا ساشارك مجاراة مع الموضوع الاصلي حتى لو انه منطقيا فقط في حالة ان الترقيم لن يتعدى خمس خانات بعد كود السنة اي فرضا لو وصل الترقيم 1399999 اي هناك اكثر من تسعة وتسعون الف وتسعمائة وتسع وتسعون سجل في السنة سنة 2013 فماهي السياسة في الزيادة . فلو استمرينا باضافة 1 سيكون السجل التالي يبدا 14 ونحن مازلنا في نفس السنة . ولكن حسب رأي الاخ محمد سلامة بانه لن يحصل خلال السنة فهذا الكود سيعمل وبدون اللاحقة s . لكي يضل المحتوى نفس الموضوع. Private Sub Form_BeforeInsert(Cancel As Integer) If Right(Year(Date), 2) > Left(DMax("ID", "tbl1"), 2) Then xNext = Right(Year(Date), 2) & "00001" Else xNext = DMax("ID", "tbl1") + 1 End If ID = xNext End Sub

لو ترفع موضوعا جديدا افضل وهل ممكن يصل الترقيم لديك الى 1699999 ؟!!

هذا الكود خلف زر الترتيب وعند النقر Me.نموذج_فرعي_جدول1.Form.OrderBy = "nom,adress,anne,place" Me.نموذج_فرعي_جدول1.Form.OrderByOn = True بالتوفيق

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

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