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

. . جعفر

. . يا طويل العمر : لما النموذج يكون مفتوح ، فتقدر ترسل قيمة الحقول me.GE و me.SX الى الكود لفتح التقرير بمعيار ، ولكن ، لما تغلق النموذج ، فلا توجد قيم للحقول me.GE و me.SX ، وعليه ، لا تستطيع استعمالهم في المعيار لفتح التقرير. جعفر

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

هذا الروابط بتفيدك . . . جعفر

السلام عليكم 🙂 عمل جميل اخوي موسى 🙂 والكاسبريكاي ما اعترض على شيء 🙂 جعفر

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

لا.. يمكنك تغيير اسم النموذج إلا إذا كان مغلقاً.. استخدم عوضاً عن ذلك Screen.ActiveForm

تفضل ... اكتب الكود المطلوب ثم دبل كلك على مربع النص وانظر ..... test (13).accdb

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

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

كذاك تبغاه الأخ سعيد ؟ 🙂 مدة عمل الموظف.rar

تفضل <><><><><> On Error Resume Next DoCmd.OpenReport "R1", acViewReport, , "[المؤهل]=" & Me.HA & " and [النوع]=" & Me.SI DoCmd.Close acForm, Me.Name

أوقات الصلاة

وعليكم السلام 🙂 احفظ البرنامج في مجلد موثوق به ، وافتحه من هناك 🙂 وهذه طرق اخرى لحل المشكلة: https://www.devhut.net/bypassing-microsofts-new-blocking-of-macros-vba-code/ جعفر

السلام عليكم 🙂 الشباب قلبوا الكود ، فبعد اغلاق النموذج ، لا يمكنك قراءة قيمة من النموذج 🙂 المفروض يكون: Private Sub GO152_Click() On Error Resume Next DoCmd.OpenReport "M11", acViewReport, , "[GER]=" & Me.GE & " and [NOV]=" & Me.SX DoCmd.Close acForm, Me.Name End Sub او Private Sub GO152_Click() On Error Resume Next dim GE2 as long,SX2 as long GE2=me.GE : SX2= me.SX DoCmd.Close acForm, Me.Name DoCmd.OpenReport "M11", acViewReport, , "[GER]=" & GE2 & " and [NOV]=" & SX2 End Sub جعفر

السلام عليكم ورحمه الله وبركاته اتفضل اخى الفاضل @مدحت توفيق بالتوفيق 29_1.accdb

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

ما رأيك اعمل لك نموذج واحد واستعلام واحد لجميع ازرار الرصيد السابق ؟ لانك الآن تستخدم ثلاث نماذج وثلاث استعلامات

المشكلة في المعايير في الاستعلام الخطأ في استعلامك : 1- لم تضع معيار لتصفية (اصغر من) من تاريخ 2- وجود معيار تصفية من تاريخ الى تاريخ وهذا لا معنى له لاننا نريد جميع التواريخ السابقة علما انه يمكنك التصفية حسب السنة المالية او اتركها خالية ليظهر الجميع T3Q -5.rar

اذا كان ما تقصده ربط الاكسيس بجهاز الكاميرا هو ما تريده فللاسف ليس لدي خبره فى هذه النقطه فممكن تنتظر المساعده من اساتذتى الكرام ( حفظهم الله ) اذا كان هذا ممكنا وكيف الوسيله @jjafferr @ابو جودي@Moosak او من يكن عنده خبره

شكرا لك من أعماق قلبي @المشرفيوممكن تشرح الطريقة😍

اخى الفاضل @المشرفي لابد من اختيار نوع التحويل المطلوب ان كان من هجرى الى ميلادى او العكس لكي يظهر الايام والشهر والسنه عندما لا يتم اختيار نوع التحويل تظهر فارغه

وعليكم السلام أخي athal1 🙂 عدل سطر الفلتر إلى هذا : Me.Form.Filter = " [ItemName] LIKE '*" & filter_data & "*' And [InvoiceDate] BETWEEN #" & Me.Text1 & "# AND #" & Me.Text2 & "#" هنا :

أشكرك كثير استاذ وأشكر كذلك كل الاساتذة الذين ساهموا بمشاركاتتهم في هذا الموضوع صحيح هو المطلوب

