رمهان

تفضل اخي الكريم
والطريقة كالتالي :
- تم انشاء جدول خاص بالعملات لاضافة تنسيق العملة
- تم اضافة عمود العملة بجدول الموردين الاساسيين وياخذ العملة من جدول العملات وكقائمة منسدلة
- تم اضافة مربع قائمة لعرض العملة حسب المورد الموجود مع ملاحظة شرط تطابق اسماء الموردين في الاساسي وفي جدول الفروع
- تم اضافة حدث في الحالي للنموذج يغير التنسيق حسب الموجود بالقائمة
 
هذا ويمكنك اخفاء مربع القائمة من الخصائص
 
وبالنسبة للتقارير ارفق مثال به تقرير للتطبيق عليه وبعد محاولتك باستخدام نفس الفكرة ولكن الحدث يكون عند التنسيق للتقارير !
 
بالتوفيق
العملة.rar

فكرة
 
test140_up.rar

مشاركه مع احبتي وعذرا اكتب من الجوال
مع العلم ان سؤالك فيه لبس شويه
انت تقول اول ثلاث ارقام تساوي ٧ وهذا متناقض حسب فهمي تقول اول ثلاث ارقام تساوي ٧٧٧
وهنا استخدم نفس تعبيرك وباستخدام الداله لفت وبعدد ٣ للباراميتر
If Left(Me.serh_Barcod, 3 )= 777 Then وقد تحتاج لوضع الرقم ٧٧٧ في علامة تنصيص كنص
بالتوفيق

مرحبا اخ حلبي
هذه مشاركة ولو تحذف القيمة الافتراضية للخيار افضل
Private Sub Fram_AfterUpdate() DoCmd.ApplyFilter , "MOVTYP='" & Choose(Fram, "مشتريات", "مرتجعات") & "'" End Sub بالتوفيق

مشاركة مع الاستاذ محمد
تفضل : اختار الكورس ثم اختار عدد السجلات ثم انقر "ابدأ"
بالتوفيق
DATA_BASE.accdb

@ابوآمنة
الصق هذه الجملة في استعلام جديد
SELECT InvoiceHelperTab.InvoiceNo, InvoiceHelperTab.InvoiceType, InvoiceTab.percentDescount, InvoiceHelperTab.QtyOut, InvoiceHelperTab.Price, (1-([percentDescount]/DSum("[qtyout]*price","invoicehelpertab","invoiceno='" & [InvoiceHelperTab]![InvoiceNo] & "'")))*[price]*[qtyout] AS Expr1 FROM InvoiceTab INNER JOIN InvoiceHelperTab ON InvoiceTab.InvoiceNo = InvoiceHelperTab.InvoiceNo; بالتوفيق

شغاله تمام في ما يخص الاصدار 64
لو سمحت روح لاي صفحة بالاكواد واعمل كمبايل من debug وشوف الاخطاء هناك عناصر تحتاج تعديلات
قد تكون المشكلة لدى صديقك هو تعريف اللغة العربية
وهنا الطريقة
https://www.officena.net/ib/topic/87478-حل-مشكلة-الترميز-في-الاكسل/
بالتوفيق

السؤال الان :
هل لديك دوال api  في وحدات نمطية عامة ؟
الصقها هنا للتعديل
وعلى العموم اذا كان لديك دوال تبدا كالتالي
private declare function
عدلها ب
private declare ptrsafe function
وهذا رابط للفائده
https://www.officena.net/ib/topic/64325-مثال-يعمل-على-اكسس-32-بت-و-64-بت/
بالتوفيق

جرب ياغالي
 
saleh2.accdb

جزيت خيرا اخينا ابو زاهر
اخي السائل
انا فكرت خارج الصندوق واعطيك فكرة سهلة
هذا الكود ليس به اوامر بحث ولكن قد يفي بالمطلوب
Private Sub Text21_AfterUpdate() DoCmd.GoToRecord , , acGoTo, Month(Text21) Me.DateMTarget_Subform.SetFocus DoCmd.GoToRecord , , acGoTo, Day(Text21) End Sub جرب وان شاء الله تمام

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

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

