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

الموديول ببساطه هو هو نفس الكود على النموذج ولكن على النموذج الروتين الذى تمت كتابته يقتصر تنفيذه على الحدق الذى تم اسناده اليه يعنى انا عندى زر امر مثلا اسمه BtnMsg فى النموذج نكتب روتين فى الحدث عند ضغط الز MsgBox = "اهلا بكم يا اهل اليابان.. نفتقدكم كثيرا" فى هذه الحالة هذا الروتين الذى تم اسناده لهذا الحدث سوف يقتصر فقط على ذلك النموذج وهذا الحدث الذى تم اسناده اليه طيب ان كنا نريد الحصول على نفس النتيحة فى زوايا البرنامج الاخرى فى هذه الحالة يتم كتابة الروتين بداخل موديول بعد ذلك يتم كتابة الروتين كالاتى Public Function WlcmMsg() WlcmMsg = "اهلا بكم يا اهل اليابان.. نفتقدكم كثيرا" End Function ويتم استدعاءه فى زوايا البرنامج كالاتى call WlcmMsg -------------- طيب ان كانت هناك قيم تتفير وهنا مثلا اكيد نص الرسالة يتم الاعلان عن المتغير وطبعا كل متغير حسب نوعه وتكون كالاتى Public Function MyMsg(txtMsg As String) MyMsg = txtMsg End Function المتغير هنا هو txtMsg ويتم استدعاءه مع وضع المتغير كيفما شئنا بتلك الطريقة Call MyMsg("منتديات أوفيسنا ترحب بكم") Call MyMsg("اهلا بكم يا اهل اليابان.. نفتقدكم كثيرا") بس كده سهله قوى اللغة اليبانى مش صعبة يا دكتور @حلبي

トピックはシンプルで価値があります امين لنا ولك اباجودي ولكل اخواننا

الملف يحنوي على خلايا مدمجة كتت قد حذرت من ذلك مسبقاً (ولا حياة لمن تنادي) لذلك ادرج صفاً فارغا (كما في الصورة الصف رقم5) حتى يتخلص الجدول من هذه الخلايا المدمجة (تم ادراجه) وهناك صفحات لا علاقة لها بالأمر مثل "Form1" و "Form2" الخ...يجب استثناء هذه الصفحات من عمل الماكرو بوضعها في Array أسميته (array_sheet) ليتم تجاهلها من جانب الماكرو ( الدالة Check_Up ) و كلما اضفت صفحة لا علاقة لها بالماكرو يحب وضع اسمها في هذا الــ Array الماكرو المطلوب (بعد ادراج صف فارغ رقم 5 في الصفحة "تسجيل_الموظفين") Option Explicit Dim I%, LR% Dim t As Worksheet Dim Spes_sh As Worksheet Dim Flter_rg As Range Dim RO% Dim array_sheet() Dim Check_Up As Boolean Sub ADD_Sheets() Set t = Sheets("تسجيل_الموظفين") LR = t.Cells(Rows.Count, 2).End(3).Row If LR < 7 Then Exit Sub With t For I = 7 To LR If Not Application.Evaluate("ISREF('" & _ .Range("B" & I) & "'!A1)") Then Sheets.Add(, Sheets(Sheets.Count)).Name = _ .Range("B" & I) End If Next End With End Sub '+++++++++++++++++++++++++++ Sub transfer_data() Application.ScreenUpdating = False ADD_Sheets array_sheet = Array("Form1", "Form2", "Pictures", _ "تسجيل_الموظفين", "البيانات الرئيسية") Set t = Sheets("تسجيل_الموظفين") t.Select Set Flter_rg = t.Range("A6").CurrentRegion For Each Spes_sh In Sheets Check_Up = IsError(Application.Match(Spes_sh.Name, array_sheet, 0)) If Check_Up Then Spes_sh.Range("A6").CurrentRegion.Clear Flter_rg.AutoFilter 2, Spes_sh.Name Flter_rg.SpecialCells(12).Copy With Spes_sh.Range("A6") .PasteSpecial (8) .PasteSpecial (12) .PasteSpecial (4) End With RO = Spes_sh.Cells(Rows.Count, 1).End(3).Row If RO > 6 Then Spes_sh.Range("A7").Resize(RO - 6).Value = _ Evaluate("Row(1:" & RO - 6 & ")") End If End If Next Spes_sh t.AutoFilterMode = False t.Select With Application .ScreenUpdating = True .CutCopyMode = False End With End Sub Hatem_Extra.xlsm

