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

ربما هذا المطلب .... جرب المرفق !! DATE _1.accdb

حياك الله اخي الكريم ..... بالتوفيق

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

غير مصدر النموذج الى TABLEMARKAZ1 بدلا من STABLEMARKAZ1

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

المطلوب غير واضح لي بصورة كافية ومحاولات الأستاذ جعفر ناتجة عن عدم وضوح المطلوب له أيضا وحسب فهمي للمطلوب: فأنت لا تريد دالة وإنما تريد إجراء sub تعطي له رقم id يعرض لك رسالة msgbox إن كان هذا هو المطلوب فجرب هذا الإجراء Public Sub MSG(ID As Integer) Dim Message As String, TItle As String Message = DLookup("[txtMessageText]", "[tblMessages]", "[txtAutoIntMessageID] =" & ID) TItle = DLookup("[txtMessageTitle]", "[tblMessages]", "[txtAutoIntMessageID] =" & ID) MsgBox Message, , TItle End Sub وهذه طريقة استدعائه في البرنامج Sub mas() MSG (1) End Sub أرجو أن يكون هو المطلوب

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

اعتقد المشكلة لديك في نوع العلاقة !!!!

هذه طريق اخرى تم استخدام هذا الكود ... On Error Resume Next If DCount("ID", "تذيل المبيعات", "[رقم_الباركود_ت] = '" & xxx1 & "' And [رقم الفاتورة] = " & kan & "") > 0 Then DoCmd.SetWarnings False DoCmd.RunSQL "UPDATE [تذيل المبيعات] SET [تذيل المبيعات].العدد = [تذيل المبيعات].[العدد]+1 WHERE ((([تذيل المبيعات].رقم_الباركود_ت)=[forms]![فاتورة مبيعات]![تذيل المبيعات].[Form]![xxx1]) AND (([تذيل المبيعات].[رقم الفاتورة])=[forms]![فاتورة مبيعات]![رقم الفاتورة]));" Me.Undo DoCmd.RunSQL "DELETE DISTINCTROW [تذيل المبيعات].العدد, [تذيل المبيعات].رقم_الباركود_ت, [تذيل المبيعات].[رقم الفاتورة] FROM [تذيل المبيعات] WHERE ((([تذيل المبيعات].العدد)=1) AND (([تذيل المبيعات].رقم_الباركود_ت)=[forms]![فاتورة مبيعات]![تذيل المبيعات].[Form]![xxx1]) AND (([تذيل المبيعات].[رقم الفاتورة])=[forms]![فاتورة مبيعات]![رقم الفاتورة]));" DoCmd.SetWarnings True Else Me.سعر_البيع.Requery Me.سعر_البيع = Me.سعر_البيع.ItemData(0) [Forms]![فاتورة مبيعات]![تذيل المبيعات]![نص40] = [Forms]![فاتورة مبيعات]![تذيل المبيعات]![نص40] - [Forms]![فاتورة مبيعات]![تذيل المبيعات]![العدد] DoCmd.Requery End If تجربة_7652.accdb

اريد كود لمنع تكرار ادخال البيانات بشرط فى عامود اخر بمعنى عند ادخال رقم الموظف فى الربع الاول و عند ادخال نفس الموظف مرة اخرة لنفس الربع لا يتم القبول و انشاء رسالة تحذيرية حيث لا يتم تكرار الموظف نفسه فى نفس الربع و هذا من خلال اليوزرفورم و حيث انه تم عمل المطلوب من خلال data validation و لم يتم الوصول للمطلوب بالملف المرفق Copy of GCC_Expense_Report_Tax_Details_190621 1_.xlsb

تجيه طيبه .. فعلا المطلوب هو البحث كما تفضلت وجزاك الله خيرا

أخي kanory شكرا جزيلا جعله الله في ميزان حسناتك

