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

انظر يا حلو .... جرب الملف واعلمنا ..... all-by-yesno.accdb والطرق كثيره .... انت ماذا تريد بالضبط .... هل المقصد تصدير التقرير ام ماذا ؟؟؟؟؟؟

تفضل أخي رعد 🙂 هذا الكود عند فتح التقرير : If Forms!emp!d1 = False Then Me.sname.Visible = False: Me.sname.Width = 0 If Forms!emp!d2 = False Then Me.grade.Visible = False: Me.grade.Width = 0 If Forms!emp!d3 = False Then Me.idcard.Visible = False: Me.idcard.Width = 0 If Forms!emp!d4 = False Then Me.cart1.Visible = False: Me.cart1.Width = 0 If Forms!emp!d5 = False Then Me.cart2.Visible = False: Me.cart2.Width = 0 If Forms!emp!d6 = False Then Me.cart3.Visible = False: Me.cart3.Width = 0 If Forms!emp!d7 = False Then Me.passport.Visible = False: Me.passport.Width = 0 If Forms!emp!d8 = False Then Me.blod.Visible = False: Me.blod.Width = 0 all-by-yesno.rar

السلام عليكم هذا كود اخفاء العمود في نموذج ورقة البيانات If DLookup("[show]", "subreport", "[idd]=" & Idd) = True Then Me.subform.Form.columnName.ColumnHidden = False Else Me.subform.Form.columnName.ColumnHidden = True End If ايضا كود للتحكم بحجم العمود (كل 1 سم يساوي 567 ) Me.subform.Form.columnName.columnWidth = 567 ايضا كود للتحكم بترتيب الاعمدة في النموذج ( 1 هي مكان العمود في النموذج الفرعي ورقة بيانات) Me.subform.Form.columnName.ColumnOrder = 1

وعليكم السلام اخي عمر 🙂 انا متابع الموضوع اول بأول ، وبسبب اني لم استخدم شجرة الحسابات ، فلم اكتب اي مشاركة 🙂 جعفر

الخطأ أنك كتبت اسم مربع النص في الكود هكذا : DoCmd.OpenForm "TypeNam2", , , "[ID]= " & Me.ID والصحيح أن تكتب اسم الحقل كما هو في الجدول هكذا : DoCmd.OpenForm "TypeNam2", , , "[typeID]= " & Me.ID

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

شكرا لحضرتك

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

تفضل اخي نفذ الخطوات التالية https://streamable.com/851pys

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

شكرا اخوي ابو احمد ، نعم كلامك صحيح وفي محله ، اذا تم حذف اي صنف في المنتصف (ما عدا الصنف الاخير) ، فالارقام الجديدة ستكون خطأ 🙂 مثلا : 2001 2002 2003 وتم حذف السجل الذي به الرقم 2002 ، فالرقام الجديدة ستكون خطأ ، لأنها تعتمد على عدد السجلات ، ولا تقرأ آخر رقم. لذا لتصحيح هذا الوضع ، فالكودين التاليين سيجعلان تسلسل آخر صنف صحيح ، ولو تم حذف اي صنف في المنتصف ، والافضل استعمال الطريقة رقم 3 ، لأنها لا ترجع لأخذ البيانات من الجدول ، مثلا: 2001 2003 فيصبح آخر رقم 2004 : Private Sub Name_AfterUpdate() '1 DMax 'only work if the field is empty ' If Len(Me![Number] & "") = 0 Then ' Me![Number] = Nz(DMax("[Number]", "tblName", "[typeID]=" & Me.Parent!typeID), Me.Parent!typeID) + 1 ' End If '3 Recordset 'only work if the field is empty If Len(Me![Number] & "") = 0 Then If Me.Recordset.RecordCount = 0 Then Me![Number] = Me.Parent!typeID + 1 Else Me.RecordsetClone.MoveLast Me![Number] = CLng(Me.RecordsetClone("Number")) + 1 End If End If End Sub . جعفر

بنظري هي الأصح أما الآخريات قد تتسبب في مشاكل عند حذف أحد الأكواد. لاحظت أكثركم عند استخدام دالة Nz يهمل قيمة False ، ما أدري متعمدين أو سقطت منكم سهوا.