اتفضل التطبيق الذى يساعدك ع التحويل وان اردتهم جاهزين '---------------------------Months--------------------------- 'English Months Public Function EngMonth(myData As Date) Select Case Month(myData) Case 1: MnNm = "January" Case 2: MnNm = "February" Case 3: MnNm = "March" Case 4: MnNm = "April" Case 5: MnNm = "May" Case 6: MnNm = "June" Case 7: MnNm = "July" Case 8: MnNm = "August" Case 9: MnNm = "September" Case 10: MnNm = "October" Case 11: MnNm = "November" Case 12: MnNm = "December" End Select EngMonth = MnNm End Function '-------------------------- '-------------------------- 'Arabic Months Public Function ArbMonth(myData As Date) Select Case Month(myData) Case 1: MnNm = ChrW("1610") & ChrW("1606") & ChrW("1575") & ChrW("1610") & ChrW("1585") Case 2: MnNm = ChrW("1601") & ChrW("1576") & ChrW("1585") & ChrW("1575") & ChrW("1610") & ChrW("1585") Case 3: MnNm = ChrW("1605") & ChrW("1575") & ChrW("1585") & ChrW("1587") Case 4: MnNm = ChrW("1571") & ChrW("1576") & ChrW("1585") & ChrW("1610") & ChrW("1604") Case 5: MnNm = ChrW("1605") & ChrW("1575") & ChrW("1610") & ChrW("1608") Case 6: MnNm = ChrW("1610") & ChrW("1608") & ChrW("1606") & ChrW("1610") & ChrW("1608") Case 7: MnNm = ChrW("1610") & ChrW("1608") & ChrW("1604") & ChrW("1610") & ChrW("1608") Case 8: MnNm = ChrW("1571") & ChrW("1594") & ChrW("1587") & ChrW("1591") & ChrW("1587") Case 9: MnNm = ChrW("1587") & ChrW("1576") & ChrW("1578") & ChrW("1605") & ChrW("1576") & ChrW("1585") Case 10: MnNm = ChrW("1571") & ChrW("1603") & ChrW("1578") & ChrW("1608") & ChrW("1576") & ChrW("1585") Case 11: MnNm = ChrW("1606") & ChrW("1608") & ChrW("1601") & ChrW("1605") & ChrW("1576") & ChrW("1585") Case 12: MnNm = ChrW("1583") & ChrW("1610") & ChrW("1587") & ChrW("1605") & ChrW("1576") & ChrW("1585") End Select ArbMonth = MnNm End Function '-------------------------- '-------------------------- 'Hijri Months Public Function HjrMonth(myData As Date) Select Case Month(myData) Case 1: MnNm = ChrW("1605") & ChrW("1581") & ChrW("1585") & ChrW("1605") Case 2: MnNm = ChrW("1589") & ChrW("1601") & ChrW("1585") Case 3: MnNm = ChrW("1585") & ChrW("1576") & ChrW("1610") & ChrW("1593") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1571") & ChrW("1608") & ChrW("1604") Case 4: MnNm = ChrW("1585") & ChrW("1576") & ChrW("1610") & ChrW("1593") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1570") & ChrW("1582") & ChrW("1585") Case 5: MnNm = ChrW("1580") & ChrW("1605") & ChrW("1575") & ChrW("1583") & ChrW("1610") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1571") & ChrW("1608") & ChrW("1604") & ChrW("1610") Case 6: MnNm = ChrW("1580") & ChrW("1605") & ChrW("1575") & ChrW("1583") & ChrW("1610") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1570") & ChrW("1582") & ChrW("1585") & ChrW("1577") Case 7: MnNm = ChrW("1585") & ChrW("1580") & ChrW("1576") Case 8: MnNm = ChrW("1588") & ChrW("1593") & ChrW("1576") & ChrW("1575") & ChrW("1606") Case 9: MnNm = ChrW("1585") & ChrW("1605") & ChrW("1590") & ChrW("1575") & ChrW("1606") Case 10: MnNm = ChrW("1588") & ChrW("1608") & ChrW("1575") & ChrW("1604") Case 11: MnNm = ChrW("1584") & ChrW("1608") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1602") & ChrW("1593") & ChrW("1583") & ChrW("1577") Case 12: MnNm = ChrW("1584") & ChrW("1608") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1581") & ChrW("1580") & ChrW("1577") End Select HjrMonth = MnNm End Function '-------------------------- '---------------------------Months--------------------------- '-------------------------- 'Arabic Days Public Function ArbDayName(myData As Date) Select Case Weekday(myData) Case 1: DyNm = ChrW("1575") & ChrW("1604") & ChrW("1571") & ChrW("1581") & ChrW("1583") '01 | Sunday | Sun | Case 2: DyNm = ChrW("1575") & ChrW("1604") & ChrW("1573") & ChrW("1579") & ChrW("1606") & ChrW("1610") & ChrW("1606") '02 | Monday | Mon | Case 3: DyNm = ChrW("1575") & ChrW("1604") & ChrW("1579") & ChrW("1604") & ChrW("1575") & ChrW("1579") & ChrW("1575") & ChrW("1569") '03 | Tuesday | Tue | Case 4: DyNm = ChrW("1575") & ChrW("1604") & ChrW("1571") & ChrW("1585") & ChrW("1576") & ChrW("1593") & ChrW("1575") & ChrW("1569") '04 | Wednesday | Wed | Case 5: DyNm = ChrW("1575") & ChrW("1604") & ChrW("1582") & ChrW("1605") & ChrW("1610") & ChrW("1587") '05 | Thursday | Thu | Case 6: DyNm = ChrW("1575") & ChrW("1604") & ChrW("1580") & ChrW("1605") & ChrW("1593") & ChrW("1607") '06 | Friday | Fri | Case 7: DyNm = ChrW("1575") & ChrW("1604") & ChrW("1587") & ChrW("1576") & ChrW("1578") '07 | Saturday | Sat | End Select ArbDayName = DyNm End Function '-------------------------- '-------------------------- 'English Days Public Function EngDayName(myData As Date) Select Case Weekday(myData) Case 1: DyNm = "Sunday" '01 | Sunday | Sun | Case 2: DyNm = "Monday" '02 | Monday | Mon | Case 3: DyNm = "Tuesday" '03 | Tuesday | Tue | Case 4: DyNm = "Wednesday" '04 | Wednesday | Wed | Case 5: DyNm = "Thursday" '05 | Thursday | Thu | Case 6: DyNm = "Friday" '06 | Friday | Fri | Case 7: DyNm = "Saturday" '07 | Saturday | Sat | End Select EngDayName = DyNm End Function '-------------------------- '-------------------------- 'Short Names English Days Public Function ShortDayName(myData As Date) Select Case Weekday(myData) Case 1: DyNm = "Sun" '01 | Sunday | Sun | Case 2: DyNm = "Mon" '02 | Monday | Mon | Case 3: DyNm = "Tue" '03 | Tuesday | Tue | Case 4: DyNm = "Wed" '04 | Wednesday | Wed | Case 5: DyNm = "Thu" '05 | Thursday | Thu | Case 6: DyNm = "Fri" '06 | Friday | Fri | Case 7: DyNm = "Sat" '07 | Saturday | Sat | End Select ShortDayName = DyNm End Function '-------------------------- '---------------------------Days--------------------------- Converter Arabic and Unicode (v. 2).mdb

