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

السلام عليكم و رحمة الله تعالى و بركاته: أستاذ محمد حياك الله و بعد إذنك. هناك فكرة ممتازة قدمها لنا الأستاذ جعفر توضع في الجدول و قد قمت بإضافتها إلى النموذج و تم حل المشكلة بنجاح بإذن الله تعالى. 1- إذهب إلى خصائص مربع النص حاسب في خاصية تنسيق و أجري التعديلات التالية كما في الصورة: و سوف تصبح كالتالي: 2- قم بنفس التعديلات على الحقل حاسب في جدول test على خاصية تنسيق كالتالي: 3- ثم إذهب إلى الكود خلف زر ترقيم و عدل عليه كالآتي: Me.حاسب = AutoNumber("Test", "حاسب") و هذا هو التعديل على المرفق: AutoNumber.rar

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

السلام عليكم ورحمة الله وبركاته أحبتي أساتذتي الكرام الذين لطالما تعلمت منهم واستأنست بهم.. أحببت مشاركة إخوتي الكرام بمنتدانا الكريم بعمل بسيط أرجو الله تعالى أن ينفع به وأن يكون خالصاً في سبيله .. لقد اطلعت على فيديوهات تتعلق بالتركيز على الـ vba للتخفيف من حجم الملف بالمعادلات ... ولا أدري إن كانت ستحقق هذه الفائدة في الملفات كبيرة الحجم هذه الدالة التي أضفتها تعتمد على (عملية ضرب الكمية بالسعر بشرط )متعلق بعمود مساعد كما هو مبين بالمرفق أدناه. Function QtyUnitPrice(NoPlank As String, Qty As String, UnitPrice As String) 'احتساب الثمن باستخدام دالة ضمنvba If NoPlank <> "" Then NoPlank = NoPlank QtyUnitPrice = Qty * UnitPrice Else QtyUnitPrice = "" End If End Function لكنني أحببت تعريب مسمياتها محبة بلغتي ورجاء أن تدخل عالم البرمجة ذات يوم...كما يلي: Function احتساب_الثمن(دون_فراغ As String, الكمية As String, سعر_الوحدة As String) 'احتساب الثمن باستخدام دالة ضمنvba يتم تعريب التسميات If دون_فراغ <> "" Then دون_فراغ = دون_فراغ احتساب_الثمن = الكمية * سعر_الوحدة Else احتساب_الثمن = "" End If End Function يمكنكم التعديل عليها وإضافة الشروط التي ترغبونها لتوافق ملفاتكم ....أرجو توجيهي في حال وجود أي خطأ فيها كوني مبتدئ بهذا المجال والسلام عليكم ورحمة الله وبركاته. فاتورة مبيع محمد.rar كما أرجو أن تكون هناك جدولة للدوال التي يقوم السادة الأعضاء الكرام بإرفاقها لنستفيد منها أو ليستفيد أبناؤنا الأحبة منها.

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

وجزاكم مثله أخى الكريم ، والحمد لله الذى تتم بنعمته الصالحات

الله يخليك ، لا تخلي زوجتي تشوف هالاسم ، وإلا بتعتقد ان موسى من زوجه أخرى جعفر لا ، وانما الطريقتين ستظهران الحرف والرقم عند استعمال الحقل في اي مكان جعفر

حل جميل بارك الله فيك و جزاك كل خير

تفضل اخي الكريم إظهار البيانات.rar

السلام عليكم ورحمة الله انسخ هذا الكود والصقه فى حد الصفحة Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$D$7" Then Exit Sub Range("B11:C41").ClearContents For R = 3 To Sheet1.Range("B" & Rows.Count).End(xlUp).Row If Sheet1.Cells(R, "B") = Target Then Range("B11:B41") = WorksheetFunction.Transpose(Sheet1.Range("D" & R & ":AD" & R)) Range("C11:C41") = WorksheetFunction.Transpose(Sheet1.Range("D2:AD2")) End If Next For S = 11 To 41 If IsError(Cells(S, "B")) Or IsError(Cells(S, "C")) Then Cells(S, "B").ClearContents Cells(S, "C").ClearContents End If Next End Sub

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

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

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

أشكر مروركم العطر وكلماتكم الطيبة أخي الكريم طلعت محمد حسن جزاكم الله خيراً.

بارك الله فيك اخي ابو يوسف معلومة مفيدة جزاك الله كل خير.

هذا من فضل ربي ثم بفضلكم ومتابعتي لعلومكم التي أرجو الله تعالى أن يجعلها بميزان حسناتكم...حبيبي أبو أسيل. تقبل أعطر وأزكى تحياتي وأمنياتي لكم

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

السلام عليكم يمكنكم الاستفادة من البرنامج في هذا الرابط: . من هذا النموذج: . والذي استخدمت فيه نوعين من الكائنات لعرض الصور/ملفات pdf ، وبرمجيا ، وحسب نوع الملف ، كنت اخفي الكائن الاخر ، واعرض الصورة على كائن الصور ، بينما اعرض ملفات pdf على كائن متصفح الانترنت IE (والذي تستطيع ان تعرض عليه معظم الملفات الاخرى ، غير الصور) جعفر