wor1.xlsm

الاخ العزيز ابوخليل جزاك الله خير الجزاء ان ماتفضلت به هو المطلوب فشكرا لك ولكل من تفضل بالمساهمة

انا عدلته لك في المثال المرفق كان سبب عدم ظهوره هو المعيار الموجود في السنة المالية ، بينما الاستعلامين الآخرين غير موجود T3Q -4.accdb

أحسنت استاذى الكريم وبارك الله فى جهودكم

السلام عليكم ويمكن استعمال الملف المرفق بإضافة عمود مساعد E للترقيم التصاعدي لكل المدارس التي لم يتم زيارتها... School.xlsx

أخي الكريم تم عمل المطلوب باستخدام تنسيق الخلايا أرجو أن يفيدكم نسألكم الدعاء لنا قائمة.xlsx

تفضل أخي الكريم School.xlsx

السلام عليكم مشاركة مع اساتذتى العظماء هذه افكارى المتواضعة هذه الاكواد داخل موديول Public clnfrmName As New Collection Public frm As Form Public intCounterOpenForm As Integer Dim xPos As Integer Dim yPos As Integer Dim lngCount As Long Dim lngI As Long Function OpenAForm() Set frm = New Form_frmInvoice frm.Visible = True intCounterOpenForm = intCounterOpenForm + 1 frm.Caption = frm.Name & "(" & intCounterOpenForm & ")" clnfrmName.Add Item:=frm, Key:=CStr(frm.Name & "(" & intCounterOpenForm & ")") xPos = xPos + 300 yPos = yPos + 300 frm.Move xPos, yPos Set frm = Nothing End Function Function CloseAllForm() lngCount = clnfrmName.Count For lngI = 1 To lngCount clnfrmName.Remove 1 Next intCounterOpenForm = 0 xPos = 0 yPos = 0 End Function كنت اتمنى تطوير اخراج الفكرة بشكل عملى اكثر حتى لا يرتبط الكود باسم النموذج على ان يكون كود مرن ويتم استدعاءه بالشكل التالى OpenAForm("اسم النموذج المراد فتحه اكثر من مرة") ولكن عجزت بصراحة فى هذا السطر Set frm = New Form_frmInvoice Open Form more than once.accdb

السلام عليكم ورحمة الله وبركاته أحبائى أعضاء وأساتذة هذا الصرح العلمى الكبير تحية طيبة وبعد سؤال كثيرا منا يتسائل ما هى أسباب وضع فاصلة أم فاصلة منقوطة في معادلات الإكسل؟ هل تذكر أول مرة كتبت فيها معادلة أو دالة Function في برنامج إكسل، وخاصة إذا كنت تعلمتها بطريقة نظرية – وليست عملية – يعني مكتوبة على ورق وحفظتها وفهمتها ثم تبدأ بالتطبيق العملي باستخدام برنامج الإكسل. ببساطة أنت تبدأ بكتابة المعادلة كما تعلمتها بالضبط، وتحاذر الخطأ، لكن مرة بعد مرة تظهر لك رسالة خطأ السبب بسيط، وهو أنك كتبت فاصلة (,) Comma وكان يجب أن تكتب بدلا منها فاصلة منقوطة (;) Semi-Colon أو العكس. إذًا لماذا تكتب المعادلة نفسها على جهاز آخر بنفس الخطأ، ولا تظهر رسالة خطأ وتسير الأمور بصورة طبيعية وينتج ناتج الدالة بشكل صحيح. لا تنزعج، وتقول عيب الجهاز. يرجع الأمر إلى أن الإعدادات في لوحة التحكم ببرنامج ويندوز Windows قد تختلف من جهاز لآخر. على كل حال إذا أردت من برنامج الإكسل أن يقبل منك الفاصلة في المعادلات أو الفاصلة المنقوطة بدلا منها، فعليك بعمل ذلك مرة واحدة من لوحة التحكم افتح لوحة التحكم من قائمة إبدأ ثم لوحة التحكم. اختر التاريخ والوقت. Date, Time, Language, and Regional Options اختر تغيير تنسيق الأرقام والتواريخ والأوقات. Change the format of numbers, dates, and times اختر تخصيص Customize اكتب في خانة فاصل القائمة List separator أكتب فاصلة أو اكتب فاصلة منقوطة، كما تريد. فهذه الفاصلة أو الفاصلة المنقوطة هي ما ستكتب به المعادلات في الإكسل. انقر موافق Ok ثلاث مرات. انتهي

