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

ومشاركة مع أستاذنا أبا جودي ، يمكنك عملها بهذه الطريقة عند فتح الفورم الذي به الزر .. If [Forms]![Login]![IsAdmin] = True Then Me.Botton.Visible = True Else Me.Botton.Visible = False End If ويختلف الأمر باختلاف الطرق التي تم تعيين الصلاحيات بها .

شوف رقم يوزر الادمن او اسمه واعمل الزر اصلا مخفى وعند فتح النموذج if adminSN=1 then me.cmdX.Visible = True ' OR By Name if adminUN="Admin" then me.cmdX.Visible = True

ياسلام ياسلام عليك يا معلم @jjafferr .. حطيت يدك على الجرح 😅😋🍝🍜🍲🍛 حسيت بطعم التشبيه في بطني 😂 فعلا الأدوات موجودة .. والأفكار تتمايز وتختلف .. وكلنا نكمل بعضنا البعض 👍😉

بارك الله فى عمرك استاذى الجليل

هذه طريقة الترميز ..... Dim dgt As String Dim myv As String txts = "" Dim i For i = 1 To Len(txtr) dgt = AscW(Mid(txtr, (i), 1)) txts = txts & "Chrw (" & dgt & ") & " Next i myv = Left(txts, (Len(txts) - 2)) txts = myv وهذه طريقة فك الترميز Loopy = (CDbl(Len([txts]) - Len(Replace([txts], ")", "")))) txtx = "" c0 = 1 Do c1 = Nz(InStr(c0 + 1, Me.txts, "("), 0) c2 = Nz(InStr(c1 + 1, Me.txts, ")"), 0) c3 = c2 - c1 If c1 <> 0 And c2 <> 0 Then c4 = Mid(Me.txts, c1 + 1, c3 - 1) Loopy = Loopy - 1 c0 = c2 Me.txtx = Me.txtx + CHARW(c4) Loop Until Loopy = 0 و هذا هو الفانك ... Function CHARW(CharCode As Variant, Optional Exact_functionality As Boolean = False) As String If UCase(Left$(CharCode, 1)) = "U" Then CharCode = Replace(CharCode, "U", "&H", 1, 1, vbTextCompare) CharCode = CLng(CharCode) If CharCode < 256 Then If Exact_functionality Then CHARW = ChrW(CharCode) Else CHARW = Chr(CharCode) End If Else CHARW = ChrW(CharCode) End If End Function اكيد قديمة ............. صحيح ..... لاني شفت الطريقة هذه من ايام دنيا دنيا ..... هههههههه

مش انا قلتها لك...انا سرقتها منك بس انت مش واخد بالك 😄

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

مش فاهمك على فكرة انت عارف انا فهمى تقييل ع العموم المرفق النهائى بدون المشكل وبدون اى زيادات التجارب اللى كانت ع الاكواد Converter Arabic and Unicode (v. 3).accdb

السلام عليكم ورحمة الله استخدم الكود التالى Sub DelRows() Dim ws As Worksheet, LR As Long Dim x As Integer, i As Long Set ws = Sheets("Sheet1") LR = ws.Range("B" & Rows.Count).End(3).Row For i = LR To 2 Step -1 x = WorksheetFunction.CountIf(ws.Range(Cells(2, 4), _ Cells(i, 4)), Cells(i, 4)) If x > 1 Then ws.Range("D" & i).EntireRow.Rows.Delete End If Next End Sub

السلام عليكم ورحمة الله استخدم هذه المعادلة و لكن يجب عليك بعدها ان تضغط معا على CTRL+SHIFT+ENTER حتى تعمل معل المعادلة بشكل صحيح =INDEX($G$4:$H$17;SMALL(IF(MIN($H$4:$H$17)=$H$4:$H$17;ROW($H$4:$H$17));1)-3;1)

بصراحة ..لم يخطر في بالي غير هذا الكود الذي تم سرقته منك 😄 Me.frmToArabic.SetFocus Me.frmToArabic!txtUnicode.SetFocus Me.frmToArabic!txtUnicode = "" Me.frmToArabic!txtArabic.SetFocus Me.frmToArabic!txtArabic.ControlSource = ""

كود الاستاذ @Khalfفي ملف للفائدة visitN.accdb

الله يسامحكم ... جوعتونا ... بارك الله فيكم ... بغيت اشغل سيارني واجي عمان ... الله يصلحكم 😂

Sub Test() Dim r As Range, i As Long, c As Long Application.ScreenUpdating = False With CreateObject("VBScript.RegExp") .Global = True .Pattern = "\d+[.]\d+" For Each r In Range("C2", Range("C" & Rows.Count).End(xlUp)) c = 4 If .Test(r.Value) Then For i = 0 To .Execute(r.Value).Count - 1 Cells(r.Row, c).Value = .Execute(r.Value)(i) c = c + 1 Next i End If Next r End With Application.ScreenUpdating = True End Sub

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

