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

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

الشكر لله اخي حسين العربي البركه باخواني الخبراء الذي قدمو لنا الكثير من خبراتهم فالف تحيه اليهم الف تحيه لاستاذي ومعلمي@Shivan Rekany علي مشاركته بالموضوع تحياتي

اشوف ان اذا لا يكون هناك اي سجل في النموذج الفرعي بيعطيك الخطأ لذلك استخدم ھذا =IIf(IsError([fary1]![sh]);0;[fary1]![sh])

فورم طباعة الفورم بالكامل الفيديو ' لو الثلاثة فيهم بيانات If TextBox1.Value <> "" And TextBox2.Value <> "" And TextBox3.Value <> "" Then 'oاختار لى اخر خلية فى العمود x = Range("o" & Rows.Count).End(xlUp).Row 'اجعل الخلية الاولىمن التكست بوكس رقم 1 Range("o" & x + 1).Value = TextBox1.Value 'اعمل لى ازاحة عمود واحد ولكن فى نفس السطر Range("o" & x + 1).Offset(0, 1).Value = TextBox2.Value 'اعمل لى ازاحة عمودين ولكن فى نفس السطر Range("o" & x + 1).Offset(0, 2).Value = TextBox3.Value 'ارسل لى رسالة بنعم او لا للطباعة d = MsgBox("هل تريد الطباعة ", vbYesNo, "طباعة الفاتورة مع تحيات مجدى يونس ") 'لو المستخدم اختار زر نعم If d = vbYes Then 'اطبع فورم رقم 3 UserForm3.PrintForm 'فرغ البيانات للتكست ال الثلاثة TextBox1.Value = "" TextBox2.Value = "" TextBox3.Value = "" Else 'لو المستخدم اختار زر لا If d = vbNo Then 'فرغ بيانات التكست الثلاثة TextBox1.Value = "" TextBox2.Value = "" TextBox3.Value = "" 'غلق البيانات End If End If Else 'لو لم ادخل بيانات فى التكست الثلاثة ارسل الرسالة التالية MsgBox ("البيانات غير مكتملة") End If End Sub

أخوتي الأعزاء مرفق تطبيق يحوى بإذن الله أفكار وحلول برمجية تدعم جزء من فكرة النسخ التجريبية للتطبيقات. التطبيق المرفق عبارة عن جدول ونموذج استهلالي ونموذج رئيسي يعمل قبل أي نموذج مرفق بالتطبيق لاحقا ، ليقوم بفحص التواريخ وتزويدنا بالرسالة التي نريد إيصالها للمستخدم ، وتحديد الإجراءات التي نريد اتخاذها حسب الحال. = عند تشغيل التطبيق لأول مرة يقوم النموذج عبر الكود وحسب حالة الجدول بإدخال تاريخ التشغيل الأول وتاريخ نهاية استخدام التطبيق ( بعد 20 يوم) ، ويظهر رسالة بالمعلومات المناسبة . = عند إعادة الاستخدام يقوم النموذج باحتساب التواريخ وتحديد عدد الأيام المتبقية لاستخدام التطبيق ، ويظهر رسالة بالمعلومات المناسبة. = قدم التاريخ من الجهاز لفترات مختلفة وقارن تجاوب التطبيق ، ورسائله. = إذا كان خيارك في حماية التطبيق عند انتهاء الفترة المسموح بها ، هو إلغاء الجداول يظهر لدينا الخطأ 3078 ، هنا يظهر النموذج (في تطبيقنا ) رسالة مناسبة لمراجعة المبرمج لاقتناء تطبيق مرخص . جرب ووافني بالنتيجة والله من وراء القصد والفضل لله من قبل ومن بعد، الذي يسر مسعانا لطلب العلم ،،، ولاساتذتناالافاضل ... NA_Demo.rar

