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

هل هذا ماتريده ام انا فهت خطأ ترحيل بشرط.rar

السلام عليكم ورحمة الله هذا ملف لتصدير البيانات من الاكسل إلى الوورد من الخلية A1 إلى الخلية Z50 وتستطيع تغييرها حسب إحتياجاتك تصدير بيانات الى وورد.rar

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

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

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

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

أخي الكريم تفضل ملفك Files.rar

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

برنامج شئون الموظفين يعمل بالتاريخين الهجرى والميلادى. امكانية البحث برقم الموظف . امكانية ربط الموظف بصورة الموظف من اى مكان من الحاسب (وليس وضع الصور بجانب الملف كما كان مسبقا). امكانية حذف موظف او تعديل بيانات الموظف . اصدار تقارير عن موظف واحد بطباعة بياناته فى صفحة مستقلة. امكانية تصدير التقارير لملف اكسيل جديد باسم جديد. البحث بين تاريخين . امكانية طباعة عدد من الموظفين سواء (اسم الموظف - الراتب - الاقامات - الادارة التابع لها - او اى بيانات مدخلة ). التحكم فى تغيير اسم الشركة . نافذة امان قبل الدخول للبرنامج بكلمة مرور يمكن اظهار النافذة او اغلقها. امكانية التحكم فى اعدادات المظهر (خلفية البرنامج - لون الخط ). للاطلاع عن المزيد من الصور والشرح للبرنامج من هنا او الاطلاع على دليل المستخدم من البرنامج شكر خاص للأستاذ/ عبد الله باقشير حيث استخدمت الكثير من اكواده الاكثر من رائعه وكذلك باقى الاعضاء الاخرين ملاحظة : باسورد نافذة الامان الافتراضى 12345 باسورد vba وقاعدة البيانات وفتح الملف 12345 لابد من تمكين الماكرو ليعمل الملف فى النهاية نسألكم الدعاء بظهر الغيب emp.rar

عبد العزيز ابدعت ممكن نستفيد من عملك هذا ممتاز

جرب الكود التالي Sub PullUniques() Dim A, I As Long, J As Long, N As Long, LR As Long With Sheets("Sheet1") LR = .Columns("B:Y").Find("*", , , , xlByRows, xlPrevious).Row A = .Range("B5:Y" & LR).Value With CreateObject("Scripting.Dictionary") .CompareMode = 1 For J = 1 To UBound(A, 2) Step 2 For I = 1 To UBound(A, 1) If Len(A(I, J)) Then If Not .Exists(A(I, J)) Then .Item(A(I, J) & A(I, J + 1)) = Empty: N = N + 1 If N <> I Then A(N, J) = A(I, J): A(I, J) = Empty Else A(I, J) = Empty End If End If Next I N = Empty Next J End With .Range("AA5").Resize(UBound(A, 1), UBound(A, 2)).Value = A End With End Sub

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

أخي خالد بارك الله فيك كود بسيط وعمل رائع تشكر عليه

السلام عليكم شاهد الملف المرفق بعد التعديل مجموع الإختيار2.rar

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

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

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

سؤال بيشغل البطيخة!

السلام عليكم بعد أذنكم يا أخوة تفضل المرفق Customers New Only End1.rar

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

القاعدة بتنسيق mdb واتوقع انها محولة من تنسيق احدث المشكلة ان لديك ميزات جديدة في النموذج ليست متوافقة تماما عند التحويل . هذه التنسيقات هي وضع التخطيط للعناصر على النموذج ! لحل المشكلة : حدد ايقونة جدول التخطيط وبعد النقر على احد العناصر ! سيتم تحديد جميع العناصر >> اذهب الى ترتيب ثم الخيار ازالة التخطيط! هنا اصبحت العناصر ليس ضمن تخطيط والموجود بالاصدارات الحديثة ! قم بالحفظ واكتب الكود مع التاكد من ان خاصية النموذج "يتضمن وحدة نمطيه"=نعم بالتوفيق

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

ابحث في النتدى يوجد برامج لسحب الجداول من قواعد البيانات التالفة ايضا يمكنك ارفاق قاعدة البيانات وستجد من يعينك ويساعدك

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

ارسلت لك رسالة علي الخاص

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

السلام عليكم و رحمة الله و بركاته جرّب هذا الملف أخي الكريم لعلّ و عسى يكون المطلوب .. أشرف النعاس.rar

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

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

السلام عليكم أخي خالد المحترم: عمل رائع تشكر عليه تقبل تحياتي.

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

استخدم الكود التالى وابدى ملاحظاتك Sub Button2_Click() Dim lr As Long, cl As Range, n As Integer lr = ورقة2.Cells(Rows.Count, "B").End(xlUp).Row For Each cl In ورقة2.Range("B2:B" & lr) For n = 1 To ورقة1.Cells(Rows.Count, "B").End(xlUp).Row If cl.Value = ورقة1.Cells(n, 2) Then With cl.Offset(0, 2) .FormulaR1C1 = "=VLOOKUP(RC[-2],ورقة1!R2C2:R1762C3,2,0)" .Value = .Value End With End If Next Next End Sub

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

