Eng.Qassim

استاذ @Moosak انا حملته كثيرا ..ويطلب مني السواقة D.. وانا ليس في حاسوبي تلك السواقة بصراحة ..شلع كلبي(قلبي)..كما نقول في العراقي اخي او ولدي العزيز @Foksh ان كان برنامجك للتسويق فمن حقك ان تعمل ماتشاء لبرامج التنصيب والحماية ..التي لا افهم بها شيئا طبعا اما لابداء الرأي والملاحظات فيمكنك رفع ملف مضغوط دون برامج تنصيب تحياتي لك

عملت لك استعلام NewDateQ و موديول لحساب اخر تاريخ للاستحقاق بعد 6 اشهر يمكنك بناء تقرير او اي شيء تريده ربما هناك طريقة افضل يطرحها الاساتذة ..لكن هذا مافكرت به الان STOCK2.rar

السلام عليكم ماهي علاقة السواقة D

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

العفو منك استاذنا الكبير @شايب انت المعلم ونستفيد منك

عمل Group By لجميع الحقول فقط...مع حذف الرقم التسلسلي ويمكن عمل SELECT DISTINCT في جملة السكوال

الطاهر انك عامل عمود واحد للكومبو اليك هذا المثال combo.rar

انا افضل هذا الخيار حتى لاتحدث مشاكل

هذا بالنسبة الى المبرمج وليس بالنسبة الى المستخدم !! تحياتي مبرمجنا الرائع @شايب

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

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

بصراحة اخي ..اللغة العربية تلخبط الامور 1- اسم مربع التحرير 2- اسم الجدول 3- اسم الحقل

وعليكم السلام.. عن اذن استاذي @ابوخليل ممكن تشرح لنا قليلا عن مشروعك ..لان اختلط الامر عندي ... الذي فهمته ان النموذج الرئيسي عبارة عن بطاقة صنف ...تقوم بأدخال المعلومات من خلال مربعات النص ليتم حفضها في الجدول StageBundleUPC السؤال...ماهي علاقة النموذج Stages subform ؟ ممكن الاستفادة منه في فاتورة المبيعات ..عند الضغط على اي صنف يتم الاضافة الى الفاتورة

وعليكم السلام .. 1- اعمل موديول Public Sub FilterComboAsYouType(combo As ComboBox, defaultSQL As String, lookupField As String) Dim strSQL As String If Len(combo.Text) > 0 Then strSQL = defaultSQL & " WHERE " & lookupField & " LIKE '*" & combo.Text & "*'" Else strSQL = defaultSQL 'This is the default row source of combo box End If combo.RowSource = strSQL combo.Dropdown End Sub 2- في حدث عند التغيير لمربع التحرير يتم استدعاء الدالة هكذا Private Sub Cbocustomer_Change() FilterComboAsYouType Me.Cbocustomer, "SELECT * FROM customers", "customerName" End Sub 3- اجعل خاصية Auto Expand=False

ضع حقل اضافي للكمية في Tb_product اتبع الخطوات في المثال المبسط التالي تحديث المخزون.rar

وعليكم السلام.. لانك واضع احد ادوات الربط بين الرئيسي والفرعي (اسم المورد)..وطالما ان اسم المورد غير موجود في الرئيسي يعطيك هذا الخطا الحل هو [اسم المورد].Visible = True

وعليكم السلام.. تفضل هذه المحاولة البسيطة برنامج حسابات صغير.rar

اخونا @شايب سوف يأخذ اخر رقم لجميع الحقول

احسنت استاذ @ابوخليل كنت اظن ان الدالة لاترى الحقل null وانما رقم ..وبفضل الله وفضلك وجدت الحل كان المفروض ان اختار الحقل saleOrder وليس ItemCode =IIf(IsNull([SaleOrder]);Null;Nz(DCount("*";"SalesOrderDetailsT";"SaleID=" & [SaleID] & "AND SaleOrder <" & [SaleOrder]);0)+1)

لا استاذي @ابوخليل انظر الى التسلسل اريد حقل ت 1 2 3 وهكذا ... وهو يعمل لدي مضبوط .. لكن السطر الاخير الذي ليس فيه اي سجلات يعطي كلمة Error الدالة تعمل جيدا معي ...لكن كلمة Error توحي للمستخدم ان هناك خطأ

اعتقد ان المشكلة في ال ItemCode الاكسس لايرى انها Null وانما رقم

السلام عليكم اعتقد ان الموضوع تناوله بعض الاخوة الافاضل ...بحثت في المنتدى ولم اجد ضالتي ...ربما السبب في عنوان الموضوع المهم ...اني احتاج لترقيم جديد في النموذج الفرعي لكل فاتورة جديدة عملت ذلك حسب ماتعلمته من منتدانا واساتذتنا الكبار ... حاولت التخلص من كلمة Error التي تظهر لي في السطر الاخير ...ولم افلح invoice1.rar

تابع الكود الذي ارفقه الاستاذ @Moosak نوع البيانات غير متطابق... اعتقد الخلل في As Long يصبح As LongPtr

لايوجد خطأ ..فقط استبدل السطر الاول لعدم وجود المكتبة Dim db As DAO.Database

اضافة لما تفضل به استاذ @ابوخليل حاول ان لاتكون التسميات فيها فواصل ...يمكنك في التسمية التوضيحية جرب الكود التالي بعد ان رفعت الفواصل DoCmd.OpenForm "RecordsNote", acNormal Forms!RecordsNote.RecordSource = "SELECT * from AccountsCollects where ID= ID" Forms!RecordsNote.Requery