رمهان

اخي عبداللطيف في مصدر النموذج الفرعي انت وضعت اسم الزيون كمعيار والمفروض ال id بالتوفيق

على نموذج2 سيعمل ؟

جرب استبدال خاصية الاسم بالتالي MsgBox "please fill " & vbNewLine & ctr.Controls(0).Caption بالتوفيق

@ابا جودى هذه مشاركة ومن خلال الموديول2 والنموذج2 ملاحظة : يمكن اضافة الرسالة كباراميتر ومتغيره مثل علامة التاج ةالتي هي هنا * تحياتي - مشكلة عجزت عن حلها - الحقول المطلوبة (1).mdb

بعد اذنك استاذ ابا خليل ممكن ندرج رقم السنة وليس السنة نفسها .. هذا فقط لكي تبقى الجداول نفس التصميم ونفس جملتك في الادراج تصبح INSERT INTO Payment ( Add_doc, Add_doc, قيمة_الإشتراك ) SELECT Leste_general.Add_doc, Tarifer_anee.Add_doc, Tarifer_anee.قيمة_الإشتراك FROM Leste_general, Tarifer_anee WHERE (((Tarifer_anee.Add_doc)=[forms]![Frm_Tarifer_anee]![Add_doc])); تحياتي

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

ياحبيبنا المعقول انك تشوف تاريخي المشاركة وتعرف انه بعد سنتين تقريبا وبنفس الفكرة وحتى اسم المتغيرات وهذا طبيعي بين المنتديات وحتى انا اخذت من ابو فيصل افكار ولكن في في الفكرة هذي المنتدى هنا له السبق وخاصية صورة العنصر نفسها نفس خاصية التسمية المسالة تغيير الخاصية فقط سواء صورة او خلفية او لون وغيرها اخيرا @ابا جودى وبما ان ابا خليل اشاد بالاختصار فاسمح لي هنا اخالفه وفي : لماذا تنشء دالة تاتي بالمسار واحنا اصلا currentproject.path هي تاتي بالمسار فلماذا اضعها في دالة مستقلة وكذلك دالة مستقلة لجلب المجلد فيمكن ادراجها في الكود الذي تفضلت به وهكذا : Private Sub Form_Open(Cancel As Integer) On Error Resume Next Dim ctl As Control For Each ctl In Me.Controls If ctl.ControlType = acCommandButton Then If Not IsNull(ctl.Tag) Or ctl.Tag <> "" Or ctl.Tag <> Null Then ctl.Picture = CurrentProject.Path & "\" & "Picture Bbutton" & "\" & ctl.Tag & ".bmp" End If End If Next ctl Exit Sub End Sub تحياتي للجميع زي مايقولو اخواني المصريين : مابدهاش !!

العفو المشكلة كانت : 1. اسم دالة البحث dlookup كان هناك حرف e زائد 2. اختلاف اسماء العناصر (مربع اسم المستخدم والباسسورد) حيث اسماؤها نص0 و نص2 وهذا الكود Private Sub login_Click() If Me.نص2 = DLookup("[password]", "users", "[username] = '" & Me.نص0 & "'") Then DoCmd.OpenForm "main scr" DoCmd.Close acForm, "login" Else MsgBox "كلمة المرور او اسم المستخدم غير صحيح" End If End Sub بالتوفيق

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

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

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

ياسلام اخ @مسفر على روح المبادرة تحياتي

حيا الله الشباب حيا الله @ابا جودى هنا كان لي مشاركة لنفس الموضوع وان شاء الله تعجبكم http://arabteam2000-forum.com/index.php?/topic/294120-ممكن-كيف-طريقة-إظهار-علامة-صح-وخطأ-في-التقرير-بدل-نعم-و-لا-؟/ وهنا للاخت زهرة المباركة باستخدام الترميز http://arabteam2000-forum.com/index.php?/topic/282439-وضع-رمز-بدل-مسار-الصورة/#comment-1359621 تحياتي

احساسي ان هذا الكود يحمل بصمتي والله اعلم !

SELECT tbl_demanK.id_contract, tbl_demanK.taxt_name1, tbl_demanK.date_f, Format([date_f],"mmm") AS الشهر, Format([date_f],"yyyy") AS العام FROM tbl_demanK WHERE (((tbl_demanK.taxt_name1) Not In (SELECT tbl_demanK.taxt_name1 FROM tbl_demanK WHERE (((Format([date_f],"mmm"))=[ادخل الشهر]) AND ((Format([date_f],"yyyy"))=[ادخل العام])); ))); بالتوفيق

اخي عبداللطيف المشكلة تكمن في انه لايوجد حقل رقم الفاتوره ضمن النموذج وهو حقل مطلوب للعلاقة : كما ان السؤال هنا : كيف تريد ادخال بيانات سقف بدون رقم فاتوره تاجير ؟ الحل : اضافة حقل رقم الفاتورة للنموذج بالتوفيق

اكيد اخ خالد لم يضيع جهدكم المبارك ووالغاية حصلت بالمعلومة الجديده تحياتي

([المبلغ]-[النسبة])*Abs([الحدث]='ذاهب') وانا شايف ان تضاف كحقل من نوع محسوب بالجدول افضل زبه المعادلة اعلاه او معادلة الاستاذ kanory بالتوفيق

Private Sub field5_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 9 And CurrentRecord = Me.RecordsetClone.RecordCount Then DoCmd.CancelEvent End Sub على افتراض ان اخر عنصر بالنموذج اسمه field5 بالتوفيق

@kanory ايش رايك نجيب طريقة رمهانية ؟؟😉

@AboSaad17 لم افهم المطلوب بالتمام فانا وجدت ان التسلسل 9 بسيوني عند فتح نموذج البحث هو نفس التسلسل 9 هو بسيوني وكذلك بقية التسلسلات ؟ تحياتي

@MrTid @kha9009lid @عبد اللطيف سلوم @مسفر جربو الاختصار هذا Private Sub item1_AfterUpdate() Me.نص9.Visible = Not IsNull(item1) End Sub Private Sub item2_AfterUpdate() Me.نص11.Visible = Not IsNull(item2) End Sub تحياتي

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

@مسفر @qathi ولكن فكرة الاخ مسفر لن تستطيع التنقل بالتاب حتى لوكنت في بداية السجلات او في اي موقع خارج السجل الاخير تحياتي

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