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

السلام عليكم ورحمة الله وبركاته إخواني وأحبابي في الله الموضوع ليس بجديد ولكن عند إطلاعي على الموضوع القديم ووجدت بعض القصور في أكواد المحافظات وإضافة التحقق من صحة المدخلات ..فقمت بالتعديل على الدالة المعرفة ، والأصل في الدالة أنها للعلامة الكبير عبد الله باقشير ولكن تم التعديل عليها لتتلافى الأخطاء التي كانت في الإصدار السابق إليكم الدالة المعرفة .... والدالة المعرفة User Defined Function توضع في موديول ويمكن بعدها استخدامها كدوال الإكسيل العادية Function Kh_Date_Gender_Province(MyNumber As Variant, MyTest As Byte) Dim MyProvinces As Variant Dim R As Long Dim YY As String Dim TY As String * 1 Dim D As String * 2, M As String * 2, Y As String * 2, X As String * 2, XX As String * 2 MyProvinces = Array("01/القاهرة", "02/الإسكندرية", "12/الدقهلية", "13/الشرقية", "14/القليوبية", "15/كفر الشيخ", "16/الغربية", "17/المنوفية", "18/البحيرة", "19/الإسماعيلية", "21/الجيزة", "22/بني سويف", "24/المنيا", "25/أسيوط", "26/سوهاج", "27/قنا", "28/أسوان", "29/الأقصر", "33/مطروح", "23/الفيوم", "88/خارج الجمهورية", "11/دمياط", "04/السويس", "03/بورسعيد", "34/شمال سيناء", "35/جنوب سيناء", "32/الوادي الجديد", "31/البحر الأحمر") D = Mid(MyNumber, 6, 2) M = Mid(MyNumber, 4, 2) Y = Mid(MyNumber, 2, 2) TY = Left(MyNumber, 1) Select Case TY Case "2": YY = "19" & Y Case "3": YY = "20" & Y Case Else End Select Kh_Date_Gender_Province = "" On Error GoTo 1 If Not IsNumeric(MyNumber) Or Len(MyNumber) <> 14 Or Len(Trim(MyNumber)) = 0 _ Or Val(M) < 1 Or Val(M) > 12 Or (Val(TY) <> 2 And Val(TY) <> 3) Or Month(DateSerial(YY, M, D)) <> Val(M) Then Kh_Date_Gender_Province = "" GoTo 1 End If If MyTest = 1 Then If YY <> "" Then Kh_Date_Gender_Province = DateSerial(YY, M, D) ElseIf MyTest = 2 Then If Left(Right(MyNumber, 2), 1) Mod 2 = 1 Then YY = "ذكر" Else YY = "أنثى" Kh_Date_Gender_Province = YY ElseIf MyTest = 3 Then X = Mid(MyNumber, 8, 2) For R = LBound(MyProvinces) To UBound(MyProvinces) XX = MyProvinces(R) If X = XX Then Kh_Date_Gender_Province = Right(MyProvinces(R), Len(MyProvinces(R)) - 3) Exit For End If Next End If 1: End Function أرجو أن ينال الموضوع إعجابكم إن شاء الله تقبلوا تحياتي حمل الملف من هنا

نسخة Visual Studio 2012 Ultimate ISO vb.net 2012 الحجم 1.5 جيجا دي اللي هنعتمدها اي حد نزل نسخة تانية مفيش مشكلة الا اذا وجد خلاف او بعض الامور الغير متشابهه تقبلو تحياتي لو طلبت سيريال SERIAL KEY: RBCXF-CVBGR-382MK-DFHJ4-C69G8 مشكورين احبابي الغاليين بارك الله فيكم وجعله في ميزان حسناتكم وجزاكم الله خيرا