اعذرني مش قادر افهم طلبك تعديل ايه انت عاوزه ؟

تفضل استاذ منير طبعاً بعد اذن استاذنا الكبير ابراهيم .. فالكود يعمل بكل كفاءة وان حدث اى مشكلة معك فبسببك انت لأنك لم تضع الكود كما يجب ان يكون بالملف وشوف بنفسك حتى يتم اغلاق المشاركة Private Sub CommandButton1_Click() arr = Array("B5", "C5", "F5", "C8", "E9", "G10") tmp = Array(TextBox1.Value, TextBox4.Value, TextBox3.Value, _ TextBox2.Value, TextBox5.Value, TextBox6.Value) For i = LBound(arr) To UBound(arr) Range(arr(i)) = tmp(i) Next For Each Ctrl In Me.Controls If TypeName(Ctrl) = "TextBox" Then Ctrl.Value = "" End If Next Ctrl End Sub ترحيل إلى خانات متفرقة.xlsb

تفضل وأكثر مما تريد فورم ادخال وتعديل وحذف.xlsm

بارك الله فيك استاذ مجدى وزادك الله من فضله

احسنت أستاذ مجدى بارك الله فيك

بارك الله فيك استاذ مجدى وزادك الله من فضله

محمد عفيفى اليك الملف بعد التعديل يتضمن كود تحديد 10 صفوف بداية من الخلية النشطة والى اسفلها وكود لتحديد صف الخانة العاشرة بداية من الخلية النشطة والى اسفلها لنطاق معين يمكنك تعديله من داخل الكود. وكود لتحديد عمود الخانة العاشرة بداية من الخلية النشطة اوفيسنا-test3.xlsm

أحسنت استاذ مجدى بارك الله فيك

جزاك الله خير الثواب استاذ مجدى

بارك الله فيك استاذ مجدى وزادك الله من فضله

بارك الله فيك وكل عام وانتم بخير

وعليكم السلام -يمكنك ذلك بجعل التنسيق هكذا [$-,2000000]0.00_);[Red](0.00) TEST1.xlsx

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