في اعتقادي ، مشاركة أكثر من شخص في الرد على السؤال ، يفتق الاذهان ويدمج التجارب ويبلور الافكار وفائدة للجميع ، فمنه نتعلم الطرق الاخرى للإجابة على السؤال

تفضل أخي @أكسس وبس 🙂 تضع هذا الكود في حدث قبل الإدراج للنموذج الفرعي ( وهو نفس كود الأستاذ جعفر بتصرف ) : Private Sub Form_BeforeInsert(Cancel As Integer) Me.Number = Nz(DMax("[Number]", "[tblName]", "[typeID] =" & [Forms]![TypeNam]![ID] & ""), [Forms]![TypeNam]![ID]) + 1 End Sub Code.rar

Private Sub TxtSearch_Change() Dim x As Long Me.TxtSearch.Text = StrConv(Me.TxtSearch.Text, vbProperCase) Me.ListBox1.Clear For x = 4 To Application.WorksheetFunction.CountA(Sheet1.Range("A:A")) a = Len(Me.TxtSearch.Text) If Left(Sheet1.Cells(x, 1).Value, a) = Left(Me.TxtSearch.Text, a) Then Me.ListBox1.AddItem Sheet1.Cells(x, 1).Value Me.ListBox1.List(ListBox1.ListCount - 1, 1) = Sheet1.Cells(x, 2).Value Me.ListBox1.List(ListBox1.ListCount - 1, 2) = Sheet1.Cells(x, 3).Value Me.ListBox1.List(ListBox1.ListCount - 1, 3) = Sheet1.Cells(x, 4).Value End If Next x End Sub ADVANCED SEARSH.xlsm

tabl12-M_H.xlsm

وعليكم السلام أخي الكريم هذه محاولة باستخدام Flash Fill أرجو أن تفيدك Test.xlsx

السلام عليكم ورحمه الله وبركاته مشاركه مع الاستاذ @عمر ضاحى جزاه الله خيرا تم اضافه المعيار التالى فاستعلام الالحاق وهو استعلام فرعى لاضافه الغير موجود بجدول SUP Not In (SELECT SUP.CONTRACT_FILE FROM SUP;) بالتوفيق SUP_3A.accdb

وعليكم السلام أخي أزهر 🙂 عملت لك الكود التالي في حدث عند عدم وجود في القائمة للقائمة المنسدلة : Private Sub numb_NotInList(NewData As String, Response As Integer) CurrentDb.Execute " INSERT INTO tbb ( numb, nameb ) VALUES ( '" & NewData & "' , '" & NewData & "' );" numb = Null numb.Requery numb = NewData End Sub bl.accdb

كما تفضل به استاذي ومعلمي @احمد الفلاحجي ضع في استعلام الالحاق تحت التاريخ معيار = التاريخ الموجود في (الحقل المحدد) في النموذج Forms![myForm]![textDate]

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

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