وعليكم السلام Shared ، هذه خاصية تم ادخالها في الاكسس 2010 ، والتي يعمل الاكسس جدول خاص للصور ، ثم يحفظ الصورة/الصور في الجدول ، فهذا معناه ان هذه الطريقة في واقع الامر مدمجة Embedded ، ولكن ، الميزة انك تستطيع استعمال نفس الصورة مرارا في النماذج والتقارير بينما اذا رجعنا الى طريقة ربط الصور Linked ، فبعدما تربط الصورة ، كالتالي ، مثلا: اسم الحقل: img اسم النموذج: frm_Main ربط الصورة يكون هكذا ، مثلا: Me.img.Picture = application.currentproject.path & "\Images\myPic.jpg" . واذا اردت استعمال نفس الصورة في نموذج/تقرير ثاني/ثالث ، فيمكنك استعمال الكود التالي: Me.img2.Picture = Forms!frm_Main.img.picturedata والذي لن يأخذ الصورة من القرص الصلب ، وانما سيأخذ نسخة من الصورة التي في الحقل img في النموذج frm_Main ، وسيكون اسرع من استدعاء الصورة من القرص الصلب ، ويمكنك استعمال هذا الكود في جميع اصدارات اكسس جعفر

تفضل اخوي الحاق1.rar

جرب هذه المعادلة =IF(C5="","",COUNTIF($C$5:C5,C5)+VLOOKUP(C5,{"سند قبض",0;"سند قيد",500;"سند صرف",1500},2,0)) تفضل الملف جاهز ترقيم salim.rar

السلام عليكم ورحمة الله استبدل المعادلة السابقة بهذه المعادلة =IF(B1="";"";COUNTA($B$1:B1))

وعليكم السلام أخي صالح اعتذر منك على التأخر في الرد ردا على سؤالك: ما دام الكود شغال عندك وبدون مشاكل ، فعلى بركة الله ولكن رأيي هو ان تجعل الكود يعمل بالطريقة التالية: 1. ان تجعل الكود يتعرف على نسخة الاكسس التي تُستعمل الان (2003 او 2007 او... ) ، 2. على اساس النسخة ، يقول الكود بإستخدام الكود المناسب ، 3. بهذه الطريقة يكون الكود عام لجميع اصدارات الاكسس جعفر

السلام عليكم ورحمة الله اكتب هذه المعادلة فى الخلية A1 =COUNTA($B$1:B1) ثم اسحب نزولا

انظر داخل الكود في المثال ستجد السطر المسؤول عن تخصيص الملفات المعروضة strFilter = ahtAddFilterItem(strFilter, "Excel Files (*.xls)", "*.xls") لا حظ انه حدد نوع الملفات عدل عليه كما تريد ، انظر السطر هذا اضفت اليه قواعد بيانات اكسس AddFilterItem(strFilter, "Excel and access Files (*.xls), *.xls, *.mdb") او تدري عن شي احسن من كل هذا : افتح اي شيء انظر السطر strFilter = ahtAddFilterItem(strFilter, "any Files (*.*)")

اتفضل ان شاء الله يكون ده طلبك غيرت هذا الجزء من الكود القديم ده (*.xls)", "*.xls") بهذا الكود (*.xls;*.xlsx)", "*.xls;*.xlsx") -2استيراد بيانات.rar

زي ماطلب الاستاذ شيفان هاتي مثال وليكن 10 اشخاص وبملف اكسل مطابق لملفك في اسماء الاعمدة . وباذن الله تجدين الحل

السلام عليكم وحتى يكتمل الموضوع ، اخذت جزئية من احد برامجي ، وهي لحساب السنه والشهر واليوم ، يعني الحساب بالكامل . وهكذا ننادي الوحدة النمطية . والنتيجة . والوحدة النمطية Public Function YMDDif2(sDate1, sDate2) 'Public Function YMDDif2(sDate1, sDate2, Cont_Type, Res_Date) On Error GoTo err_YMDDif2 'sDate1 earliest date 'sDate2 later date 'Cont_Type = Contract Type 'Res_Date = Resignation Date Dim dInterim1 As Date ' If Cont_Type = "استقالة" Or Cont_Type = "متقاعد" Then ' sDate2 = Res_Date ' End If iMonth = DateDiff("m", sDate1, sDate2) If Day(sDate1) > Day(sDate2) Then iMonth = iMonth - 1 End If dInterim1 = DateAdd("m", iMonth, sDate1) iDay = DateDiff("d", dInterim1, sDate2) D = iDay M = iMonth Mod 12 Y = iMonth \ 12 YMDDif2 = CStr(Y) & " س/" & CStr(M) & " ش/" & CStr(D) & " ي" Exit Function err_YMDDif2: If Err.Number = 94 Then 'ignor, null Resume Next Else MsgBox Err.Number & vbCrLf & Err.Description End If End Function . جعفر 473.2.db.mdb.zip

بسم الله الرحمن الرحيم هذه دفعه تحت الحساب أيضا أرجو أن نحوز على رضاكم أخيكم سهل احمد ( ابو نعيم ) برنامج متابعة درجات طالبات الكلية (للأستاذ/ شاكر الزين) نبذه عن البرنامج : هذا البرنامج من أروع وأفضل البرامج التي شاهدتها حتى الآن التي تخدم الكليات أو الجامعات والطلاب ،،، حيث يتميز بالأتي :- أولاً: المدخلات 1- شاشة إدخال الكليات 2- شاشة إدخال رئيسات الأقسام 3- شاشة إدخال أسماء المعلمات 4- شاشة إدخال المواد التابعة لكل قسم 5- شاشة إدخال الطالبات 6- شاشة إدخال الدرجات لكل قسم على حدة ثانياً: المخرجات (التقارير) 1- تقرير بأسماء جميع أقسام الكليات 2- تقرير بأسماء المواد التابعة لقسم معين 3- تقرير بأسماء طالبات قسم معين 4- تقرير بدرجات طالبة في قسم معين لجميع المواد 5- تقرير بدرجات طالبات قسم معين في مادة معينة أرجو أن تدعوا لمن قام بتصميم البرنامج بصالح دعائكم ولا تنسوني منه ;)برنامج متابعة درجات طالبات الكلية (للأستاذ/ شاكر الزين) التعليق على الموضوع منقول للأخ عادل القاسمي برنامج متابعة درجات طالبات الكلية.rar