بوعبد الله محفوظ

نعم نجح بارك الله فيك وزادك من فضله

شكرا جزيلا أخي الكريم لكن هل كانت هذه الخاصية من قبل ام تم إضافتها موخرا وما فائدتها

السلام عليكم ورحمة الله تعالى و بركاته اريد من subform ان يقوم بعمل فلتر حسب قيمة opérateur و heure عملت كالمعتاد query ثم ربطته بالفورم لكن للأسف لم يشتغل لا أدري أين الخلل رغم أني مجرب هذه الطريقة وهي فعالة هل من معين بارك الله فيكم وفي علمكم RealisationReintegration - 5 - Copy.rar

جميل جدا آسف على الازعاج

للأسف الكود لم يشتغل عندي أنا الأن عندي الساعة 19 مساء والبرنامج يقوم بتفعيل الخير الثالث هل من طريقة آمنة لتفادي تغير المعلومات

أخونا الكريم في الصباح لما جربت البرنامج اشتغل عادي لكن في المساء رفض يشتغل قمت بتغير ساعة الجهاز الى 09 صباحا ثم 10 صباحا لكن أيضا لم يشتغل وارجوا منك شرح بسيط للكود مع العلم أني استعمل نظام الساعات 24 لذا لم أفهم لماذا تم إدراج AM و PM في الكود وأيضا لقد وضعت الكود في Form_Load بهذه الطريقة هل ستتأثر المعلومات المخزنة من قبل أم لا مع جميل تحياتي

مشكورا أخونا الغالي alwazeer وبارك الله فيك وفي علمك ورزقك من فضله

السلام عليكم ورحمة الله تعالى وبركاته أريد أن أقوم بتغير قيمة Frame12 حسب ساعة الكمبيوتر فإذا كانت الساعة بين 08 صباحا و 16 مساءا يقوم بتفعيل الخيار الأول وإذا كانت الساعة بين 16مساءا و 24ليلا يقوم بتفعيل الخيار الثاني وإذا كانت الساعة بين 24 ليلا و 08 صباحا يقوم بتفعيل الخيار الثالث قمت بإضافة textbox وقي القيمة الافتراضية جعلتها Time() بعد ذلك أضفت هذا الكود If 8 < Hour([Text23]) < 16 Then Me.Frame12.Value = 1 ElseIf 16 < Hour([Text23]) < 24 Then Me.Frame12.Value = 2 Else Me.Frame12.Value = 3 End If لكن دون فائدة Fram12.rar بارك الله فيكم وفي علمكم

كل الشكر موصول لك أستاذنا الكريم أبو خليل

شكرا أستذنا أبو خليل على الرد لكن الاشكال مازال حاصل وهو عدم عرض البيانات وأيضا لماذا عند التعديل على " Column Widths " يتم عرض البيانات

السلام عليكم ورحمة الله تعالى وبركاته عندي فورم بهذا الشكل يعمل بشكل جيد المشكلة عند الرجوع إلى الوراء لتفقد المعلومات الكمبو "STR" لا يقوم بعرض المعلومات رغم أنها متوفرة في الجدول وفي "Column Widths" كالتالي 0;5;0 لكن إذا غيرتها إلى 0;5;5 يتم عرض المعلومات طبعا أرقام المثال Access 2003 هل من حل بارك الله فيكم وفي علمكم cascade.rar

لقد نجحت التجربة بارك الله فيك أستاذنا الغالي

مشكور أستاذتا الغالي على الاهتمام وهذا الذي يحيرني لقد عملت كما تفضلتم لكن النتيجة نفسها

السلام عليكم ورحمة الله تعالى وبركاته عندي في فورم الفاتورة فورم فرعي الفاتورة_الشركة أريد عند تساوي القيمتين رقم الفاتورة في النموذجين يتحول اللون للسجل الفرعي خاصة عند الرجوع للخلف أو التقدم للأمام المشكلة عندي أنه يقوم بتلوين تكست بوكس واحد فقط وأنا أريد تلوين كامل السجل المعني بارك الله فيكم وفي علمكم الفاتورة 9.rar

للرفع

لا عليك أستاذنا الكريم لقد وجدت الحل رغم أنني جربته في المرة الأولى إلا أنه لم ينجح وبعد إعادة بناء البرنامج من جديد نجحت التجربة

أستذنا أبو خليل لقد قمت بتطبيق المثال الأخير If DLookup("رقم", "جدول", "[إسم العميل]='" & Forms![نموذج]![إسم العميل] & "'") <> رقم Then لكن المشكلة التي واجهتني هي إذا كان إسم "Primary Key" في الجدول يتكون من مقطع واحد مثلا "رقم" اشتغل البرنامج عادي أما إذا كان يتكون من مقطعين كمثل "رقم العميل" وهو الحاصل عندي لا يشتغل البرنامج ومهما غيرت لم أفلح فمرة الشرط لا يشتغل ويسجل كل شيء ومرة لا يسجل أي شيء وأخرى بناء الكود يحتوي على خطأ كما أني لا أستطيع تغير الاسم لأنه مرتبط ببيانات أخرى هذا جزاء من لا يتبع القواعد في التسمية أكاد أجن من هذا الكود ساعدني من فضلك بيانات مكررة.rar