مشكور حضرتك للحل و تم التجربة لكن على الملف المرفق عند تجربته لكن بدلا من العمود B اريد تطبيقه على العمود D يتم التكرار مرتين او ثلاثة ممكن مساعدتى فى الملف المرفق مرة اخرى و شكرا مقدما Copy of GCC_Expense_Report_Tax_Details_190621 1_تم التعديل.xlsb

مرفق الملف مع الاكواد كود لمسح كامل النموذج اضغط على الفرشاة للتنظيف Range("J2:M2").ClearContents Range("A8") = "" Range("B8") = "" Range("C8") = "" Range("E8") = "" Range("B11:H319").ClearContents ActiveWindow.LargeScroll Down:=-99 كود للبحث اضغط على البحث تم اضافة خلايا جانبيه مع بعض الدوال لعمل الكود للبحث Dim TC, RN1 As Range, RN2 As Range, RN3 As Range Range("J2:M2").ClearContents For TC = 10 To 13 If Cells(3, TC) = "" Then GoTo 9 Else Cells(2, TC) = Cells(3, TC).Value End If 9 Next 'tr Set RN1 = Sheets("DATA").Range("B5:J55555") Set RN2 = Sheets("Dates").Range("J1:M2") Set RN3 = Sheets("Dates").Range("B10:H555") RN1.AdvancedFilter Action:=xlFilterCopy, _ CriteriaRange:=RN2, CopyToRange:=RN3, Unique:=False انظر المرفق N BANK.xlsm

السلام عليكم و رحمة الله وبركاته اخي الكريم طيب نحنة ممكن نعمل بحث شامل من تاريخ الى تاريخ اسم المستفيد: اذا تركته فارغ يعطيك كل المستفيدين خلال الفترة البيان: تكتب اي 3 احرف البيان تظهر لك البيان التي تحتوي على هذه الحروف خلال الفترة او انتركته فارغ يعطيك كل البيان الموجود خلال الفترة ان شاء الله بسيطة

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

تفضل الحل ... عن طريق الكود !!! Copy of GCC_Expense_Report_Tax_Details_190621 1_تم التعديل.xlsb

وعليكم السلام 🙂 طريقتي: الدالة: Public Function getMSG(ID As Integer, ind As Integer) As String ' Dim A As String ' Dim x() As String ' ' A = DLookup("[txtMessageTitle] & '|' & [txtMessageText]", "[tblMessages]", "[txtAutoIntMessageID] =" & ID) ' x = Split(A, "|") ' getMSG = x(ind) ' 'OR combine in one line getMSG = Split(DLookup("[txtMessageTitle] & '|' & [txtMessageText]", "[tblMessages]", "[txtAutoIntMessageID] =" & ID), "|")(ind) End Function . الاستعلام . والنتيجة: . جعفر 1392.Split.mdb.zip

نعم وغير عبارة YOUR_MSG_ID في الكود الى رقم الـ ID الخاص برسالتك التي تريد عرضها

جرب المرفق بناء على صورة الملف المرفق من طرفك مستقبلا ارفاق ملف اكسيل وضع فاصل للتاريخ.xlsx

'define vars Dim splitMessage(), gMessage, gTitle As String 'replace YOUR_MSG_ID with your id splitMessage = Split(getMessage(YOUR_MSG_ID), "||") 'get results gMessage = splitMessage(0) 'get Message gTitle = splitMessage(1) 'get Title 'set in msgbox MsgBox gMessage, vbInformation, gTitle

جرب المرفق Pulldown Menu.xlsx

عليكم السلام Public Function getMessage(msgID As Integer) 'define vars Dim vMessage, vTitle As String 'return values vMessage = DLookup("txtMessageText", "tblMessages", "txtAutoIntMessageID =" & msgID) vTitle = DLookup("txtMessageText", "tblMessages", "txtAutoIntMessageID =" & msgID) 'return values getMessage = vMessage & "||" & vTitle End Function الدالة سوف تقوم بإرجاع قيمة تتضمن الرسالة والعنوان وبين الرسالة والعنوان علامة || لكي تقوم بعمل Split وفصلهم بالشكل الآتي: 'define vars Dim splitMessage(), gMessage, gTitle As String 'replace YOUR_MSG_ID with your id splitMessage = Split(getMessage(YOUR_MSG_ID), "||") 'get results gMessage = splitMessage(0) 'get Message gTitle = splitMessage(1) 'get Title

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