جرب
Private Sub SearchCmd_Click() For Each itm In Item_List.ItemsSelected xt = xt & Item_List.ItemData(itm) & "','" Next xt = "'" & Left(xt, Len(xt) - 2) Me.tt.Form.Filter = "[Item]in(" & xt & ")" Me.tt.Form.FilterOn = True End Sub بالتوفيق

مرحبا اخ عمرو
الحقيقة وجدت كود لا يجاد رسالة الباسسوورد ثم تمرير القيمة لها وهي اول ما خطر في بالي وهذا الرابط
http://www.siddharthrout.com/2013/04/24/unprotecting-vba-project-password-using-a-password-that-you-know/
ولكن قلت اجرب فكرة تمرير القيمة باستخدام sendkeys  ونجحت معي ولا اعلم معكم لانه تعتمد على اختصار القوائم واعتقد ان جميع الاصدارات لن تختلف لانه واجهة المشروع متشابهة ولو حصل اختلاف نغير فقط في حروف الاختصار الممررة
الان جرب التالي
ضع دالة عامة كالتالي (طبعا قبل وضع الحماية):
Function ramhan(pass) SendKeys "%{F11}%TE" & pass & "~~%{F11}", True DoEvents End Function ثم تنادي الدالة من زر الامر الذي به حذف الكائن ممرا كلمة المرور وكاتالي مثلا حيث الباسسور=1 واسم التقرير rep1 به حدث عند التحميل
Private Sub Command0_Click() Call ramhan("1") DoCmd.DeleteObject acReport, "rep1" End Sub الان احفظ ثم ضع باسسورد للمشروع =1 
اغلق القاعدة وحاول الحذف عن طريق النافذة لن يقبل وسيقبل من خلال الزر
هنا ولو زبطت التجربة اعتقد انه موضوع جديد كليا وحماية جديدة نتمتع بها 
تحياتي

السلام عليكم
اولا اعتذر من الاستاذ ابا خليل وتطفلت بان حاولت اطبق فكرته وقد يكون الواقع والذي في باله غير ذلك وهذه ضحايا الموانة الزايدة 
اخي جمال شكرا واعتقد انك تستحق خبير من الان ومن خلال قرائتي لمشاركاتك
اخي الزهراني
جرب الاستعلام التالي وكمصدر للنموذج : اي اذهب لمصدر النموذج والصق هذا الاستعلام بديلا لمصدر السابق ثم اذهب لعرض التصميم للاستعلام لتختبر المحاولة وهل هي لما تريد وتقصد
SELECT Table1.ID, Table1.User, Table1.Section, Table1.Status FROM Table1 WHERE (((IIf(IsNull([forms]![Form1]![SectionSearch]),1,InStr(1,[Section],[Forms]![Form1]![SectionSearch])))>0) AND ((IIf(IsNull([forms]![form1]![UserSearch]),1,InStr(1,[user],[Forms]![Form1]![UserSearch])))>0) AND ((IIf(IsNull([forms]![form1]![StatusSearch]),1,InStr(1,[status],[Forms]![Form1]![StatusSearch])))>0)); بالتوفيق

عزيزي
هناك دالة getimagefolder  يمكنك استخدامها
ولكن حيث انني لا استطيع التجربة على مثالك حيث الحاجة لتسجيل الاداة
ويمكن تجربة الكود التالي بديلا لما تفضل به اخي اوس وهو مشتق من حله مشكورا
 
Kill currentproject.path & "\images\" & EmpPIC.Value بالتوفيق

بعد اذن الاستاذ شيفان
انتي عامله المقارنة على اساس قيمة الاوبشن نفسها
والاصح على مربع الخيار والذي قيمته حسب الاوبشنز
Private Sub CmdSearch_Click() Do While Reports.count > 0 DoCmd.Close acReport, Reports(0).Name Loop If إطار8 = 1 Then DoCmd.OpenReport "ShabakaReport", acViewPreview End If If إطار8 = 2 Then m1.Visible = True m2.Visible = True DoCmd.OpenReport "StationsReport", acViewPreview End If If إطار8 = 3 Then m1.Enabled = True m2.Enabled = True m3.Enabled = True DoCmd.OpenReport "LinesReport", acViewPreview End If End Sub وبعدين راح نعمل لك اختصار وتحسين
بالتوفيق