شكرا للاستاذ الفاضلlionheart بامكانك الضغط على الخلايا المطلوبة ثم من تنسيق خلايا ثم محاذاة وتختر من اليمين الى اليسار

هل هو نفس الجدول ام جدول آخر غير الموجود بالاستعلام ؟! الحقول الغير مرتبطة لا تسبب مشكلة عند اضافة البيانات علي حد علمي ولكن لعل المشكلة تكون: 1- بوجود علاقة بين جدولين تتطلب ادخال بعض البيانات المرتبطة وتم اهمال احدها 2- او يكون هنالك حقل الزامي يجب ادخال بيانات به ولم يتم تمرير قيمة له بالاستعلام 3- أو يكون هنالك خطأ املائي بكتابة مسميات بعض الحقول او غيرها من الأمور التي لا يمكن تخمينها الا بعد معاينة المشكلة من خلال المرفق

من وجهة نظري الشخصية - ومن الناحية المحاسبية فان هنالك ما يسمي بالخصم المكتسب وهذا الحساب يشمل القيمة المالية التي يتم تخفيضها من قيمة المشتريات (ويدخل في ذلك ما كان عينيا او ماديا) مثال ليتضح المقال: لو ان هذه الشاشات ثمنها 1000 مثلا فقيمة الواحدة 50 اذا اجمالي قيمة ال 22 شاشة هو 1100 ويتم معالجة العملية من الناحية المحاسبية بقيد مزدوج متعدد بهذا الشكل 1100 من حـ/ المشتريات الي حـ/ مذكورين 1000 حـ/ الصندوق (بقيمة المبلغ المدفوع فعليا) 100 حـ/ الخصم المكتسب (قيمة المبلغ الذي تم خصمه من قيمة المشتريات الفعلية أو قيمة البونص او اي شيئ آخر) وقيمة هذا الخصم دائنة وهو تابع لحساب الأرباح والخسائر في الحسابات الختامية ارجو ان يكون كلامي واضحا فقد تكلمت باسلوب المحاسبين 😁 من الناحية البرمجية 1- قيمة المشتريات الفعلية هي 1100 يعني ما سيتم ترحيله الي المخازن هو عدد 22 شاشة بقيمة 1100 يعني قيمة الشاشة الواحدة لن تتغير اي بقيمة 50 كما هي 2- قيمة الصندوق او الخزينة او البنك ستقل بقيمة المبلغ المدفوع فعليا بقيمة 1000 فقط 3- قيمة ال 2 شاشة البونص سيتم اعتبارها ارباح مكتسبة بالكامل 100 أرجو ان لا يكون هذا التوضيح بحاجة الي توضيح هذا والله اعلم

اول خطوة هي جعل الحقول المتشابهة تحت نفس العمود . عملنا استعلام جديد Query1 (وهو استعلام التوحيد) ودخلنا في وضع SQL ، ثم نسخنا جملة SQL الاستعلام الاول اليه ، ثم كتبنا union ، ثم نسخنا جملة SQL الاستعلام الثاني اليه: . والنتيجة . ولكننا نريد ان ندمج السجلات المتشابهة مع بعض ، حتى تكون على سجل واحد ، لذا ، يجب ان نعمل استعلام تجميع ، نجمع فيها قيم الحقول حسب المجموعات ، فنعمل استعلام جديد ، ويكون استعلام التوحيد السابق هو مصدر بياناته : . عند تشغيل الاستعلام الجديد ، نحصل على خطأ ، معناه ان انواع الحقول غير متشايهة !! واذا دققنا النظر في اول صورة ، سنجد انه في نفس الحقل عندنا ارقام و Null و "" ، وهذا ينطبق على الحقول الثلاثة التي نريد مجموعها ، يعني في كل حقل ، لازم نجمع قيمها: الارقام ، و Null ، و "" . اول فكرة تجي على البال حتى نستبدل Null و "" الى صفر ، هو استخدام الامر NZ (مع انه غير محبذ استخدام امر VBA في الاستعلام ، حيث انه سيجعله بطيءً نوعا ما) ، والنتيجة . الخطأ هنا لأن الامر NZ ومعناه Null to Zero ، اي تحويل الحقل الذي قيمته Null الى صفر ، بينما عندنا في الحقل نفسه قيمة اخرى وهي "" ، والتي يجب التعامل معاها كذلك وتحويلها صفر ، والامر NZ لا يعرف التعامل معاها ، انا استعمل الكود التالي لإحتواء الطريقتين : If Len([SumAbsentYes] & "")=0 then او هكذا في الاستعلام SumAbsentYes_1: IIf(Len([SumAbsentYes] & '')=0,0,[SumAbsentYes]) . . والنتيجة . او الطريقة الاخرى للتغلب على Data Type Missmatch ، بأن نحتفظ بقيمة Null ، ولكن قيمة "" نحولها الى صفر في الاستعلامات الاصل: . بإختصار ، خطواتك كانت صحيحة ، ولكن كان يحتاج لها خطوة اخرى 🙂 المرفق فيه Query2 و Query4 للطريقتين 🙂 جعفر 1451.حضور وانصراف موظفينV47.accdb.zip