السلام عليكم ورحمة الله وبركاته يوجد لديك معادلة .. هي : تقوم بتغيير الرقم 10 .. وهو مكان العامود =IFERROR(VLOOKUP(B3,INDIRECT("'"&$B$1&"'!b10:ab67"),10,FALSE),"") يفضل اخوي العزيز ترتيب اماكن البيانات .. لانها .. تحتاج الى ترتيب بعضها يبدأ من الصف 11 .. والبقية تبدأ من الصف 10 كسب عمل.xlsx

اذا قصدك الاكسس لا لكون العدد الاقصي لمستخدمي اكسس 255 ولكن نظام التشغيل ويندوز يسمح في المشاركة لعدد 20 مستخدم فقط اما عند استخدام windows server فيمكن العمل ل 255 مستخدم هذا الرد ربما يفيدك

جرب ربما يكون ما تقصد كشف حساب .xlsm

https://qr.ae/pNSOCE في انتظار ردكم هنا أو هناك ضروري .. وجزاكم الله خيرًا وعلى العموم الموضوع هو: كيف أخصص قيمة معينة تُكتب كـ Primary Key في Access عند إدخال جديد في حقل معين؟ بداية عندي برنامج Excel وبه جدول لإضافة عملاء جدد لكي يُنشأ كود العميل، ببساطة بدمج الدوال الآتية: CONTACT - SWITCH - COUNTIF - TEXT فتكون CONACT فقط لدمج السلسلة المنشأة، و SWITCH لتحويل اسم المحافظة لرقم استنادًا إلى جدول المحافظات، و COUNTIF لتعد عدد المحافظات المسجلة ضمن قائمة العملاء، و TEXT لتجعل الرقم خانتين two digits يعني وها هي النتيجة في الصورة التالية: أنا أريد معرفة طريقة يتم ذلك بها داخل قاعدة بيانات Access، حيث عند إدخال اسم العميل وإدخال المحافظة يتم إنشاء كود له، وهذا الكود هو تسلسل لإكواد العملاء التابعين لمحافظة ما، حيث العميل الأول 101 والثاني 102 للمحافظة 1، والعميل الأول 201 والثاني 202 للمحافظة 2… وهكذا