اخى الكريم بخصوص الطلب الاول استبدل الكود السابق بهذا الكود Sub Button2_Click() Dim lr As Long lr = ورقة2.Cells(Rows.Count, "B").End(xlUp).Row With ورقة2.Range("D2:D" & lr) .FormulaR1C1 = "=IFERROR(VLOOKUP(RC[-2],ورقة1!R2C2:R1762C3,2,0),"""")" .Value = .Value End With End Sub اما بخصوص الطلب الثانى :- فلم افهم المطلوب ارجوا مزيداً من التوضيح مع العلم ان طبيعة عمل الكود هو البحث عن القيمة (الورقة 2 ) فى الورقة 1 وارجاع قيمة السطر المجاور لها

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

عزيزي لا يوجد اي سطر في صفحة البرمجة الخاصة بنموذج اضافة دورات جديدة اعتقد انك تقصد هذا الامر DoCmd.GoToRecord , , acNewRec حيث يوجد عند حدث عند التحميل لنماذج اخرى ! فلتطبيق نفس الفكرة : اذهب الى خصائص نموذج اضافة الدورات >> تاكد ان صفحة الخصائص خاصة لهذا النموذج >> اختر حدث ثم الحدث عند التحميل واختر من القائمة اجراء حدث ثم انقر على النقاط سيفتح حدث عند التحميل والصق الكود السابق ليظهر شكل الحدث كاملا : Private Sub Form_Load() DoCmd.GoToRecord , , acNewRec End Sub وهناك طريقة اخرى : لوذهبت الى الكود خلف زر اضافة دورات ستجد هذا السطر: DoCmd.OpenForm stDocName, , , stLinkCriteria استبدله بالتالي: DoCmd.OpenForm stDocName, , , stLinkCriteria, acFormAdd وتلاحظ اضافة الجزء acFormAdd وهو عبارة عن ايعاز بفتح النموذج لادخال بيانات جديدة تنبيه : الطريقة الاولى انسب اذا كنت تحتاج الى تصفح سجلات قديمة عن طريق ازرار التنقل اما الطريقة الثانية تستعرض البيانات الجديدة اللحظية! تنبيه : الطريقة الثانية مكافئة لعملية تغيير خاصية "ادخال بيانات" للنموذج وبالقيمة = نعم ! بالتوفيق

بارك الله فيك على التوضيح أخي خالد الرشيدي . كل الحب والتقدير

جرب المرفق علة المطلوب مشكل تعديل ونقل المعلومات.rar

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

استازى الحبيب ياسر خليل دائماً فى العون والمساعدة .... جزاك الله عنا كل خير انا فقط اردت استخدام طريقة مختلفة دوا وضع IF اخى الكريم معادلة استاذنا ابو البراء تفى بالغرض .. وها هى اخرى فقط لاثراء الموضوع دون استخدام IF =(C17>=5)*0+(C17<5)*(C20-C17*20) تقبلوا خالص تحياتى

السلام عليكم أولا- إنتهيت من تصميم قاعدة البيانات (الجداول) وقمت بإضافة العمود الذي طلبه الاخ يوسف وهو أمر العمل بحيث هو حقل رقم موجود في راس الفاتورة الجداول هي حسب الترتيب في القاعدة: 1- bill: جدول الفاتورة الرئيسي ويحوي على التاريخ والمستلم والمسلم وأمر العمل . 2- bodybill: جسم الفاتورة ويحوي على الاصناف الداخلة والخارجة من المستودع 3- depot: جدول يحوي على المستودعات 4- grp1 -grp2 - grp3 - grp 4 : نظام التصنيف وسأتكلم عنه في مشاركة لاحقة 5- item: جدول يحوي المواد الموجودة في المستودع 6- options: جدول الخيارات والاعدادات الافتراضية 7- user: جدول المستخدمين كلمة مرور قاعدة البيانات هي : syriainmyheat يفضل كما في كل برامجي السابقة المقدمة للمنتدى فك ضغط قاعدة البيانات في القرص D قاعدة البيانات الافتراضية موجود داخل مجلد new وهو قاعدة بيانات فارغة يقوم البرنامج باستخدامها في انشاء قواعد البيانات لكل السنوات وأي معلومات سيتم تسجيلها فيها ستكون افتراضية لكل القواعد المنشأة من خلال البرنامج

ارجوا من الاحبة مساعدتي على فك الحماية الخاصة ببرنامج محاسبة و خزائن، لم استطع الفيام بتغيير في البرمجة حيث كلما سعيت الى تحوير في code evenement الا و يغلق البرنامج. خاصة في نموذج حساب الاستاذ ، قيود يومية ...

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

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

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

السلام عليكم و رحمة الله و بركاته اقدم لاخواني الاعزاء في هذا الصرح العلمي : workbook يصلح لمن يعمل في مستندات تحتاج لمتابعة وتجديد مستمر هام : لكي تعمل كل الروابط يفضل وضع المجلد في الدرايف D: وأحب ان تلاحظوا ما يلي : اولاً : اشكر الله عز وجل ثم اشكر كل من ساعدني, فهناك الكثير ممن ساعدوني من اخواني بالمنتدي و اخواني بالعمل ثانياً : أرجو من الله عز و جل ان يكون هذا العمل مفيد لكل مسلم ثم أرجو من إخواني الاعزاء استخدامه في اوجه الخير ( بعيداً عما يغضب الله مثل البنوك و التأمين ... و ما شابه ذلك ) و الله الموفق و المستعان My Insurance 2011.rar

السلام عليكم إخواني وأحبائي وجدت علي موقع أجنبي قائمة للمبتدئين في تعليمات وبرمجيات الفيجوال بيزيك للاكسل القائمة علي شكل فهرس ولم أفعل غير تنسيقها فقط بالإكسل تفضلوا القائمة بصيغتي 2003 ، 2007 عسي الله أن ينفع بهما Excel VBA Index.rar

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

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

أنا وصلت متأخر جداً الكمية نفدت من المخازن - ممكن اطمع فى رفع الملف مرة أخرى