شكرا لك أخي أبوالبراء على مد يد العون لإخوانك حتى يصلوا للقمة شكرا على الإضافة الجميلة في الكود وأنت اسمح لي بتطوير هذا الكود لجعله ديناميكيا كما يأتي Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Dim LR As Long, N As Integer N = Sheets.Count If Sh.Index < N Then LR = Sheets(N).Cells(Rows.Count, "A").End(xlUp).Row + 1 If Target.Column < 10 And Not IsEmpty(Target) Then With Sheets(N) .Cells(LR, 1) = ActiveSheet.Name .Cells(LR, 2) = Target.AddressLocal .Cells(LR, 3) = Target.Value .Cells(LR, 4) = [vv1].Value .Cells(LR, 5) = Application.UserName .Cells(LR, 6) = Format(Date, "dd-mm-yyyy") .Cells(LR, 7) = Format(Now, "h:mm:ss") End With End If End If End Sub التعديلات هي : يجب أن تكون ورقة التغييرات آخر ورقة في الملف وأي ورقة سيتم التغيير عليها (غير ورقة التغييرات) سيتم تسجيل بياناتها N = Sheets.Count If Sh.Index < N Then إضافة اسم المستخدم الذي قام بالتغيير .Cells(LR, 5) = Application.UserName التعديلات تجدها في المرفق تعقب التغييرات1.rar

بسم الله ما شاء الله عليك أبو عيد أعمالك رائعة وتدرس ... اسمح لي بإضافة بسيطة جداً إذا كان الأمر لا يزعجك .. بدلاً من وضع نفس الكود في كل ورقة عمل تريد تعقب التغيرات فيها يمكنك وضع الكود مرة واحدة فقط في حدث المصنف .. وتضيف سطر للشرط للتعامل مع أوراق محددة .. وبهذا يكتسب الكود مرونة كبيرة ليصبح الكود بهذا الشكل في نهاية الأمر Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Dim LR As Long If Sh.Name = "يناير" Or Sh.Name = "فبراير" Then LR = Sheets(3).Cells(Rows.Count, "A").End(xlUp).Row + 1 If Target.Column < 10 And Not IsEmpty(Target) Then With Sheets(3) .Cells(LR, 1) = ActiveSheet.Name .Cells(LR, 2) = Target.AddressLocal .Cells(LR, 3) = Target.Value .Cells(LR, 4) = [vv1].Value .Cells(LR, 5) = Format(Date, "dd-mm-yyyy") .Cells(LR, 6) = Format(Now, "h:mm:ss") End With End If End If End Sub Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) If Sh.Name = "يناير" Or Sh.Name = "فبراير" Then [vv1] = ActiveCell.Value End If End Sub والملف التالي فيه تطبيق الكود ... تقبل وافر تقديري واحترامي حمل الملف من هنا

السلام عليكم أحبابي الكرام فكرة هذا الملف هو نفس خاصبة تعقب التغييرات التي بالاكسل عند فتح المرفق تجد ثلاث أوراق الورقة الاولى : يناير الورقة الثانية : فبراير الورقة الثالثة : التغييرات غير أي خلية في الجدولين الموجودين في الورقة الأولى والثانية ستجد في ورقة التغييرات البيانات الآتية : اسم الورقة ـ عنوان الخلية ـ القيمة الجديدة ـ القيمة السابقة ـ التاريخ ـ الساعة أرجو أن ينال أعجابكم تعقب التغييرات.rar

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

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

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

تم حل المشكلة تفضل تعقب التغييرات والحذف1.rar

اذا تريد تربط النموذج الرئيسي بالنموذج الفرعي ، بحقل واحد: Link Master Fields: اسم حقل النموذج الرئيسي Link Child Fields: اسم حقل النموذج الفرعي اذا تريد تربط النموذج الرئيسي بالنموذج الفرعي ، بحقلين او أكثر: Link Master Fields: اسم الحقل1 من النموذج الرئيسي ؛ اسم الحقل2 من النموذج الرئيسي ؛ اسم الحقل3 من النموذج الرئيسي Link Child Fields: اسم الحقل1 من النموذج الفرعي ؛ اسم الحقل2 من النموذج الفرعي ؛ اسم الحقل3 من النموذج الفرعي والتسلسل هو سر الرابط ، يعني الحقل1 للنموذج الفرعي يقابله في التسلسل الحقل1 للنموذج الفرعي ، وهكذا .. جعفر

تفضل تعقب التغييرات والحذف.rar

وعليكم السلام ورحمة الله جرب المرفق... بن علية برنامج الجمعية دمج.rar

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

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

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

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