فقط اجعل الصف الذي قبل بداية عناوين الجدول فارغاً تم رفع ملف جديد في اخر مشاركة من قبلي (نسخة عن الملف الذي رفعته انت مع تعدبل الماكرو )

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

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

جربتها وتمام الحمد لله ... هل تم حل مشكلتك

الله يتفضل عليك تسلم شاكر ومقدر لك

اتفضل ☺️ UmAlQuraUp.mdb

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

وعليكم السلام 🙂 للعلم ، هذا اللي انت كتبته يسمى جملة SQL ، والحد الاقصى لعدد الحروف لهذه الجملة هو 64,000 حرف ، سواء كتبتها في الكود او في الاستعلام 🙂 اما حل مشكلتك ، فيمكن ان تكون كالتالي: dim mySQL as string mySQL = "[Full Name], [2], [3], [4], [5], [6], [7], [8], [9], [10], [11], [12], [13], [14], [15], [16], [17], [18], [19], [20], [21], [22]," mySQL = mySQL & "[23], [24], [25], [26], [27], [28], [29], [30], [31], [32], [33], [34], [35], [36], [37], [38], [39], [40], [41], [42]," mySQL = mySQL & "[43], [44], [45], [46], [47], [48], [49], [50], [51], [52], [53], [54], [55], [56], [57], [58], [59], [60], [61], [62]," mySQL = mySQL & "[63], [64], [65], [66], [67],[68], [70], [71], [72], [73], [74], [75], [76], [77], [78], [79], [80], [81], [82], [83]," mySQL = mySQL & "[84], [85]" جملة mySQL ممكن ان تحتوي على بيانات بحجم حوالي 2 جيجا 🙂 جعفر

تفضل هذه المحاولة ارجو ان تكون طلبك Database1.rar

Private Sub Worksheet_Activate() lr = Range("a" & Rows.Count).End(xlUp).Row + 1 If Date <> Cells(lr - 1, 1) Then Cells(lr, 1) = Date Cells(lr, 3) = "رصيد مترحل" End If End Sub عدل الكود

Sub wwww() lr = Range("g" & Rows.Count).End(3).Row + 3 Range("a1:h27").Copy Range("a" & lr) If Cells(11, 2) <> "" Then lrr2 = Range("k" & Rows.Count).End(xlUp).Row + 1 Else lrr2 = Range("k" & Rows.Count).End(xlUp).Row + 1 End If ActiveSheet.Hyperlinks.Add Anchor:=Cells(lrr2, 11), Address:="", SubAddress:= _ "æÑÞÉ1!" & "H" & lr + 20 Cells(lrr2, 11) = [h3] Cells(lrr2, 12) = [f7] Cells(lrr2, 13) = [b9] Cells(lrr2, 14) = [h27] Range("h3") = Range("h3") + 1 End Sub اتمني يكون المطلوب

Field:=1 حسب الكود الموجود تتم التصقية على الأعمدة من A حتى M وبالتالي Field:=1 حسب العمود A إذاً فقط انت بحاجة للتعديل إلى 2،3،4 حسب العمود الذي تريد البحث والتصفية فيه