أستذنا أبو خليل لقد استمتعت بالمناقشة التي دارت بينك وبين الاستاذ رمهان لكن صادفني هذا الكود للاستاذ رمهان If Nz(DLookup("id", "[تنظيم الجدول]", "[كود اليوم]&[الفترة]&[القاعة]&[الدكتور]='" & كود_اليوم & الفترة & القاعة & الدكتور & "'"), 0) <> id Then Cancel = MsgBox("مكرر") لم أستطع استيعاب بناء الجملة إذا تكرمت علينا باستبدال العربية بالانكليزية واعادة كتابة الكود حتى نستوعبه آآآآآآآآآآآآآآسف على كثرة الطلبات

إذا ممكن تتفضل علينا بإعادة كتابة الكود لكن باستبدال العربية بالانكليزية حتى نستوعب بناء الجملة

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

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

السلام عليكم ورحمة الله تعالى وبركاته قمت بإضافة كود في نموذج العملاء يسمح بالحفظ فقط عن طريق زر حفظ عدم السماح بتكرار المعلومات Option Compare Database Private msaved As Boolean Private Sub btnSave_Click() On Error GoTo btnSave_Click_Err On Error Resume Next msaved = True . . . End Sub Private Sub Form_BeforeUpdate(Cancel As Integer) If msaved = False Then Cancel = True Me.Undo Cancel = False End If 'للتأكد من عدم تكرار المعلومات If DCount("[إسم العميل]", "العملاء", "[إسم العميل] = [forms]![العملاء]![إسم العميل]") >= 1 Then Cancel = True Me.Undo MsgBox "إسم العميل الذي أدخلته موجود مسبقا", vbExclamation, "معلومات مكررة" Me.العميل_إسم.SetFocus End If End Sub Private Sub Form_current() msaved = False End Sub المشكلة التي تواجهني الآن هي لو كان العميل مسجل مسبقا وأريد تعديل بعض البيانات بالضغط على زر تعديل عند الحفظ تظهر رسالة تكرار المعلومات كيف يمكن تجاوز هذه المشكلة بارك الله فيكم وفي علمكم الفاتورة 8.rar

وجدت الحل لمشكلة فظهرت مشكلة جديدة عدم عمل الأكواد سببه أن الكمبو بوكس إسم العميل في النموذج ترحيل فاتورة لم يكن يملك ""control source" DoCmd.OpenForm "ترحيل فاتورة", , , "[إسم العميل]= " & Me.إسم_العميل المشكلة الجديدة التي ظهرت هي أن بعض العملاء يفتح الفورم عادي لكن البعض الآخر يفتح لكن بدون أي بيانات لو أخترنا "Algerie Poste" أو "EPSP COLLA" يفتح مع عرض البيانات لكن لو اخترنا "SNC BELARBI AHMED ET CIE" أو "SARL LOTFI ELECTRONICS" أو "INSFP BBA" يفتح النموذج لكن لا يعرض أي بيانات هل من حل بارك الله فيكم الفاتورة 7.rar

السلام عليكم ورحمة الله تعالى وبركاته عندي في نموذج الفاتورة رز أمر ترحيل فاتورة أريد عند إختيار إسم العميل ثم الضغط على زر ترحيل فاتورة يقوم بفتح النموذج ترحيل فاتورة بنفس إسم العميل المختار في النموذج الفاتورة ملاحظة: وجدت عدت حلول وجربتها جمعيها لكن للأسف لم تعمل معي من بين الاقتراحات التي جربتها وهي لمدير الموقع السيد :محمد طاهر كما يقول الكتاب Dim stLinkCriteria As String stLinkCriteria = "[FieldnameinnewForm]=" & [Forms]![CurrentFormNAme].[Form]![FieldNameinCurrentForm] DoCmd.OpenForm "NewFormname", , , stLinkCriteria أو للسهولة DoCmd.OpenForm "NewFormName", , , "[FiledNAme]= " & Me.FieldnameinCurrentform وأيضا DoCmd.OpenForm "frm_Street_Names_Offs", , , "[StreetNameID]=" & Me![LeaveBy1_ID_Combo].Column(0) وأيضا Dim RName, FldCriteria As String RName = "ÊÑÍíá ÝÇÊæÑÉ" FldCriteria = "[CustomerF]=" & Me![CustomerID] DoCmd.OpenForm RName, , , FldCriteria هل من أفكار بارك الله فيكم وفي علمكم الفاتورة6.rar

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