بعد التعديل مثال اوفيسنا اجمالي المبيعات الشهرية.rar

اخوانى الاعزاء ارسل ملف الخاص بيورو 2020 مفتوح المصدر للاستفادة وللامانة هو منقول من موقع اجنبى صور اعلام المنتخبات في جدول المباريات وانتقاله بالمعادلات الى جدول المجموعات حسب ترتيب الفرق وتتغير اماكنها حسب تغير ترتيب المنتخب في مجموعته Euro 2020.xlsx

جميل جدا مشكووووووور

الكلام النظري لن يفيدك أولا يفضل إرفاق ملف أو جزء منه ليساعدك من يستطيع.

حرب هذا الملف لا ضرورة لادراج اكثر من 700 صف لان المكرو الذي يعمل على صف واجد يستطيع العمل على الألوف منها يكفي ادراج نموذح بسيط لما تريد (50 صف كحد أقصى) كما اني لم أفهم ما هي الحاجة الى اليوزر فورم؟؟؟ Option Explicit Sub Get_data() Dim H As Worksheet Dim T As Worksheet Dim LrH%, LrT%, i%, Sd#, _ k%, Se#, My_val#, n% Dim Date1 As Date, Date2 As Date Dim M_date As Date, X_date As Date Dim Fr As Range, Wat As Range, Ro1%, Ro2% Dim x As Boolean, y As Boolean Set H = Sheets("Haraka") Set T = Sheets("Takrir") LrH = H.Cells(Rows.Count, 1).End(3).Row LrT = 20 T.Range("D5").Resize(LrT, 3).ClearContents Date1 = Application.Min(H.Range("C4:C" & LrH)) Date2 = Application.Max(H.Range("C4:C" & LrH)) If Not IsDate(T.Range("D2")) Or Not IsDate(T.Range("E2")) Then MsgBox "Please Type Dates in D2 and E2" Exit Sub End If M_date = T.Range("D2"): X_date = T.Range("E2") If Not IsDate(T.Range("D2")) Or Not IsDate(T.Range("E2")) Then MsgBox "Wrong Dates" Exit Sub End If T.Range("D2") = Application.Min(M_date, X_date) T.Range("E2") = Application.Max(M_date, X_date) M_date = T.Range("D2"): X_date = T.Range("E2") Set Wat = H.Range("A3:A" & LrH) For i = 5 To LrT Set Fr = Wat.Find(T.Range("B" & i), lookat:=1) If Fr Is Nothing Then GoTo Again Ro1 = Fr.Row: Ro2 = Ro1 Do x = H.Range("C" & Ro2) >= M_date y = H.Range("C" & Ro2) <= X_date If x And y Then Sd = Sd + Val(H.Range("D" & Ro2)) Se = Se + Val(H.Range("E" & Ro2)) n = n + 1 End If Set Fr = Wat.FindNext(Fr) Ro2 = Fr.Row If Ro2 = Ro1 Then Exit Do Loop T.Range("D" & i) = IIf(Sd = 0, "", Sd) T.Range("E" & i) = IIf(Se = 0, "", Se) My_val = Val(T.Range("C" & i)) + Val(T.Range("D" & i)) _ - Val(T.Range("E" & i)) T.Range("F" & i) = IIf(My_val = 0, "", My_val) T.Range("G" & i) = IIf(n = 0, "", n) Again: Sd = 0: Se = 0: n = 0 Next i End Sub T_Mansour.xlsm

تفضل الفورم بدون اشرطة الذاتية الإدارية1.rar