السلام عليكم ورحمة الله وبركاته ***** لا تستخدم هاتفك الشخصي ، فالبرنامج سيحذف جميع الصور التي في المجلد sdcard/DCIM/Camera ***** هذا جزء رقم 1 من مشروع متكامل لتصوير الاشخاص والمستندات بإستخدام الكاميرات والماسح الضوئي (Scanner) ، والمشروع يتكون من: يعني مو بس البرامج الكبيرة تستخدم هذه التقنيات ، وإحنا بعد وهذه الاجهزة ستكون لتصوير الاشخاص والمستندات ، ان شاء الله التصوير عن طريق كاميرا هاتف اندرويد ، وتمت التجربة على هاتف اندرويد Galaxy S3 بنظام 4.4 و Huawei Mate 7 بنظام اندرويد 6 ، التصوير عن طريق WebCam ، وتمت التجربة على Logitec HD c615 ، التصوير عن طريق الكامرات الكبيرة من نوع DSLR ، وتمت التجربة على Nikon D5100 او Canon Mark iii ، تطويع الماسح الضوئي لتصوير المستند/المستندات ، وحفظ المستندات الى اي مجلد ، بصيغة pdf او jpg العمل غير مكتمل 100% ، والخطوات التي على قائمة العمل: 1. إعطاء المستخدم الآلية لتحديد مكان قطع الصورة (لمرة واحدة طبعا) ، وحذف الزوائد ، مثلا: الخلفية الثابته: . تصوير الشخص . قطع الصورة وحذف الزوائد (برمجيا) . وكذلك يمكن الاستفادة منه في تصوير مستندات A4 او A5 ، وقطع الصورة وحذف الزوائد (طبعا يكون هناك زر للـ A4 وزر آخر للـ A5) 2. ماذا لو اردت حفظ صورة / مستند ، وكانت هناك صورة سابقا بنفس الاسم؟ سيكون للمستخدم 3 اختيارات: أ- احذف الصورة القديمة واستبدلها بالصورة الجديدة ، ب- اعطي الصورة الجديدة الرقم التسلسلي التالي ، حسب آخر رقم موجود للصورة ، مثلا: الصورة الموجودة سابقا 1.jpg او Inward_2017_05_06.jpg والصورة الجديدة ستصبح 1_001.jpg او Inward_2017_05_06_001.jpg هذه العملية تنفع للأرشفة ج- دائما اجعل الصورة الجديدة بدون ترتيب ، واجعل الصورة السابقة تأخذ آخر رقم ، مثلا الصورة الموجودة سابقا 1.jpg او Inward_2017_05_06.jpg وآخر صورة في المجلد لنفس الصورة هي 1_001.jpg او Inward_2017_05_06_001.jpg عليه سنأخذ آخر صورة موجودة في المجلد ونعطيها الرقم التسلسلي التالي 1_002.jpg او Inward_2017_05_06_002.jpg والصورة الجديدة التي سنلتقطها ستكون 1.jpg او Inward_2017_05_06.jpg هذه العملية تنفع لبرامجنا والتي تستعمل اسم الصورة ، والذي يكون رقم الموظف مثلا وبقية الصور تسلسلها حسب القِدم . 3- حفظ الصور افقيا او عموديا. والآن الى برنامجنا التصوير عن طريق كاميرا هاتف اندرويد اولا: تهيئة الهاتف (البرنامج المرفق فيه المادة رقم2 ، ولا يوجد داعي لإنزاله) : رجاء اتباع الخطوات التالية ليكون الهاتف مهيأ للإتصال بالبرنامج ، ويجب ان يكون الهاتف موصل بالكمبيوتر عن طريق USB: 1- يجب ان يكون الكمبيوتر متعرف على هاتفك ، ويمكنك انزال هذا التعريف من شركة هاتفك ، او من الرابط التالي ، رقم 1 : http://adbshell.com/downloads . وبرنامجنا محتاج الى البرنامج الذي في الرابط اعلاه ، رقم 2 ، والذي لا يحتاج الى تنصيب (ونضع محتواه في المجلد Android_Mobile كما في الصور في الاسفل) ، او اذا اردت البرنامج اعلاه من مصدر آخر وبه SDK الاندرويد (اي جميع برامج التحكم في جزئياته) ، فيمكن تنزيله من الرابط: https://dl.google.com/android/repository/platform-tools-latest-windows.zip 2- يجب ان يكون هاتفك في وضع Developer Options ، كما في الصورة: . واذا لم يكن ، فعليك اتباع الخطوات التالية لعمله : من الاعدادات . وسترى . ثم انقر على المربع الاحمر ، ليأخذك الى الصورة التاليه ، واختار المربعين بعلامة صح . وعند ربط الهاتف بالكمبيوتر ، اختار من الهاتف . وعند تشغيل البرنامج ، سيطلب منك الهاتف الموافقه على السماح بالكمبيوتر التحكم فيه ، فاختار السماح ، 1 ثم 2 . الآن هاتفك مهيأ للتحكم فيه من خلال البرنامج ، ورجاء اجعل الهاتف في وضع الاغلاق (حيث تكون الشاشة سوداء) ، 3- مجلد برنامجك يجب ان يكون بهذه الطريقة . البرنامج مفتوح المصدر ، وتحتاج لمسك مفتاح Shift عند النقر المزدوج على ايقونة البرنامج لفتحه ورؤية الكود ، - البرنامج يفتح على النموذج frm_Main حيث تختار اسم الشخص او رقمه ، . وعند النقر على تفاصيل الموظف او تفاصيل الموظفين ، يفتح النموذج frm_Names ، وتلقائيا سترى ان الهاتف اشتغل ، وعند الخروج من النموذج سوف يغلق الهاتف ، في النموذج frm_Names ، عند النقر على هذه الايقونة سيتم التصوير . وخلال 8-9 ثوان ، سترى الصورة داخل النموذج ، ان شاء الله ويمكنك جعل الهاتف يأخذ الصورة بالفلاش ، من اعدادات الهاتف نفسه ، هذا كود البرنامج بطريقين ، الطريقة الاولى والتي تأخذ الوقت الاقل ، وتركت الطريقة الثانيه الابسط هنا كذلك للذي يريد اللعب فيه وتغييره: Private Sub Form_Load() Call BE_or_FE 'Adb location App_Location = BE_Path & "Camera_App\Android_Mobile\Adb.exe" 'turn on the Device cmmd = " shell input keyevent KEYCODE_POWER" Call Shell(App_Location & cmmd, vbHidden) End Sub Private Sub Form_Close() Call BE_or_FE 'Adb location App_Location = BE_Path & "Camera_App\Android_Mobile\Adb.exe" 'turn off the Device cmmd = " shell input keyevent KEYCODE_POWER" Call Shell(App_Location & cmmd, vbHidden) End Sub Private Sub cmd_Android_Camera_Click() On Error GoTo err_cmd_Android_Camera_Click 'KEYCODE_POWER = 26 'KEYCODE_CAMERA = 27 'KEYCODE_BACK = 4 'KEYCODE_HOME = 3 Dim cmmd As String 'how long does it take to take the picture istart = Timer 'set BE_Path Call BE_or_FE 'Adb location App_Location = BE_Path & "Camera_App\Android_Mobile\Adb.exe" Save_images_to = BE_Path & "images\" 'image capture mode cmmd1 = App_Location & " shell " & Chr(34) & "am start -a android.media.action.STILL_IMAGE_CAMERA" & "; sleep 1; " cmmd2 = "input keyevent KEYCODE_CAMERA" & "; sleep 2; " cmmd3 = "input keyevent KEYCODE_BACK" & ";" & Chr(34) cmmd = cmmd1 & cmmd2 & cmmd3 'Debug.Print cmmd Call ShellWait(cmmd, vbHidden) 'transfer the image to the PC cmmd = App_Location & " pull /sdcard/DCIM/Camera/ " & Save_images_to & "temp\" Call Shell(cmmd, vbHidden) 'Delete the pictures from the mobile camera folder cmmd = App_Location & " shell rm /sdcard/DCIM/Camera/*.jpg" Call Shell(cmmd, vbHidden) PauseTime = 1 Start = Timer Do While Timer < Start + PauseTime DoEvents Loop 'Delete the existing Employee_ID Kill Save_images_to & Me.Employee_ID & ".jpg" 'move the picture from folder temp and change its name Dim StrFile As String StrFile = Dir(Save_images_to & "temp\") Do While Len(StrFile) > 0 Mobile_Pic = StrFile StrFile = Dir Loop Name Save_images_to & "temp\" & Mobile_Pic As Save_images_to & Me.Employee_ID & ".jpg" PauseTime = 1 Start = Timer Do While Timer < Start + PauseTime DoEvents Loop 'show the picture in the Form Me.Pic.Picture = Save_images_to & Me.Employee_ID & ".jpg" 'Delete the temp folder RmDir Save_images_to & "temp\" 'MsgBox Timer - istart Exit Sub to_Here: 'image capture mode cmmd = " shell " & Chr(34) & "am start -a android.media.action.STILL_IMAGE_CAMERA" & Chr(34) Call ShellWait(App_Location & cmmd, vbHidden) 'Dim PauseTime, Start PauseTime = 1 Start = Timer Do While Timer < Start + PauseTime DoEvents Loop 'take a picture cmmd = " shell " & Chr(34) & "input keyevent KEYCODE_CAMERA" & Chr(34) Call ShellWait(App_Location & cmmd, vbHidden) PauseTime = 1 Start = Timer Do While Timer < Start + PauseTime DoEvents Loop 'exit the image capture mod cmmd = " shell " & Chr(34) & "input keyevent KEYCODE_BACK" & Chr(34) Call ShellWait(App_Location & cmmd, vbHidden) Call ShellWait(App_Location & cmmd, vbHidden) PauseTime = 1 Start = Timer Do While Timer < Start + PauseTime DoEvents Loop 'transfer the image to then PC cmmd = " pull /sdcard/DCIM/Camera/ " & Save_images_to & "\temp" Call ShellWait(App_Location & cmmd, vbHidden) PauseTime = 1 Start = Timer Do While Timer < Start + PauseTime DoEvents Loop 'Delete the image from the camera cmmd = " shell rm /sdcard/DCIM/Camera/*.jpg" Call Shell(App_Location & cmmd, vbHidden) PauseTime = 1 Start = Timer Do While Timer < Start + PauseTime DoEvents Loop 'Delete the existing Employee_ID Kill Save_images_to & Me.Employee_ID & ".jpg" 'move the picture from folder temp and change its name 'Dim StrFile As String StrFile = Dir(Save_images_to & "temp\") Do While Len(StrFile) > 0 Mobile_Pic = StrFile StrFile = Dir Loop Name Save_images_to & "temp\" & Mobile_Pic As Save_images_to & Me.Employee_ID & ".jpg" PauseTime = 1 Start = Timer Do While Timer < Start + PauseTime DoEvents Loop 'Delete the temp folder RmDir Save_images_to & "temp\" 'show the picture in the Form Me.Pic.Picture = Save_images_to & Me.Employee_ID & ".jpg" 'MsgBox Timer - istart Exit_cmd_Android_Camera_Click: Exit Sub err_cmd_Android_Camera_Click: If Err.Number = 53 Then 'No picture to delete Resume Next Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub والبرنامج حاليا للمتطوعين الذين يعرفون ان البرنامج لا يحتوي على اي ميزات غير التصوير وحفظ الصور في المجلد Images ، وربط الصور برقم الموظف ورجاء اخبرونا عن نتائج تجربتكم وملاحظة هامة: ***** لا تستخدم هاتفك الشخصي ، فالبرنامج سيحذف جميع الصور التي في المجلد sdcard/DCIM/Camera ***** جعفر Camera_Scanner.zip