السلام عليكم استاذ @ابا جودى لدي سؤال عن الموضع وه هل ينفع تشغيل هذا البرنامج مع برنامج عيادة (اقصد كيف يمكن الاستفادة من البرنامج لتشغيلة في قاعدة بيانات اخرى (عيادة طبية) ) يوجد في برنامج العيادة قاءمة انتظار للمرضى واحاول استفاد من هذا البرنامج بحيث لو وصل الدور الى المريض الموجود على راس القائمة يتم نطق اسمه او رقم التسلسل الخاص به . ارجو المساعدة لو سمحت ولكم خالص الشكر والتقدير

يا هلا باستاذنا جعفر قالت العرب تزامنَ يتزامن و تزامُنًا ، فهو مُتزامِن مثلا تزامنت مع ابي عبد الله في العصر عينه اي اننا عشنا في نفس الفترة الزمنية التزامن synchronization تقنيا بمعنى تحديث بيانات من مصادر متعددة ومطابقتها مثلا عندك اكثر من هاتف تقوم بمزامنة دليل الاسماء لتتمكن من استخدامة لكافة هواتفك وفي قواعدة البيانات هو تمكن عدد معين من المستخدمين من التعامل مع البيانات وتحديثها في نفس الوقت اي ان العدد الذي يمكنه التعامل مع قاعدة البيانات اكسس في نفس الوقت 255 مستخدم ولكن كما اشرت هذا العدد يتطلب استخدام نظام تشغيل يسمح بذلك حيث العدد الاقصى للمستخدمين لاصدارات ويندوز للمستخدم العادي لا تقبل اكثر من عشرين مستخدم في الوقت نفسه وبالتالي نستخدم اصدارات ويندوز سيرفر وبالمناسبة الاصدار الاحدث من ويندوز سيرفر 2019 ثلاث انواع Essentials عدد المستخدمين من 25 الى 50 مستخدم سعر الترخيص 501 $ Standard لايزيد عن 16777 سعر الترخيص 972 $ Datacenter لايزيد عن 16777 سعر الترخيص 6155 $ ترخيص اصدارات Essentials و Standard بحد اقصى 2 تيرا بايت من البيانات

استاذ خالد ، ياريت تعطي الضوء على هذه الجزئية "المستخدمين المتزامنين" لأنها مفهوم غير متعارف عليه 🙂 جعفر

معقولة اقارن اجابتي المتواضعة باجابة بروفيسور 😝

اخي الكريم safwat Maher ارفع الجدول والتقرير للتعديل عليه

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

وهذه مشاركة مع اساتذتي الاجلاء وهو تعديل على المرفق الاول ليشمل العدد الكلي Root-30.rar

اشرح برنامجك الحالي الذي تقوم به بالتفصيل كيف ؟ اعتبر موظفا جديدا تم تعيينه عندك .. وكلفت بأن تكتب له شرحا كاملا لآلية العمل وهكذا يمكن للاخوة هنا ان يقوموا بتوجيهك كيف تبدأ تصميم برنامجك

عليكم السلام استاذ ٌRayan Zakho تفضل هذه المحاولة ارجو ان تكون طلبك Root-20.rar

ممكن حضرتك تفتح UserForm1 و تشوف المشكله فى اى سطر علشان انا عندى الكمبيوتر 32

تم التعديل على الكود بصيد الخطأ فى حالة تم الحاق البيانات من قبل كما تم التعديل على الجدول TableBarcodeBrExh حتى لا يقبل التكرار On Error GoTo Err_CmdMove_Click If IsNull([FBarcod]) Then MsgBox (ChrW("1581") & ChrW("1602") & ChrW("1604") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1576") & ChrW("1575") & ChrW("1585") & ChrW("1603") & ChrW("1608") & ChrW("1583") & ChrW("32") & ChrW("1605") & ChrW("1591") & ChrW("1604") & ChrW("1608") & ChrW("1576")) Me.FBarcod.SetFocus Else Dim db As DAO.Database Dim rs As DAO.Recordset Dim i As Integer Dim intQty As Integer Set db = CurrentDb Set rs = db.OpenRecordset("TableBarcodeBrExh") intQty = [Nom] For i = i To intQty rs.AddNew rs("ID") = Me![id] rs("itmCode") = Me![CodeItem] rs("NameItem") = Me![ItemNam] rs("NoBarcode") = Me![FBarcod] + i + 1 rs("Unets") = Me![Unet] rs("NoMat") = 1 rs("Praice") = Me![PrIce] rs("Qty") = 1 rs("Totals") = 1 rs.Update Next i rs.Close Me![Form_BarcodeBrExhSubform].Requery MsgBox "done" End If Exit_CmdMove_Click: Exit Sub Err_CmdMove_Click: If Err.Number = 3022 Then MsgBox (ChrW("1578") & ChrW("1605") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1581") & ChrW("1575") & ChrW("1602") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1576") & ChrW("1610") & ChrW("1575") & ChrW("1606") & ChrW("1575") & ChrW("1578") & ChrW("32") & ChrW("1605") & ChrW("1606") & ChrW("32") & ChrW("1602") & ChrW("1576") & ChrW("1604")) Else MsgBox Err.Description Resume Exit_CmdMove_Click End If الحمد لله بس خلاص رقم الباركود - Update v1 .accdb