بسم الله الرحمن الرحيم احبابنا في الله هذا كود خاص باستدعاء بيانات صفحه كامله الى صفحه اخرى مثلها في رؤوس العناوين ولكن بشرط - ( تصفيه بيانات ) - وهو خاص للمحترم الذي اكن له كل تقدير واحترام الاستاذ زيزو العجوز Sub Trans_Data() 'الكود خاص بالمحترم زيزو العجوز 'يحفظه الله 'تم هذا الكود في 15/11/2017 'الهدف من الكود هو استدعاء صفحة كامله بشرط '================ 'الاعلان عن اسماء الشيتات' Dim Main As Worksheet, sh As Worksheet ' الاعلان عن المصفوفتين Dim Arr As Variant, Temp As Variant '(i,j)الاعلان عن ابعاد المصفوفة الاولى ( p ) وعداد المصفوفة الثانية Dim i As Long, j As Long, p As Long ' الاعلان عن المتغير الذى سوف يتم العمل عليه Dim dep As String Set Main = Sheets("المصدر") Set sh = Sheets("الهدف") '======= ' محو البانات القديمة sh.Range("A7:CX" & Main.Range("B" & Rows.Count).End(xlUp).Row).ClearContents ' معيار الاختيار dep = sh.Range("C1").Value ' المصفوفة المصدر Arr = Main.Range("A7:CX" & Main.Range("B" & Rows.Count).End(xlUp).Row).Value ' ابعاد المصفوفة الهدف ReDim Temp(1 To UBound(Arr, 1), 1 To UBound(Arr, 2)) ' طول المصفوفة المصدر For i = 1 To UBound(Arr, 1) 'رقم عمود الشرط If Arr(i, 101) Like "*" & dep & "*" Then 'If Arr(i, 101) = dep Then ' العداد لتحديد طول المصفوفة الهدف p = p + 1 ' عرض المصفوفة الهدف For j = 1 To UBound(Arr, 2) ' تعبئة المصفوفة الهدف من المصفوفة المصدر حسب الشرط Temp(p, j) = Arr(i, j) Next End If Next ' خليه البدايه لصفحه الهدف 'عرض البيانات المطلوبة If p > 0 Then sh.Range("A7").Resize(p, UBound(Temp, 2)).Value = Temp End Sub ================== استدعاء صفحة بشرط.rar *************** ويوجد بالملف ايضا كود فلتره للمحترم الاستاذ الخلوق سليم حاصبيا ولكن لم استطع تطويع الكود في الملف فادعو الله ان يتم تطويع كوده للافاده يجزيكم الله كل خير Option Explicit Sub Filter_Me() Sheets("الهدف").Range("a8").CurrentRegion.ClearContents Sheets("المصدر").Range("a8").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, criteriarange:=Sheets("الهدف").Range("m1:n2"), copytorange:=Sheets("الهدف").Range("a8") End Sub

جعلها الله فى ميزان حسناتك

ماذا عن الـ Mde ؟؟ هل جربت فكها في البرنامج؟

يرجى تسمية الأقسام الجديدة التي ترون انه من المفيد أضافتها للموقع هذه بعض المقترحات التي وردتنا سابقا ، برجاء ابداء الراي : ملاحظة ليس بالضرورة اضافة كل ما سيرد ، و ليكن سيتم بحث الأمر باذن الله و اختيار ما يناسب الموقع فى الوقت الحالي مع تلبية الرغبات الواردة قدر المستطاع قسم للبحث العلمي و به الأقسام التالية: - مناهج البحث العلمي - علم الاحصاء - SPSS - R & ORange قسم للغات البرمجة .net العام - VB.net - C#.net - C++.net - Python - Delphi - VB6 تطبيقات الويب - PHP - Java Script - My SQL دعم منديات الاي بي قسم للدعم الفني للشبكات و انظمة التشغيل - أنظمة الويندوز - اللينكس - الشبكات الأمن و الجماية قسم للرسوميات و الوسائط المتعدد - ادوب فوتوشوب - ادوب ديزياين - ادوب اليستراتور - أتوكاد 3 دي ماكس

السلام عليكم اخي حسين انظر لهذا الرابط باذن الله تجد طلبك تحياتي اليك

جرب هذا الملف اظهار النجمة للفراغ salim.rar

انا استخدم طريقتين اخرين والمستخدم بيختار احد الطرق وهو 1 / يجب عليه ان يتم الجواب على سؤالين وهو قمت باختياره عند اضافة الحساب 2 / يجب ان يدخل بريده الاكتروني اللي في حسابه بالضبط و البرامج راح يرسله رقم مكونة من 6 ارقام وهذا الرقم الذي ارسله الى بريده يستخدم لمدة 10 دقائق فقط اذا ما وصل الى ذلك الرقم في ذلك المدة ما راح يقدر ان يغير الرقم سري خاص به واذا وصل اليه راح يدخل في حقل خاص بعدين راح يفتح يقدر يغير رقم سري تابعه

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

السلام عليكم ورحمة الله استخدم هذه المعادلة =IF(AND($B2="سعودي";$C2>4);"غير محدد المدة";IF(AND($B2="سعودي";$C2=4;$D2>0);"غير محدد المدة";"محدد المدة"))

السلام عليكم ورحمة الله تفضل صافى الربح.rar

