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

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

____ _ __ _ ____ |####`--|#|---|##|---|#|--'##|#| _ |____,--|#|---|##|---|#|--.__|_| _|#)_____________________________________,--’Mohammed_Essam'_=-. ((_____((___________officena___________,--------[JW](___(____(____(_==) _________ .--|##,----o o o o o o o__|/`---,-,-'=========`=+==. |##|_Y__,__.-._,__, __,-.___/ J \ .----. |##| |##| `-.|#|##|#|`===l##\ _\ |##| |_|__|_| \##`-"__,=======. |##| \__," '======' ☺ ممنوع النسخ يمكنك نسخ نموذج ازرار الانتقال الى اى قاعدة ووضعه نمو1ج فرعيا وسيعمل على الفور ان شاء الله navigation buttons.mdb

اعرض الملف التحكم بقاعدة بيانات الخلفية على الشبكة . السلام عليكم ورحمة الله تعالى وبركاته تواجهنا الكثير من المشاكل عند محاولة تحديث لقاعدة بيانات على الشبكة بسبب اتصال المستخدمين بها الان اهديكم هذا العمل المتواضع الذى ينهى هذه المعاناه - الشرح قم بنقل جميع الكائنات الموجودة بالقاعدة التى تحمل اسم test الى قاعدتك حتى تستطيع التحكم بها عن بعد اترككم مع التجربة وانتظر افادتكم Monitored Database.rar صاحب الملف ابا جودى تمت الاضافه 01 أبر, 2019 الاقسام قسم الأكسيس

اخواني الاكارم البرنامج التالي يخص محلات بيع النظارات و اطباء العينية و هو مأجور و ليس مجاني الأجرة ( دعوة صالحة لي و لمعلمي ( أبو آدم )) :rol: اترككم مع المرفق و انا بانتظار الردود ( في حال وجود خطأ لا سمح الله ) -------------------------------------------------------------------------------------------------------------------------- اعتذر لجميع الاخوة يرجى اضافة المرفق التالي مع المرفق الأول وهو وحدة نمطية لمنع التحرك بين السجلات عن طريق دولاب الفارة فقط استخرج المف المرفق وضعه في فولدر البرنامج MyCustomerData.rar std.rar

كثر الحديث والطلب عن هذا الموضوع (استخراج الارقام أو الأحرف او الكلمات من نص) لذلك قمت بتحميل هذا الملف الذي عسى ان يستفيد منه اكبر عدد ممكن من الاعضاء الملف يحتوي على دالّة معرفة Option Explicit Function Salim_Single_Match(aString As String, my_expression As String, n%) As Variant Dim RegEx As New VBScript_RegExp_10.RegExp Dim NowArray() As String Dim Match, matches As Object Dim x%, cnt% With RegEx .Pattern = my_expression .Global = True .IgnoreCase = True End With On Error Resume Next Set matches = RegEx.Execute(aString) x = matches.Count If x = 0 Then Error.Clear Salim_Single_Match = "No Match": Exit Function End If ReDim NowArray(x - 1) For Each Match In matches NowArray(cnt) = Match.Value cnt = cnt + 1 Next If n > cnt Then n = cnt Salim_Single_Match = NowArray(n - 1) End Function salim_UDF_Formula.xlsm

اخي الكريم هذا هو المطلوب وجزاك الله كل خير ..الف الف شكر لحضرتك

السلام عليكم شكراً اخي midomashakel الرابط كان مهم جداً وكان هو الحل المناسب شكراً اخي العزيز ابو ياسين شكرا اخي رمضان وبار الله بجهودكم القيمة

تفضل ولكن عليك الا تقوم بضغط الملف طالما ان مساحته صغيرة Indirect.xlsx