اتفضل الكود على زر الامر ترجيل On Error GoTo Err_CmdMove_Click If IsNull([FBarcod]) Then MsgBox (ChrW("1581") & ChrW("1602") & ChrW("1604") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1576") & ChrW("1575") & ChrW("1585") & ChrW("1603") & ChrW("1608") & ChrW("1583") & ChrW("32") & ChrW("1605") & ChrW("1591") & ChrW("1604") & ChrW("1608") & ChrW("1576")) Me.FBarcod.SetFocus Else Dim db As DAO.Database Dim rs As DAO.Recordset Dim i As Integer Dim intQty As Integer Set db = CurrentDb Set rs = db.OpenRecordset("TableBarcodeBrExh") intQty = [Nom] For i = i To intQty rs.AddNew rs("ID") = Me![id] rs("itmCode") = Me![CodeItem] rs("NameItem") = Me![ItemNam] rs("NoBarcode") = Me![FBarcod] + i + 1 rs("Unets") = Me![Unet] rs("NoMat") = 1 rs("Praice") = Me![PrIce] rs("Qty") = 1 rs("Totals") = 1 rs.Update Next i rs.Close Me![Form_BarcodeBrExhSubform].Requery MsgBox "done" End If Exit_CmdMove_Click: Exit Sub Err_CmdMove_Click: MsgBox Err.Description Resume Exit_CmdMove_Click

ابا جودى السلام عليكم اخي الكريم شكرا على مرورك الكريم اريد اضافه صنف مثل صنف زيوت الطعام او معجون طماطم اذا قولت لدي 10 كرتونه معجون طماطم وتحتوي كل كرتونه على 150علبة هنقول : 100*150=1500 علبة اريد ان ادخل الـ 1500 علبة تلقائيا كيف......؟ العمليه مثلها مثل توزيع سلف الموظف على شهور يعني عندي موظف اخد 5000 ريال سلفة على 10 اشهر بكتب قيمة كل شهر وعدد الشهور ومن ثم تاريخ بداية اول قسط وعند الضغط على زر توزيع الاقساط يتم توزيع الاقساط تلقائيا نفس الشيء في طلبي وجزاكم الله خير الجزاء

وفقا لمستندات الدعم الفني لقاعد بيانات اكسس الحد الاقصي للمستخدمين المتزامين 255 مستخدم وهذا العدد الكبير لقاعدة مخصصة اساسا للاعمال الصغيرة يمكن الوصول له في ظروف عمل محددة ولكن كما اشار الاستاذ الفاضل @sandanet نجد ان العدد الاقصى للمشاركة المتزامنة 20 مستخدم. ماهو الحل ? استخدام windows server وهو ايضا نظريا يتيح تزامن عدد 16777 مستخدم وايضا هذا العدد الكبير جدا في ظروف عمل معينة ولكن التعامل مع اصدارات ويندوز سيرفر تختلف عن نظام التشغيل العادي ويتطلب دارية ومعرفة كبيرة ومواصفات اكبر وتكلفة مادية ايضا سعر الرخصة يتراوح مابين 501 $ الى 6155 $ حسب نوع الترخيص وعدد المستخدمين

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

اخي الكريم في الويندوز عند الدخول على خصائص مجلد ما واختيار تبويب "مشاركة" ثم مشاركة متقدمة فانك ستلاحظ ان الويندوز يحدد لك اقصى عدد وهو 20 مستخدماً ولا يمكن الزيادة عليه فمها كان نوع قاعدة البيانات او قابلية تحملها فانك محدد بـ 20 مستخدم فقط .. والله أعلم تحياتي

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