السلام عليكم ورحمة الله انسخ هذا الكود والصقه فى موديول واريطه بالزر المرفق Sub Speaking() For i = 1 To 6 x = Cells(i, 1).Value Application.Speech.Speak x Next Application.Speech.Speak "Don" End Sub

السلام عليكم ورحمة الله تفضل اخى الكريم اختر الادارة من الخلية "L1" بالورقة الثانية المصنف1.rar

انا كذلك مع اضافة الموضوعات الجديدة وبالتوفيق والسداد للجميع وشكرا والسلام عليكم

اقترح اضافة قسم الذكاء الاصطناعي

اليك الملف مع المعادلة Book1 salim21.rar

أهلا بك علي.. تفضل الحل: mm.zip

استخدم الصيغة التالية Call Shell("XCOPY /Y E:\MAF\PQD_BE.accdb C:\Users\" & Environ ("UserName") &"\Dropbox\", 1)

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

بارك الله فيك أخي الكريم

بارك الله فيك أخي الكريم

شكرا اخي الكريم

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

قم بإزالة call refresh وضع مكانها Me.requery تحياتي

السلام عليكم ورحمة الله وبركاته توصلت لكم عبر Google وباذن الله أجد لديكم الحل للمشكلة العويصة في دمج المراسلات قرأت الكثير من الحلول للمشاكل لكن ال WORD لدي لا ادري ما به او كيف هي الالية للحل لانه اوقات تضبط معي بسهولة واوقات اعيد نفس الحل لكنه لا يضبط ابدا واقات ارجع للملف الاول اجده ايضا يواجه مشكلة لدي سؤالين: * لدي ملف اكسل فيه بيانات عبارة عن ادخال بيانات والمشكلة انه فيه تواريخ عربية هكذا 1438 لكن بارقام هندية او انجليزية كلها اواجه المشاكل التالية عند دمج المراسلات في WORD 1- اما ان يظهر التاريخ ميلادي وهو عربي في الاكسل 2- او يظهر التاريخ انجليزي هكذا بالضبط 1438 واريده بارقام هندية 3- يظهر معكوس مثل 12/6/1438 هذه المشكلة اتعبتني جدا لا ادري ما الحل كلما حاولت وحتى قرأت بهذا المنتدى ردود ومنها للاخ برقش لكن لم اجد الحل واوقات يضبط معي واوقات لا ينفع الحل لدرجة ان اوقات يظهر الرقم هندي وممتاز فقط اقوم بتصغير الWORD وارجع له اجده تحول الى انجليزي !!!!!!! * المشكلة الثانية كالتالي: عندي ملف اكسل فيه بيانات كثيرة واسوي لها دمج مراسلات لاني انزل لها تقارير وجدا مريحة لو ضبطت ملف الاكسل يكون مكتوب فيه بيانات الشخص مثلا الرقم والاسم والعمر وتاريخ التسجيل كل المعلومات الخاصة بالشخص تكون بصف واحد بنفس طريقة دمج المراسلات المعروفة بحيث اسمي الاعمدة الاسم - العمر - تاريخ التسجيل ......... انقل هالمعلومات عن طريق دمج المراسلات في word لكن الصفحة في word فيها معلومات اكثر 1- علي سحب معلومات 5 أشخاص بكل صفحة 2- هناك بيانات علي اسحبها مرة واحدة لكل خمسة اشخاص 3- هناك اشخاص باسم مثلا (اسم2) اخرين لكن ليسو مع القائمة الاولى وعدد 3-5 اشخاص لكل صفحة ولا ادري كيف استطيع سحب معلوماتهم وموجودين بنفس الورقة كل اللي قمت بعمله اني جعلت كل واحد من الاخرين بنفس الصف لكل واحد مع الاسماء الخمسة الاوائل لكن word لا يسحب معلوماتهم بطريقة صحيحة هذه صورة لملف الاكسل اريد من ال word يسحب بيانات اول خمسة اشخاص باليمين الى تاريخ التسجيل ثم يسحب بمكان اخر بالورقة اسماء ثلاثة اشخاص من اللي باليسار هكذا صفحة ال word كل صفحة في ال word يجب ان ياخذ من اسم 1 (5 اشخاص) وفي نفس الصفحة من اسم 2 (3 اشخاص) على صفحات كثيرة فكيف الحل لهذه المسألتين؟

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

شروحات أكسس الصوتية والمرئية دروس الأستاذ عبدالفتاح كيره شرح 3 طرق لفتح نموذج من داخل نموذج آخر الاستفادة من خاصية القيمة الافتراضية للحقول شرح التحقق من عدد أرقام الرقم القومى شرح استخلاص ت الميلاد من الرقم القومى دالة mid-val شرح دالة DateSrial شرح البحث عن اسم يتضمن أى حروف البحث بمعلومية شرطين باستخدام استعلام و كود شرح استعلام إلحاق استعلام الإلحاق بدون تكرار مع تعديل بعض الحقول الملحقة كيف تفتح نموذجا على سجل محدد كيفية التحكم فى حقل بنموذج فرعى من خلال النموذج الرئيسى كيفية البحث عن السجلات و الانتقال إليها التنقل بين السجلات في نموذج أكسيس بخطوات محددة التخطيط لإنشاء قاعدة بيانات ======================================================== تعلم الاكسيس ( باللغه العربيه صوت و صوره ) لــ admiral http://www.officena.net/ib/index.php?s=c6d3bad3a53a5ac634ea791d48f6472c&showtopic=31301 ======================================================== شرح اكسس 2003 فيديو (1)... لقنديل الصياد http://www.officena.net/ib/index.php?showtopic=48569 شرح اكسس 2007 (2) http://www.officena.net/ib/index.php?showtopic=51147 شرح اكسس 2010 (3) http://www.officena.net/ib/index.php?showtopic=51150 ======================================================== تعليم برنامج أكسس 2010 لـــ ALSHAMAL http://www.officena.net/ib/index.php?showtopic=54641 ======================================================== أكسيس 2013 شروحات متنوعة الاستاذ عبداللطيف طراقجي شرح برنامج مايكروسوفت أكسيس 2013 http://www.officena.net/ib/index.php?showtopic=59950&hl= الدرس الأول إنشاء و إدارة قواعد البيانات http://www.officena.net/ib/index.php?showtopic=59961&hl= الدرس الثاني: إدارة العلاقات و المفاتيح في برنامج الأكسيس http://www.officena.net/ib/index.php?showtopic=60073&hl= الدرس الثالث: التنقل من خلال قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=60177&hl= الدرس الرابع: حماية و صيانة قواعد البيانات http://www.officena.net/ib/index.php?showtopic=60261&hl= الدرس الخامس: طباعة و تصدير قاعدة البيانات http://www.officena.net/ib/index.php?showtopic=60376&hl= الدرس السادس: إنشاء الجداول في قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=60468&hl= الدرس السابع: تنسيق الجداول في قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=60584&hl= الدرس الثامن: إدارة السجلات في جداول قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=60681&hl= الدرس التاسع: إنشاء و تعديل الحقول في جداول قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=60809&hl= الدرس العاشر: إنشاء الاستعلامات في قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=60893&hl= الدرس الحادي عشر: إنشاء الاستعلامات الاجرائية في قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=60988&hl= الدرس الثاني عشر: تعديل الاستعلامات في قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=61086&hl= الدرس الثالث عشر: استخدام و تجميع الحقول المحسوبة في الاستعلام http://www.officena.net/ib/index.php?showtopic=61177&hl= الدرس الرابع عشر: إنشاء النماذج في قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=61265&hl= الدرس الخامس عشر: تعيين عناصر تحكم النموذج في قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=61351&hl= الدرس السادس عشر: تنسيق النماذج في قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=61409&hl= الدرس السابع عشر: إنشاء التقارير في قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=61468&hl= الدرس الثامن عشر: تعيين عناصر تحكم التقرير في قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=61561 الدرس التاسع عشر و الأخير: تنسيق التقارير في قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=61634

أخي // حسام ,,, لقد قمت بتصميم 2 فورم حسب اقتراحك فورم لادارة الصندوق واظهار الرصيد بعد كل عملية ويمكن خلاله ادخال العمليات التي تتم علي الصندوق من سحب وايداع الفورم الاخر لادرة العمالة من (اجور يومية - اسبوعية - سلف مؤقتة تخصم من راتب الاسبوع - سلف طويلة الاجل (تخصم علي دفعات يتم تحديدها ) حتي يتم خصمها من الراتب ومن خلاله ادخال جميع البيانات والسلف والجزاءات والاضافات والمكأفات للعامل مع امكانية للبحث عن العامل ولضيق الوقت - في القريب ان شاء الله اسويلك كشف حساب للعامل يظهر معاملاته خلال فترة معينة او يظهر معاملات الصندوق خلال فترة معينة راجع العمل وان كان عندك اية اقتراحات لا تتردد في سردها تقبل تحياتي حسام - ادارة الصندوق.rar