السلام عليكم
ضع هذا الكود خلف زر البحث وكما هو ظاهر
وان شاء الله احصل وقت واختزل الكود اكثر
Private Sub cmbsearch_Click() xsql = "SELECT shawa.ID, shawa.input_sourc, shawa.kind, shawa.date_a, shawa.esa_num, shawa.Count, shawa.mok_name, shawa.n_num, shawa.test FROM shawa" n = "" For i = 1 To 20 If Not IsNull(Me("inv" & i)) Then xsql = xsql & " where shawa.esa_num=" & Me("inv" & i) & " union all SELECT shawa.ID, shawa.input_sourc, shawa.kind, shawa.date_a, shawa.esa_num, shawa.Count, shawa.mok_name, shawa.n_num, shawa.test FROM shawa" n = Me("inv" & i) End If Next i If n = "" Then xsql = "SELECT shawa.ID, shawa.input_sourc, shawa.kind, shawa.date_a, shawa.esa_num, shawa.Count, shawa.mok_name, shawa.n_num, shawa.test FROM shawa" Else xsql = Left(xsql, InStr(1, xsql, n) + Len(n) - 1) End If Me.esano_1.Form.RecordSource = xsql Me.Refresh End Sub بالتوفيق

كل عام وانتم بخير اولا
ثانيا : اضف السطر الجديد للكود خلف زر تحديث ليصبح كالتالي :
Private Sub أمر33_Click() If MsgBox("تاكيد العملية ؟ ", vbYesNo) = vbNo Then Undo DoCmd.Requery End Sub بالتوفيق

تفضل
وضع الصوره في التقرير.rar

تفضل وعلى نفس طريقتك في البحث ومن خلال الاستعلام وليس باستخدام الفلترة 
1. ضع هذا التعبير كعمود جديد في الاستعلام
Expr2: IIf([Forms]![for17]![إطار61]=1;[fid09] Is Not Null;IIf([Forms]![for17]![إطار61]=2;[fid09] Is Null;1=1)) ثم ضع  1-  كقيمة في معيار هذا العمود
 
2. الحدث التالي 
Private Sub إطار61_AfterUpdate() Me.for18.Requery End Sub بالتوفيق

اولا عليك باختيار استخدام التقويم الهجري ومن خيارات الاكسس >> اعدادات العميل
ثانيا هذه المعادلة ويمكن في استعلام او في مربع نص نموذج او تقرير بادئا بعلامة =  :
Year(Date())-[تاريخ الميلاد] بالتوفيق

اي طريقة ؟؟؟ !! 
هل تقصد هكذا :
SELECT LY.ID, LY.[PT-NAME], LY.DATEE, LY.datee1 FROM LY WHERE (((CDate(Format([datee],"d/m/yy"))) Between CDate(Format([ادخل تاريخ اليوم المطلوب],"d/m/yy")) And CDate(Format([ادخل تاريخ اليوم المطلوب2],"d/m/yy")))); تحياتي

تفضل
 
لاحظ: النظام يشيك اولا على محتوى t1  فاذا وجد - نمر بشروطها او less than  ويمر بشروطها !
Private Sub t2_AfterUpdate() If InStr(1, [t1], "-") > 0 Then If (Val([t2]) > Val(Right([t1], Len([t1]) - InStr(1, [t1], "-")))) And (Val([t2]) > Val(Left([t1], InStr(1, [t1], "-") - 1))) Then t2.BackColor = vbRed ElseIf (Val([t2]) < Val(Right([t1], Len([t1]) - InStr(1, [t1], "-")))) And (Val([t2]) < Val(Left([t1], InStr(1, [t1], "-") - 1))) Then t2.BackColor = vbBlue Else t2.BackColor = vbWhite Exit Sub End If End If If InStr(1, [t1], "than ") > 0 Then If Val([t2]) >= Val(Right([t1], Len([t1]) - 10)) Then t2.BackColor = vbRed Else t2.BackColor = vbWhite End If End If End Sub بالتوفيق