تفضل يا سيدي 🙂 1450.3.Macro Command.accdb.zip

ما شاء الله أبدعت يا أبو خليل في التصميم وكتابة الكود سلمت يداك واطال الله في عمرك أنا أضفت شيء بسيط فني نموذج حركة الأجهزة أتمنى أكون وفقت في ذلك عند صرف جهاز جديد يتم تعطيل حقل تاريخ التسليم وذلك بإضافة الكود بعد التحديث في حقل نوع المستخدم Me.returnDate.Enabled = False كذلك قمت بإضافة الكود بعد التحديث في حقل الاستلام للانتقال إلى زر الحفظ عند الضغط على انتر أو يتم انتقال إلى حقل نهاية الإعارة أذا كان الحقل ممكن If Me.dateHireEnd.Enabled = True Then Me.dateHireEnd.SetFocus Else Forms!frmDevDetails!zerSave.SetFocus End If في حقل تاريخ التسليم قمت بإضافة هذا الكود If IsNull(Me.userType) Then MsgBox "لاتوجد أجهزة لتسليمها الرجاء الضغط على زر جديد لصرف الجهاز" Me.returnDate = Null Else Forms!frmDevDetails!zerSave.SetFocus End If في زر حفظ تم إضافة كود تمكين تاريخ التسليم Forms!frmDevDetails!frmDetails!returnDate.Enabled = True أرفقت لكم ملف التعديل ‏‏‏‏devicesdb8.7z

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

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

جرب تغيير الكود المستخدم في الترميز بكود اخر

ايوووووون الله يفتح عليك صح والله نسيت

تفضل فورم لاضافة الاهداف والمهارات والأنشطة برنامج التخاطب والمهارات 11.rar

ايش المطلوب ؟؟؟؟ تحويل لنص أم ماذا ؟؟

😂عشان متكلش كلاس وتدوب ئلوب الناس

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

ومن اجل هذا ان كان هناك مرفقا لاخذ الاجابة الوافية

تم التعديل كشف المقبوضات2.xlsm

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

السلام عليكم ,, اذا سمحلى استاذنا @jjafferr بالمناقشة فى الموضوع , البداية اخى الكريم هى انك تحصل على IP ثم تبحث عن موقعه لمعرفة المدينة والدولة والوقت الخ .. وبالتالى نظرياً يلزمك انك تحصل على IP ثم يكون عندك نموذج به متصفح , الق نظرة على هذه الاداة الرائعة لأستاذنا صالح حمادى : ثم استخدم ما تعلمت منها وادخل على الموقع التالى بواسطة الاداة ثم قم بتمرير IP الذى حصلت عليه فى مربع البحث الخاص بالموقع التالى مثلا : https://www.geolocation.com والنتيجة ستكون كالتالى : بالتوفيق

Just format the cells of results to from the icon (Left-to-Right Text Direction) and make it (Right-to-Left)

If arr(i, 5) > 0 Then coll(s).Add CStr(arr(i, 2)) This line the number 5 refers to column E and the number 2 refers to column B

لا اقصد المحادة بل كتابة الارقام من الاصغر الى الاكبر

جرب هذا ...

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

السلام عليكم ورحمة الله وبركاته عدل ActiveSheet.DisplayRightToLeft = False الى ActiveSheet.DisplayRightToLeft = True ستجد ان اتجاه الصفحه الجديدة من اليمين الى اليسار

اما انا ، فكنت اول واحد يدخل في الموضوع ، وانزلت المرفق لأستمع وارى الكود 🙂 الكود جدا بسيط ونظيف ، عمل جميل 🙂 في اعتقادي @ابو جودي قام بمثل هذا العمل سابقا ، ولكني لا اتذكر التفاصيل 🙂 جعفر

