نجوم المشاركات

اليك هذا On Error Resume Next Dim R As String R = Forms![بحث عن سند إيرادات]![تابع132]![رقم السند] If DLookup("[تعديل سند إيرادات]", "TB5", "[NAME]='" & Me.user1 & "'") = False Then MsgBox "ليس لديك صلاحيه بالتعديل" ElseIf DLookup("[تعديل سند إيرادات]", "TB5", "[NAME]='" & Me.user1 & "'") = True And R > 1 Then DoCmd.OpenForm "تعديل سند إيرادات", acNormal, , "[رقم السند]='" & R & "'" Else MsgBox "ادخل رقم السند المطلوب تعديله" End If تعديل السندات.rar

استأذن من استاذنا @محمدنجار انت کان استخدمت مع الکود کلمە و ولیس او الیک الکود Private Sub كود_الصنف_AfterUpdate() 'On Error Resume Next If Forms![فاتوره شراء]!التوجيه = "بيع" Or Forms![فاتوره شراء]!التوجيه = "مرتجع بيع" Then Me.السعر = Me.سعر_البيع ElseIf Forms![فاتوره شراء]!التوجيه = "شراء" Or Forms![فاتوره شراء]!التوجيه = "مرتجع شراء" Or Forms![فاتوره شراء]!التوجيه = "تحويل" Then Me.السعر = Me.سعر_الشراء End If End Sub وھذا ملفك بعد تعديل 1111111.rar

استخدم هذا Private Sub WorkScope_AfterUpdate() Dim rst As DAO.Recordset Dim D 'As Integer Dim X As Integer ' = Cycles Dim E ' = CSN Dim F ' = CSO Dim Z ' = VisitSeq Set rst = CurrentDb.OpenRecordset("Select * From qry_workscope_utility") rst.MoveLast: rst.MoveFirst X = rst!Cycles rst.MoveNext D = rst!VisitNo E = rst!CSN F = rst!CSO Z = rst!VisitSeq rst.MovePrevious If D = "NA" Then Else If IsNull(Form_frm_WORKSCOPE.VisitNo) Then rst.Edit rst!VisitNo = D + 1 rst.Update rst.Close: Set rst = Nothing Else End If End If If E = "NA" Then Else If IsNull(Form_frm_WORKSCOPE.CSN) Then rst.Edit rst!CSN = E + X rst.Update rst.Close: Set rst = Nothing End If End If If IsNull(Form_frm_WORKSCOPE.Visit_Seq) Or Form_frm_WORKSCOPE.Visit_Seq = "" Then rst.Edit rst!CSO = "" rst.Update rst.Close: Set rst = Nothing End If If Z = "0" Then rst.Edit rst!CSO = X rst.Update rst.Close: Set rst = Nothing End If If Z >= "1" Then rst.Edit rst!CSO = X + F rst.Update rst.Close: Set rst = Nothing End If Me.frm_WORKSCOPE.Requery End Sub اليك مرفقك qs-4.rar

الفرق بينهما هو طريقتي بيعطيك ارقام سالب ايضا مثلا عندك سجل وقت دخول هو 11:44 ووقت الخروج هو 10:40 لذلك يعطيك سالب وعند سجل وقت الدخول 03:35 ووقت الخروج هو 05:40 لذلك يعطيك موجب اي طريقتي بيعطيك اللي رقمه الموجب فقط وتقدر ان تعمل لكي يعدد كل سجلات اي تحويل ارقام سالب الى الموجب وتعدده لكن الطريقة استاذنا @محمدنجار بيعطيك فقط ارقام موجب لذلك بيعدد كل سجلات

وعليكم السلام اخي محمد واهلا وسهلا بك في المنتدى كما شرح اخواي أوس Sandanet وشفان ان قوانين المنتدى لا تسمح بأكثر من سؤال في كل موضوع ، وبما انهم قد اعطوك الحلول ، فسأقوم بترك الموضوع كما هو ، ولكن رجاء قراءة شروط المنتدى قبل ان تقوم بوضع سؤال آخر شكرا اخي @sandanet واخي @Shivan Rekany ، واستسمحكم على التعديل في مشاركتكم جعفر

اتفضل انا عملت لك مشاهدة تلقائي خلال 3 ثواني تقدر تتغيره Pictures1.rar

بارك الله فيك من طيب قلبك اسال اللهع ان يجعل كل حرف تعلمناه منك استاذي ان يجلعه بميزان حسناتك

الشكر كله لله

هذا الاستعلام سيعطيك سجلات اللي مر عليه اكثر من 30 دقيقة SELECT السجل.id, السجل.a, السجل.b, ((Format(Hour([b]),"00")-Format(Hour([a]),"00"))*60)+Format(Minute([b]),"00")-Format(Minute([a]),"00") AS DDDD FROM السجل WHERE (((((Format(Hour([b]),"00")-Format(Hour([a]),"00"))*60)+Format(Minute([b]),"00")-Format(Minute([a]),"00"))>30)); وهذا سيعطيك عدد السجلات اللي مره عليه اكثر من 30 دقيقة SELECT Count(السجل.id) AS CountOfid FROM السجل WHERE ((((((Format(Hour([b]),"00")-Format(Hour([a]),"00"))*60)+Format(Minute([b]),"00")-Format(Minute([a]),"00")))>30)); واليك المرفق بها استعلامين حساب الوقت.rar

هل وصلت للمطلوب ام بعد ؟ واذا لا ما تريد بالضبط ؟ توضح لنا المطلوب