السلام عليكم co2002co ان شاء الله مفهومي لشرحك صحيح ، لأنه كان جدا صعب عليّ واخذ وقت طويل !! تفضل: المرفق فيه نموذجين فقط Form1 و Form2 ، وتقوم الوحدة النمطية بإنتاج نسخ من Form2 كلما ضغطت على احد سجلات مربع القائمة: . هاي الوحدة النمطية المسؤلة عن انتاج نسخ من النموذج: Option Compare Database Option Explicit 'Author: Allen J Browne, July 2004 'Email: allen@allenbrowne.com Public clnClient As New Collection 'Instances of frmClient. Function OpenAClient() 'Purpose: Open an independent instance of form frmClient. Dim frm As Form 'Open a new instance, show it, and set a caption. Set frm = New Form_Form2 frm.Visible = True frm.Caption = frm.Hwnd & ", opened " & Now() 'Append it to our collection. clnClient.Add Item:=frm, Key:=CStr(frm.Hwnd) Set frm = Nothing End Function Function CloseAllClients() 'Purpose: Close all instances in the clnClient collection. 'Note: Leaves the copy opened directly from database window. Dim lngKt As Long Dim lngI As Long lngKt = clnClient.Count For lngI = 1 To lngKt clnClient.Remove 1 Next End Function . وهاي كود النموذج Form1: Private Sub TopicList_AfterUpdate() Call OpenAClient End Sub . وهاي كود النموذج Form2: Private Sub Form_Load() Me.Text1 = Forms.Form1.TopicList.Column(0) Me.Text2 = Forms.Form1.TopicList.Column(1) Me.Text3 = Forms.Form1.TopicList.Column(2) Me.Text4 = Forms.Form1.TopicList.Column(3) Me.Text5 = Forms.Form1.TopicList.Column(4) End Sub جعفر 284.db.mdb.zip

م / ياسر البنا فكرة رائعه ان تعرض هذا الامر ... جزاك الله خيراً .. تقبل خالص تحياتى

السلام عليكم و رحمة الله و بركاته بارك الله فيك أستاذنا الفاضل ياسر فتحي البنّا على هذا الدّرس البسيط مفاهيمه الثّمين محتوياته سؤال عزيز ياسر : أنت ذكرت بالشّرح فاصلة أو فاصلة منقوطة ..هل يمكن أن أكتب بلوحة التحكّم .. الاثنين معًا ..؟؟ فائق إحتراماتي