أول مشاركة أهلاً بك في المنتدى .. وكلمة واحدة لا تكفي .. اتعلم الرغي طالما عضو في المنتدى .. تقبل تحياتي

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

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

كيف أدخل لل help أخي أحمد

استخدم برنامج الضغط winrar او winzip

وعليكم السلام رجاء ترفق التقرير ، وبالتالي نعرف تفاصيله لأن اللي انت تقوله شئ غير طبيعي في التقارير!! بس الصورة الثانية طبيعية ، شو الغلط فيها؟ جعفر

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

تماما استاذي العزيز افترض أن لجدول موجود في SHEET ما واقوم بادخال القيم او تعديلها

اذا :- المطلوب هو عمل دالة تستند في عملها الي جدول نسب تقوم انت بادخاله يدويا وتستطيع تغير نطاق القيم واضافة نطاقات جديده؟

السلام عليكم ورحمة الله وبركاته جزاكم الله خيراً وبارك بكم على هذا التناغم في العمل ..كلٌّ يعطي ...والنتيجة فائدة للجميع بارك الله بجهودكم.

حياك الله اخي الكريم اعمل نموذج للجدول tbl_effects وفي حدث بعد التحديث للحقل transfer ضع التالي Me.fr = Me.Transfer Me.to = Me.Transfer Me.val = Me.Transfer بالتوفيق

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

أخي الفاضل رجاء لا تعمل مواضيع جديدة مكررة ، واذا اردت لفت نظر المنتدى ، فيكفي ان تضع كلمة "للرفع" ، وسيصبح الموضوع في اعلى القائمة مرة اخرى. تم حذف الموضوع الآخر. جعفر

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

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

السّلام عليكم و رحمة الله و بركاته بارك الله فيك أخي الغالي " ياسر العربي " ..وهو كذلك سنعتمد بإذن الله على هذه النّسخة إحتراماتي

السلام عليكم هناك عدد من الاجراءات الواجب اتخاذها اخي الكريم 1 - التاكد من السيرفر بوضع التشغيل - والقيام باستيراد الجداول للتجربه فقط 2 - اعادة عمليه ربط الجداول واذا بقت الحاله على ما هيه عليه اعد العمليه من البدايه اي اعمل اتصال جديد odbc - وصدر الجداول من الاكسس الى sql server بالتوفيق

شكرا جزيلا يا أستاذ سعيد

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

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

تفضل أخي الكريم الملف التالي ... أرجو أن يفي بالغرض ويحل المشكلة إن شاء الله ... حمل من هنا

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

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

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

أخي الكريم عبد الوهاب ناصر بارك الله فيك وجزاك الله كل خير .. هل سيكون الانتظار لمدة 5 ثواني أمر مرهق بالنسبة لك .. ربما يستغرق مني الحل في كثير من الأحيان أكثر من ربع ساعة أو ربما أكثر في بعض الحالات .. فهل كثير علي أن تنتظرني لـ 5 ثواني فقط .. تقبل تحياتي

السلام عليكم اخي ابو عبد الله نحتاج تفصيل اكثر عن المشكله فانت لم تذكر من اين تريد التعديل عليها من الاكسس او من sql وما نوع التغيير الذي تريده وسوف اشرح لكم التعديل على الجداول المرفوعه على الsql server لعلها تكون هذه الجزءيه هي مشكلتك بعد تشغيل ال sql server managment studio تدخل على قاعدة البيانات المراد التعديل على جداولها ---- وتفتح الجداول وتذهب الى الجدول المراد التعديل عليه ----- تضغط بالزر الايمن للمواس على الجدول ----- ومن Design سوف يقتح الجدول على وضع التصميم ويمكنك التعديل عليه كيف ما تشاء او تقوم باستيراد الجدول المراد التعديل عليه الى الكسس وتعدل عليه وبعد ذلك تصدره الى الsql server بالتوفيق

