Shivan Kurdi

اضافتا على ما قال استاذنا الحبيب يوسف احمد يجب ان يكون خاصية key preview للنموذج يساوي yes او عند فتح النمو«ج ان تستخدم ھذا الكود Me.KeyPreview = True ولانك تريد عند الضغط على F12 ان یفتح سجل جدید و یرکز الى حقل باركود اتفضل اليك هذا للنموذج الفرعي Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyF12 Then Forms!sh!SH_NO.SetFocus DoCmd.GoToRecord , , acNewRec Forms!sh!SH_A_F.SetFocus Me.BAR_COD.SetFocus End If End Sub لكن يجب ان تضغط على Shift او Ctrl مع F12

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

السلام عليكم ورحمة الله وبركاته شكرا لك استاذي الحبيب على هذه الفكرة حسب نظري اشوف ان هناك خطأ في هذا الجملة لان القيمة Me.comboSearch.ListCount هو اصلا صفر يجب ان نكتب عدد سجلات بدل منه لكي يظيف كل الاسماء و نبحث عنه

اتفضل طلب استفسار1.rar

اتفضل الان ادخل المعلومات بعد تدخل المنطقة راح يعطيك رقم Dmax - Copy.rar

مثلا عندك حقل للمناطق باسم وعند حقل تسلسلی باسم ID راح تستخدم Dmax ھکذا ID = NZ(DMax("[ID]","TableName","[Menadiq]='" & Me.Menadiq & "'" ) , 0 ) + 1 TableName ھو اسم الجدول

اکتب CALL GetFileSize MSGBOX(GetFileSize) سيظهر رسالة بحجم القاعدة

شکرا لک استاذ @أبو إبراهيم الغامدي اتفضل اخي @sandanet الیک طريقة اخرى Dim strName As String Dim strFile As String Dim strPath As String Dim MyFileNam As String Dim SplFile MyFileNam = "*.jpg" strPath = "C:\Users\MyShiv\Desktop\Newfolder\" ' مسار الفولدر اللی بھا صور strFile = Dir(strPath & MyFileNam) Do While Len(strFile) > 0 SplFile = Split(strFile, "_") strName = SplFile(2) & ".jpg" ' لان عندنا فی اسماء الصور اثنين من ( _ ) ونريد اللي بعده Name strPath & strFile As strPath & strName strFile = Dir Loop واذا تريد راح ارفع لك القاعدة على ذلك لكن هناك ملاحظة : لا يجوز ان يكون هنالك اكثر من صور في اخره اي بعد ( _ ) الثاني بنفس الاسم او رقم

ابد انا ما انتبھت من الاشارات \ / شكرا لك

ممکن تفھمنی ماذا تريد بالضبط انا عطيتك تغيير الاسم باسم اخر ممكن توضح لي المطلوب بالضبط هل تريد ان يحذف اللي ما قبل (_) من كل الملفات في فولدر خاص ؟

اعتذر انا فهمت انه لا يريد ان يعطي نتيجة بالسالب لكن الحمد لله انت عملت التعديل اذن سيد @محمود _ المصري لا استخدم Abs في كود ب تحياتي لكم

اذن استخدم Abs مع الكود هكذا للكارتون A: Int(Abs(([SH_TOTL]-[B_TOTL]))/[t]) & " " & "كرتونة" وهذا للقطعة B: Abs([total]) Mod [t] & " " & "قطعة"

اتفضل Dim strName As String Dim strFile As String Dim strPath As String strPath = "C:\Users\MyShiv\Desktop\" strFile = Dir(strPath & "2017-10-10_09.42.27_11.jpg") strName = "11.jpg" Name strPath & strFile As strPath & strName strFile = Dir

اعتذر عن التدخلي في الموضوع اولا هناك سؤال هل العدد 100 هو عدد كمية الشراء ؟ و العدد 154 هو عدد البيع ؟ اذا نعم ، كيف يجوز ان نبيع شيء اكبر من اللي عندنا ؟

IIF([MyNumber] >= 1 And [MyNumber] <= 10 ;5;IIF([MyNumber] >= 11 And [MyNumber] <= 20;15;0)) انا کتبت اذا كان رقمي بيكون بين 1 الى 10 حينئذ هذا الحقل خلي بيكون 5 واذا رقمي بين 11 الى 20 حينئذ هذا الحقل خلي بيكون 15 واذا رقمي لا يطابق مع شروطي اي بين 1 الى 20 حينئذ خلي بيكون هذا الحقل يساوي صفر

لانالجملة فيها الحروف العربية لذلك ماراح نشوف مكان كل شي جيدا شوف راح اعطيك مثال بدون حروف العربية iff([city]="dddd";3;0) يعني اذا سيتي يساوي كلمة dddd حینئذ الحقل اللي نكتب فيها الكود يساوي 3 واذا لا يساوي dddd الحقل یساوی صفر اتمنێ ان یوصل لک المفھوم شکرا لک استاذ @ابا جودى

استخدم iif الیک ھذا استعلام على ذلك SELECT sheet.city, IIf([city]="ميت غمر",1,IIf([city]="زفتى",2,IIf([city]="منصورة",3,0))) AS dd FROM sheet; تقدر ان تعطيه رقم صفر بدل النص تمتعديل test 7000.rar

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

اذن تأكد من مسار الملف لا تخلي اي (.) نقطة فيها

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

IF Me.HaleAlDefia = "تم الدفع" Then Me.HaleAlDefia.Locked = True Else Me.HaleAlDefia.Locked = False 2 : IF Me.HaleAlDefia = "تم الدفع" Then Me.Mablax.Locked = True Else Me.Mablax.Locked = False 1 - 2 : IF Me.HaleAlDefia = "تم الدفع" Then Me.HaleAlDefia.Locked = True : Me.Mablax.Lucked = True Else Me.HaleAlDefia.Locked = False : Me.Mablax.Lucked = False HaleAlDefia ھو اسم الحقل اللی تکتب فیھا تم الدفع او لم یتم الدفع Mablax ھو حقل اللي تكتب فيها المبلغ وسيتم وضع الكود في حدث بعد تحديث للحقل HaleAlDefia والا ارفق القاعدة لكي نعمل عليها التعديل المطلوب وهناك طريقة اخري تفضل به استاذنا ابوخليل تقبل تحياتي

تقدر تعطي كود بعد طبع او بعد تكتب المبلغ اي يكون المبلغ اكبر من صفر حينئذ يعمل قفل الحقل IF Me.MablaxNumber > 0 then Me.MablaxNumber.Locked = true else Me.MablaxNumber.Locked = False Me.MablaxNumber ھو اسم الحقل اللی تکتب فیھا المبلغ

ممکن ترفع القاعدە ؟ استاذي الحبيب حسب فھمی لسؤالك اذا ماكان على الخطأ نستخدم dlookup

فقط عليك ان تضاف هذا الى كود الاعلى & "and [product id]='" & [product id] & "'"لااغ6 اي سيكون الكود كالتالي tarakim: DSum("Quantity";"sales";"[id] <=" & [id] & "and [customer id]='" & [customer id] & "'" & "and [product id]='" & [product id] & "'" )