Advanced SQL Code Collection (ASCC) is a powerful but easy to use tool for application programmers, database designers and database administrators who need to keep track of and reuse SQL source code. حجمه 670kb حملوه من هنا

السلام عليكم هل يمكن إجراء عملية بحث في أكثر من حقل أحدهما ينتمي لجدول آخر وكلا الجدولين في برنامج واحد مثلاً لدي برنامج يحتوي جدولين خاصين بأرقام الهاتف أحدهما خاص بعملاء المنشأه والآخر خاص بالعاملين وأرغب البحث في حقل رقم الهاتف الموجود في كلا الجدولين . بمجرد أدخال رقم الهاتف يتم البحث عنه في الجدولين في آن واحد .

اخواني الاعزاء تحية طيبة لكم قمت ببناء اربع جداول del_tab,upd_tab,del_tab,sav_tab وعندي اربع ازرار الاضافة/ التعديل /الحذف / الحفض سؤالي وهو انه وعند الضغط على اي من هذه الازرار اريد ان اقوم بادخال على جملة sql استخدمت جملة docmd. ولكن ظهر مربع تاكيد الادخال كيف ممكن مباشرة ان يقوم بالادخال من غير مربعات تاكيد اخوكم محمود

لدي قاعدة بيانات تحوي حقل فيه اسم المستفيد يدّخل في هذا الحقل اسم المستفيد/رقم هاتف1-رقم هاتف ثاني كيف يمكنني الفصل بينهما ووضع الأرقام في خانة وحذف / و - لقد طرحت موضوع الفصل من قبل ولكن هنا يوجد / و - كيف يمكنني عمل ذلك في استعلام و في نموذج مع العلم أن يوجد حقل للهاتف يحمل اسم phone 1 وحقل آخر phone 2 أريد حذف / ثم وضع الرقم الذي بعدها في phone 1 ثم حذف - ووضع الهاتف الثاني في phone2 مع جزيل الشكر لتعاونكم المستمر وآسفة على الازعاج

السلام عليكم ورحمة الله وبركاتة انا بحثت في المنتدى الى ان تكسرت اصابعي . صحيح اني حصلت مثال اخوي ابن مسقط في الصلاحيات بس مافهمت منه شئ: المطلوب/ توضيح طريقة الصلاحيات الموجودة في هذا المثال. لأني محتاجها ضروري وتحياتي هذا المثال http://www.arabteam2000.com/ib/index.php?a...=post&id=184041

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

برنامج جد جميل يقوم بتحويل قواعد البيانات إلى مشروع VisualBasic و من تم يمكنك أن تجعل الملف تنفيذي ذو الامتداد .EXE وهناك ثلاث إصدارات من البرنامج: * إصدار يقوم بتحويل قواعد بيانات أكسس 97 * إصدار يقوم بتحويل قواعد بيانات أكسس 2000 * إصدار يقوم بتحويل قواعد بيانات أكسس 2002 هذه الروابط سوف تفتح لك الصفحة المرادة حتى تتمكن من رؤية صورة البرنامج ومن تمت تقوم أنت بالضغط على MDB Add-in في الجانب الأيمن للصفحة أتمنى أن أكون قد أفدت هذا المنتدى لا تبخلوا علي بردودكم ولو كانت انتقادات والسلام

السلام عليكم أمتداداً للسؤال السابق .. إذا كان عندي قائمة وفيها القول ( رقم السند ، تاريخ السند .. ) ويوجد لدي مربعين نص ( رقم السند ، تاريخ السند ) المطلوب : عند النقر على أحد السجلات في القائمة أن تنقل قيمة رقم السند إلى مربع النص ( رقم السند ) وتنقل قيمة ( تاريخ السند ) من القائمة إلى مربع التص ( تاريخ السند )

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

السلام عليكم جميعا ورحمة الله وبركاته أخوتي أريد برنامج أو طريقة لتحويل من صيغة mde إلى mdb وأسال الله أن يدوم هذا المنتدى إلى التقدم أبو رضوان