السلام عليكم ورحمة الله وبركاته إخواني الأحباب في المنتدى الأغر .. أقدم لكم كود في منتهى الروعة ، يقوم بعمل خريطة (ليست الخريطة التي في مخيلتكم .. أنا معلم لغة إنجليزية ولست معلم دراسات اجتماعية) الكود يعتمد على إنشاء ورقة عمل جديدة .. لبدء العمل فيها بناءً على ورقة العمل النشطة التي يتم تنفيذ الكود بها .. ورقة العمل الجديدة تحتوي على خلايا ملونة وداخلها رموز .. للتعرف على القيم الرقمية والنصوص والمعادلات الموجودة داخل ورقة العمل النشطة .. 'وتلوينها باللون الأصفر[N]يتم ترميز الخلايا التي تحتوي على قيم رقمية بالرمز ' وتلوينها باللون الأخضر[T]يتم ترميز الخلايا التي تحتوي على قيم نصية بالرمز 'وتلوينها باللون الأحمر[F]بالرمز[Formulas]يتم ترميز الخلايا التي تحتوي على معادلات ويوضع الكود داخل موديول بهذا الشكل Sub QuickMap() If TypeName(ActiveSheet) <> "Worksheet" Then Exit Sub 'Create object variables for cell subsets إنشاء متغيرات للكائنات التي تمثل مجموعات الخلايا On Error Resume Next Set FormulaCells = Range("A1").SpecialCells _ (xlFormulas, xlNumbers + xlTextValues + xlLogical) Set TextCells = Range("A1").SpecialCells(xlConstants, xlTextValues) Set NumberCells = Range("A1").SpecialCells(xlConstants, xlNumbers) On Error GoTo 0 'Add a new sheet and format it إنشاء ورقة عمل جديدة وعمل تنسيق لها Sheets.Add With Cells .ColumnWidth = 2 .Font.Size = 8 .HorizontalAlignment = xlCenter End With Application.ScreenUpdating = False 'Do the formula cells التعامل مع الخلايا التي تحتوي على معادلات If Not IsEmpty(FormulaCells) Then For Each Area In FormulaCells.Areas With ActiveSheet.Range(Area.Address) .Value = "F" .Interior.ColorIndex = 3 End With Next Area End If 'Do the text cells التعامل مع الخلايا التي تحتوي على نصوص If Not IsEmpty(TextCells) Then For Each Area In TextCells.Areas With ActiveSheet.Range(Area.Address) .Value = "T" .Interior.ColorIndex = 4 End With Next Area End If 'Do the numeric cells التعامل مع الخلايا التي تحتوي على قيم رقمية If Not IsEmpty(NumberCells) Then For Each Area In NumberCells.Areas With ActiveSheet.Range(Area.Address) .Value = "N" .Interior.ColorIndex = 6 End With Next Area End If End Sub فائدة الكود تكمن في إمكانية التعرف على الأخطاء التي يمكن أن تتواجد في ورقة العمل .. . لنفترض أن لديك عمود به معادلات ، وعن طريق الخطأ تم إدخال قيم ثابتة في هذا العمود .. باستخدامك لهذا الكود سيكون بإمكانك وضع يدك على الخلايا التي بها قيم ثابتة في العمود الذي يحتوي على معادلات .. أتمنى أن ينال الملف المرفق رضاكم ، وأن تستفيدوا منه إن شاء الله عزوجل تقبلوا تحياتي القلبية ، ودمتم على طاعة الله Quick Map VBA.rar

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

بارك الله فيك اخي الكريم.. مشاركة رائعة استفدت انا منها...

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

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

السلام عليكم في أحد المواقع وجدت مشاركة منقولة عن موقع Microsoft وقد أذهلتني المعلومات والطرق والحيل الموجودة في هذا الملف أرجو أن لا نفتقد مشاركاتكم بعد تنزيل هذه الأمثلة شاهدوا المرفقات

السلام عليكم ورحمة الله أخي الكريم، وضعت حلين في الملف المرفق مع تصحيح معادلات حساب الرصيد في الجدول.... أخوك بن علية myBook.rar

أخي الحبيب / أبو البراء إلى جانب الحلول الجميلة والمختلفة التي قدمها إخواني الأعزء ، هذا حل آخر لعله يضيف جديد للموضوع . تقبل تحياتي أبو عبدالله قائمة بالمكرر وعدد مرات التكرار وعناوين المكرر.rar