جرب هذا التعديل Option Compare Database Public Myvalue As Integer Public MyP2 As Integer الفورم الاول private sub Zer1_Click() Myvalue = NP1.Value MyP2 = Np2.Value End sub الفورم الثاني If ComPlat.Value = "Twitter" And comType.Value = "Click" Then TargetPlas.Value = txtCost.Value * Myvalue Elseif ComPlat.Value = "Twitter" And comType.Value = "engagement" then TargetPlas.Value = txtCost.Value * MyP2 End If ووافني بالنتائج اذا لم تزل تواجه مشكلة ارفق مرفق للتعديل. الفكرة بكل بساطة هي: 1- انشاء متغير عام يمكن استدعائه من اي مكان بالبرنامج ( عن طريق انشاء وحدة نمطية عامة وكتابة تصريح عام بها باسم المتغير كما هو موضح بالمشاركة الأولي) 2- نمرر قيمة الي هذا المتغير العام من اي فورم او تقرير او ... 3- نقرأ قيمة المتغير من اي مكان كذلك سواء فورم او تقرير او ... وانتهي الأمر

السلام عليكم معلومات قيمة عن استعلام التوحيد ، تستحق موضوعا مستقلا .. بارك الله فيك استاذنا وبارك في جهودك انا اعتقد ان السائل يمكنه اظهار الغياب والاضافي ابتداءً في استعلام واحد

تم التعديل على الملف احيي فيك محاولاتك لصنع الكود بنفسك الاكواد تبنى على الفكرة واحدة واحدة ، قد تجد صعوبة في تشغيل بعض الجزئيات خاصة في النماذج المرتبطة فهنا انت بحاجة الى مساعدة صديق بالنسبة لفورم الاعارة فاتركه كما هو ، حيث وجدتك طبقت فكرة الحذف تماما تم حذف حقل بداية الاعارة من الجدول ومن الفورم لانه تحصيل حاصل حيث ان حقل الاستلام يقوم مقامه تم نقل زر الحفظ الى الفورم الرئيسي من اجل سهولة التحديث وضمان عمل الكود على اكمل وجه تم صياغة الاحداث واكوادها من جديد تم عمل لمسات على واجهة الفورم .. لاني رأيت البيانات الثابتة تشد الانتباه وليس بينها وبين الحقول المحررة فرق فأحببت تمييزها وخفض الضوء الآن فورم حركة العهدة يعمل على اكمل وجه جرب جميع الطرق ووافني بالنتيجة ‏‏devicesdb7.rar

مرحباً في البداية لا ينصح باستخدام الدالة Dlast، كونها تستدعي القيمة من آخر سجل وقد يصدف أن يضطر مدخل البيانات إلى استدراك بيانات مفقودة، هناك عدة طرق لعمل المطلوب الأولى بالكود الذي تفضل به الأستاذ كاف يار، الثانية: Sub BtnDmax() On Error Resume Next Dim db As DAO.Database Dim Rst As DAO.Recordset Dim SqlStr As String Dim X As Integer Set db = CurrentDb SqlStr = "SELECT Examination.[File number], Max(Examination.[visit number]) AS [MaxOfvisit]" & _ "FROM Examination where [File number] = " & Val([Forms]![Examination]![NumFile]) & " GROUP BY Examination.[File number];" Set Rst = db.OpenRecordset(SqlStr) X = Rst![MaxOfvisit]+ 1 [Forms]![Examination]![NewVisit] = X End Sub ضع الكود في حدث بعد التحديث لحقل رقم الملف AfterUpdate مسميات الحقول في الكود افترضتها، ما عليك سوى تغييرها وفقاً لنموذجك.

عندك طريقتين لإضافة اي حقول/فرو/تصفية ، يا في اول استعلام توحيد (طبعا في احد او جميع الاستعلامات اللي فيه ، والافضل تجهز الاستعلامات وتجهز كل واحد منها بالنتائج الصحيحة ، ثم تضيفها في استعلام التوحيد) ، او في آخر استعلام. قد يكون الاسهل لك ان تضيف معيار التاريخ في الاستعلام الاول : 1. كمعيار (سواء لإستعلام واحد او عدة استعلامات) دون إظهاره في السجلات (إزالة علامة الصح تحت الحقل ، او استخدام Where في الاستعلام التجميعي) ، وعادة المعيار يشير الى حقل التاريخ في النموذج مثل Forms!frm_Main!Date_From ، 2. او اذا ما عمل لك مشكلة ، فيمكن اظهاره في السجلات. اذا استعملته كمعيار فقط ، ولكنك تريد اظهاره في الاستعلام الاخير ، فيمكنك عمل حقل جديد في الاستعلام الاخير للتاريخ ، هكذا: myDate: Forms!frm_Main!Date_From جعفر

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته هذا تعديل فيه رسم البر الأيمن والأيسر رسم قطاعات الترع 6.rar رسم قطاعات الترع 6.rar

صديقي ... اليك قاعدة البيانات مع التعديل حسب ما طلبت وبطريقة اسهل وبدون اضافة اكواد او موديول . Service.956-Up.accdb

جرب هذا الملف متعقب حضور الموظفين.xlsm