اعرض الملف الاتصال بالجداول الخلفية لقاعدة بيانات او اكثر من قاعدة والتنقل بينهم السلام عليكم ورحمة الله تعالى وبركاته اهديكم واضع بين اياديكم هذا المثال والذى من خلاله يتم الارتباط بقاعدة / او عدة قواعد خلفية دفعة واحدة والتنقل فيما بينهم برمجيا آلية العمل -عمل اختبار للاتصال بالقاعدة الخلفية وإذا فشل الاختبار ينتقل للمرحلة التالية - البحث اليا عن المجلد الاصلى بجوار قاعدة البيانات الامامية فى حالة وجوده يرتبط اليا بجميع القواعد بداخله بمجرد الموافقة على ذلك من خلال الرسالة أو يمكنك تغير المسار للبحث بنفسك واحضار قاعدة الخلفية او القواعد إن زاد عددهم عن واحدة بمجرد اختيار المجلد الموجودة به -المرجلة التالية هى تأكيد واختيار القاعدة /أو القواعد والتى تخص هذه القاعدة الأمامية -المرحلة التالية بعد تأكيد اختيار القواعد فى هذه المرحلة والأخيرة نختار القاعدة التى نتصل بها وان كانت تحتوى على كلمة مرور نكتبها فى المكان المخصص لذلك وهنا على سبيل المثال قاعدة الخلفية ArchivingTables2018 تم عمل باسورد لها للتجربة وهو 2018 اما القاعدة ArchivingTables2019 لم يتم عمل باسورد لها وكما تشاهدون فى الصورة تم التنقل بكل سهولة وبكل اريحية بين القاعدتين هناك ميزة اخرى ولكن لم استطع تجربتها وهى الاتصال كذلك بجهاز كمبيوتر اخر والذى يحتوى على قاعدة الخلفية فى حالة الشبكة المحلية وذلك بكتابة اسم مستخدم الجهاز كلمة المرور المخصصة للاتصال بالجهاز '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' _ +--officena------oOo-------oOo--------+ _ ' ' /o)| |(o\ ' ' / / | منتــديات اوفسيـنا | \ \ ' ' ( (_ | _ _ | _) ) ' ' ((\ \)+-/o)----oOo----oOo---------------(o\-+(/ /)) ' ' (\\\ \_/ / \ \_/ ///) ' ' \ / \ / ' ' \____/ \____/ ' ' ===============================oOo----oOo============ ' ' ----{ By Mohammed Essam )---- ' ' ----{ www.officena.net/ib/profile/129737-ابا-جودى )---- ' ' ======================oOo-------oOo================== ' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' فى انتظار تجربتكم وابداء آرائكم القيمة وأبداعاتكم بأفكاركم الرائعة ☺ Automatically relink Access tables.rar Automatically relink Access tables.zip صاحب الملف ابا جودى تمت الاضافه 31 مار, 2019 الاقسام قسم الأكسيس

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

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

وهذي من مخزون المنتدى https://www.officena.net/ib/topic/61357-مساعدة-في-استعلام-حذف-المتكرر-في-جدول-والابقاء-على-سجل-واحد/ وهذه فكرة اخرى Set rs = CurrentDb.OpenRecordset("table1"): rs.MoveFirst Do While Not rs.EOF If DCount("*", "table1", "[first name]='" & rs(1) & "' and [Address 2]='" & rs(2) & "'") > 1 Then rs.Delete rs.MoveNext Loop Me.Requery بالتوفيق

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

الهدف مجهول بالنسبة لي ولكن انظري المرفق ..... test (1).accdb

=SUMPRODUCT(--($G$2:$AJ$2=$AI$2);G3:AJ3)

ان شاء الله

ابو ابراهيم شرفت بمرورك واسعدني اعجابك هذا من محفوظاتي نبشت عنه وهو افضل الموجود (يوجد حلول اخرى)

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

تفضل لك ما طلبت Indirect.xlsx

عليكم السلام تفضل .. تم التصرف في مسميات الحقول في الجدول لازالة المسافات الفارغة DELETE * FROM table1 WHERE key NOT IN ( SELECT min(key) FROM table1 GROUP BY FirstName, Address2) حذف السجلات المكررة.mdb

السلام عليكم تم التعديل على المعادلات حسب الشروط التي ذكرتها (مع إعطاء التقدير "أقل من المتوقع" لكل طالب لا يحقق على الأقل أحد هذه الشروط)... بن علية حاجي التقديرات حسب الجدول.xlsx

تم التعديل على الملف اتمنى ان يكون هذا هو المطلوب العقود31.xlsm

هذا الموضوع قد تجدون فيه ان شاء الله ضالتكم

تفضل يمكن لك تغير رقم العمود في الكود الموجود في حدث الورقة 1 كذلك يمكن لك الاستفادة من الكود في حدث الورقة 2 Hany.xlsm

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

اتفضل اخى الكريم الملف بعد التعيل برنامج تحصيل (2).xlsm

عندنا قائمة (في العامود الاول ) لمجموعة اسماء لاشخاص ممكن ان تكون مكررة المطلوب اختيار عدد معين منها (تختاره بنفسك) ودون تكرار بطريقة عشوائية الكود Option Explicit '+++++++++++++++++++++++++++++ Sub choos_randomly() Dim i%, rd%, x%, _ k%, y%, Lr% Dim My_list As Object If ActiveSheet.Name <> "Salim" Then Exit Sub Set My_list = CreateObject("System.Collections.ArrayList") Lr = Cells(Rows.Count, 1).End(3).Row If Lr < 2 Then Exit Sub Range("c2", Range("c1").End(4)).ClearContents '=============================== If [g2] <= 0 Or Not IsNumeric([g2]) Then MsgBox "You Choose a NEGATIVE Number ,Or ZER0 or Empty CELL" & Chr(10) & _ "I Can't Help You", 1048640 Exit Sub Else [g2] = Int([g2]) End If '===================== With My_list For i = 2 To Lr If Not .Contains(Range("a" & i).Value) Then .Add Range("a" & i).Value End If Next y = .Count .Clear End With If [g2] > y Then MsgBox "You Choose an Impossible number" & Chr(10) & _ " Please Enter a Number <= than " & y, 1048640 [g2] = vbNullString Exit Sub End If '====================== k = 0 With My_list Do Until k = [g2] If k = y Then Exit Do x = (Lr) * Rnd: If x < 2 Then x = 2 If Not .Contains(Range("a" & x).Value) Then .Add Range("a" & x).Value k = k + 1 End If Loop Range("c2").Resize(.Count) _ = Application.Transpose(.toarray) .Clear End With End Sub الملف مرفق Choose N_Presons from _M.xlsm

وعليكم السلام تفضل اخى الكريم لك ما طلبت موعد استحقاق الايجار.xlsx

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

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

بصراحه انا ريحت دماغى وجبتلك دا دالة معرفة Function kh_Names(FullName As String, ParamArray iNdex1()) As String Dim i As Integer Dim kh_Split, MyArray, Ar Dim Kh_String As String, Sn As String, Re As String On Error GoTo Err_Kh_Names '====================================== MyArray = Array("عبد ", "أبو ", "ابو ", "آل " _ , " الله", " الدين", " الإسلام", " الاسلام", " الحق", " النصر", " العهد", " النور", " بالله") '====================================== Sn = Application.WorksheetFunction.Trim(FullName) For Each Ar In MyArray Re = Replace(Ar, " ", "^") Sn = Replace(Sn, Ar, Re) Next '====================================== kh_Split = Split(Sn, " ", , vbTextCompare) On Error Resume Next For i = 0 To UBound(iNdex1) Kh_String = Kh_String & " " & kh_Split(iNdex1(i) - 1) Next On Error GoTo 0 Kh_String = Replace(Trim(Kh_String), "^", " ") kh_Names = Kh_String Exit Function Err_Kh_Names: kh_Names = "" End Function وكتابة الدالة كما يلي =kh_Names($A1;COLUMN()-1) كما بالمرفق دا كود ليك ياجميل من فترة وليك اكواد كتير خاصة بموضوع الاسماء المركبة وربنا يسهل واعمل انا كود مختلف عنهم باذن الله تقبل تحياتي excel.rar

شكرا على توجودكم اتمن ان احاول افيدكم على قدر ما استطيع للاسف انا صممت البرنامج على دقة 1024/768 وقمت بتعديل البرنامج ليتناسب مع اى دقة وتم الغاء تعديل دقة الشاشة معلومة اخرى يجب بعد تسجيل بيانات الموظف يجب اغلاق البرنامج واعادة التشغيل ليظهر امامك فى شاشة تسجيل اجازة لتقوم باضافة اجازة للموظف وشكرا مرة اخر على مشاركتكم الاجازات.rar