هذه مجموعة أكواد من حروف البدل أستخدمها كثيرا أثناء إجراء بعض العمليات في الورد، وقد أفادتني كثيرا، وللعلم: كثير من هذه الأكواد استفدتها من إخواننا الأفاضل في هذا المنتدى المبارك، ورأيت نشرها هنا لتعم الفائدة، والله من وراء القصد، وهذه هي الأوامر: - البحث عن كلمة أولها (ال) وآخرها (تنوين) <ال[! ]@[ًٌٍ]> - كلمة أولها (ال) وآخرها (ون) ليس بعدها (فتحة) ال[! ]@(ون)[!َ]> - البحث عن أي كلمة أو رمز، أو رقم: <[! ]*> - البحث عن أي كلمة: <[! ]@> - البحث عن أي كلمتين: <[! ]@> <[! ]@> - البحث عن أي كلمتين الأولى تبدأ بهمزة، والثانية تنتهي بتاء مربوطة: <أ[! ]@> <[! ]@ة> - البحث عن أي كلمتين الأولى آخرها ألف، والثانية تنتهي بالألف: <[! ]@ا> <[! ]@ا> - البحث عن أي فقرة إلى كلمة (في) مثلا للتظليل: <[! ]*في> - تحديد ما بين الفاصلتين: ، <[! ]*>، - تحديد ما بين كلمتين مثل: عن <[! ]*> عن - البحث عن أي كلمة مكونة من حرفين: <[! ]@{2}> - البحث عن أي كلمة مكونة من حرفين آخرها تنوين: <[! ]@{2}[!ًٌٍ]> - البحث عن كلمة خمس حروف ليس منها علامات الضبط: <[! ]@{5}[ًٌٍَُِّْ]> - للبحث عما بين قوسين هلاليين: (\(*)\) - للبحث عن أي رقم دون الحروف: [0???-9] - للبحث عن أي كلمة دون الأرقام: <[أ-ى][! ]@> - للبحث عن أي رقمين بينهما فاصلة: [0???-9]، [0???-9] - لتحديد ما بين شرطتين مائلتين: / [???0-9]*/ - لجعل علامة الحاشية بين قوسين: في مربع بحث اكتب الآتي ^f وفي مربع استبدال اكتب (^&) وهذا الكود يعني أن المكتوب في خانة البحث يساوي المكتوب في خانة الاستبدال، فيمكن استخدامه مع أي حرف وأي رقم، حيث الاستبدال لا ينفع مع أي حرف وأي رقم، لكن بإضافة هذا الكود يصبح الاستبدال متاحا. للبحث عن أي رقم بعده صفر (0) بعده سلاش (/) على صورة (08/):0^#/

انا اعطيتك الحل ، بينما السؤال هو: ما سبب ظهور رسالة تحديث السجلات؟ فالجواب ان اكسس يحذر المستخدم في حالة استعلام: الحاق ، تحديث ، حذف ، وعليه عندنا الطرق التالية لتفادي رسائل التحديث هذه: 1. نطلب من الاكسس ايقاف جميع الرسائل التحذيرية ، ثم نشغيل الاستعلام ، ثم نطلب من الاكسس اعطاء الرسائل التحذيرية (طبعا الرسائل بعد تنفيذ الاستعلام) : . 2. نستخدم الامر التنفيذي (وهذا لن يفتح الاستعلام ، وانما يشغله بشكل صامت) : currentdb.execute ("اسم الاستعلام") . 3. الغاء علامة الصح هنا : . . جعفر

وعليكم السلام 🙂 على زر تنفيذ الامر ، استعمل هذا الكود: docmd.setwarnings false docmd.openquery "اسم الاستعلام" docmd.setwarnings true جعفر

3-1 مقدمة الي الاستعلامات 11-8-2003 3-2 إستعلامات الاختيار - 1 12-8-2003 3-3 استعلامات الاختيار - 2 + الاستعلام المحوري 19-8-2003 3-4 تقسيم لانواع الاستعلامات 25-8-2003 3-5 الاستعلام ذو المتغيرات 29-8-2003 3-6 إستعلام الحذف 5-9-2003 3-7 إستعلام التحديث 10-9-2003 3-8 استعلام الإلحاق14-9-03 3-8 استعلام إنشاء جدول ---17-9-2003 3-11 إستعلام التوحيد 24-9-2003 3-12 باقي استعلامات الاس كيو ال 20-10-2003 ---------------------------------------- وصلة دروس تصميم الجداول http://www.officena.net/ib/index.php?showtopic=2218

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

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

وعليكم السلام يوجد استعلام الحاق باسم q اكتب رقم الفاتوره بالحقل بالنموذج ثم اضغط زر تنفيذ سيتم الحاق البيانات بالجدول tabl2 وعمل ريفرش وعرضها بالنموذج يمكنك بعد ذلك عمل استعلام حذف البيانات التى تم الحاقها بالجدول tabl2 من الجدول conform لم اقم بعمله لانك لم توضح هل تريد حذفها ام الابقاء عليها بالتوفيق استرجاع الفاتورة البيع.mdb

استعلام الحاق استخدمت معه معيار منع التكرار تم منعه من العمل نهائى غير تاريخ اليوم وجرب تضيف كود Not In (select CustomerID from RASEEDB where CustomerID=CustomerID) NCustomers.rar