الان تريد ان يظهر لك السجلات في الاستعلام اللي فرق بينهم اكثر من موجب 30 دقيقة ام تريد فقط ان يعطيك عدده بدون سجلات

:: تفضل اخي ضع الكود عندجدث بعد التحديث لكود الصنف... ولتسهيل اجابة السؤال يرجى كتابة اسماء الحقول والكائنات باللغة الانكليزية . On Error Resume Next If (Forms!فاتورة الشراء!التوجيه) = "شراء" Then Me.السعر = Me.سعر الشراء Else Me.السعر = Me.سعر البيع End If

قم بتحويل المتغير R من intger الى string بالتوفيق

وعليكم السلام لوسمحت توضح المطلوب بتفصيل اكثر لوسمحت!! عندك 3 تقارير فرعية ، في كل تقرير فرعي مجموع الرصيد ، فاذا كنت تريد تجمع مجموع التقارير الثلاث ، فالمعادلة ستكون Private Sub تفصيل_Format(Cancel As Integer, FormatCount As Integer) Me.Sum_raseedafter = Me.rpt_2!Sum_raseedafter_rpt2 + Me.rpt_3!Sum_raseedafter_rpt3 + Me.rpt_4!Sum_raseedafter_rpt4 End Sub ولكني ارى انك تسأل عن نفس الشيء الذي سألته هنا: جعفر 680.1.الاجازات - Copy.accdb.zip

لدي ملف اريد عند مطابقة خليتين في عمودين يكتب 1 وفي حالة عدم مطابقتها يكتب 0 شكراز

السلام عليكم جرب الكود التالي عله يفي بالغرض .. وأعتذر أني وعدتك فنسيت ولكن يجب متابعة الموضوع بالردود لكي يظهر الموضوع في أول صفحة بالمنتدى وأستطيع رؤيته .. عموماً حصل خير Sub CollectFromMultipleSheets() Dim wb As Workbook Dim wsTarget As Worksheet Dim wsSource As Worksheet Dim arr As Variant Dim i As Variant Dim cr As Variant Dim j As Long Dim lr As Long Dim x As Long Application.ScreenUpdating = False Set wsTarget = ThisWorkbook.Worksheets("Feuil1") Set wb = Workbooks.Open(ThisWorkbook.Path & "\listeleve.xls") cr = Array(2, 3, 4, 5, 6, 7, 8) wsTarget.Range("B10").Resize(, 7).Value = Array("ر.ت", "الرمز", "النسب", "الاسم", "النوع", "تاريخ الازدياد", "مكان الازدياد") For Each wsSource In wb.Worksheets lr = wsSource.Cells(Rows.Count, "F").End(xlUp).Row arr = wsSource.Range("C16:AA" & lr).Value x = wsTarget.Cells(Rows.Count, "B").End(xlUp).Row + 1 j = 0 For Each i In Array(25, 22, 15, 11, 10, 4, 1) wsTarget.Cells(x, cr(j)).Resize(UBound(arr, 1)).Value = Application.Index(arr, , i) j = j + 1 Next i Next wsSource wb.Close False Application.ScreenUpdating = True MsgBox "Done...", 64 End Sub

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

دبل كليك لاظهار الفورم الدرس الحادى والعشرون حمل الملف من هنا

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

الدرس الثالث: استخدام جهاز قارئ الباركود في الإكسيل كثير من الناس يعتقد أن استخدام جهاز قراءة الباركود يحتاج نظام وأجهزة خاصة للتعامل معه، ولكن الأمر أبسط مما كنت أتوقعه، في ا لدرس الأول حللنا عقدة تكوين شريط الباركود ، لم يبق لدينا إلا أن نربطه في قاعدة البيانات في الإكسيل. كل ما عليك هو التالي: 1- طباعة ملصقات الباركود على ورقة A4. 2- بناء قاعدة البيانات في الإكسيل. 3- بناء صفحة الإدخال في الإكسيل. بالنسبة لآلية عمل جهاز القارئ يكون لو بعملتين هما: كتابة الكود ثم enter. فلذلك ينتقل مؤشر الماوس إلى السطر التالي. ولكي نجعل المؤشر يبقى في مكانه نقوم بحماية الصفحة (انظر الشرح في الملف المرفق) لا أعتقد أنكم تحتاجود درس آخر .. لأننا وصلنا إلى الفكرة ومبرووووك عليكم التعامل مع الباركود. barcode reading.rar

تفضل عملية البحث وفي النموذج cust . لاحظ ان الفكرة : 1. مربع تحريروسرد يعرض الحقول : فقط انظر لخصائص البيانات واهم خاصية مصدر الصف=قائمة الحقول . 2. سناخذ اسم الحقل من مربع التحرير والسرد واذا كان فارغا سيعتمد ال id لاحظ كذلك الاختصار في الكود وهي نفس الفكرة السابقة للمثال الاجنبي ولكن بفكر عربي ! Private Sub textfind_Change() xvar = textfind.Text Me.Filter = Nz(comb1, "id") & " Like ""*" & xvar & "*""": Me.FilterOn = True textfind.SetFocus textfind = xvar textfind.SelStart = Len(xvar) End Sub ومسالة التضليل فلاحقا وبطريقة سهلة ان شاء الله ! تنبيه : ان من قام بالمرفق السابق لاشك انه محترف ولكنه يجهل كثيرا في خفايا الاكسس وميزاته والتي تجعلنا نختصر الكثير من الاكواد ! لقد احتوى المثال الاجنبي على اكواد زائدة جدا جدا يمكن تحسينها بنسبة كبيرة جدا ! تحياتي SearchHighlight.rar

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