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

طلب الي في احد المدارس تحويل علامات الطلاب من بيانات عامودية الى جدول قكان هذا الملف (وضعتة يتصرف المنتدى لمن يريد الاستفادة منه) Tanspose_notes.rar

وعليكم السلام نعم الامثلة كثيرة في المنتدى ، والرابط التالي فيه كود يعمل بطريقة الربط المتأخر Late Binding وستلاحظ ان مكتبة الاكسل غير مُختارة فيه ، كما ستلاحظ هذين السطرين في اول الكود: Dim xlApp As Object 'Excel.Application Dim xlWB As Object 'Excel.Workbook هذا معناه اني واثناء البرمجة ، استخدمت طريقة الربط المسبق Early Binding لكي تساعدني مكتبات الاكسل ، وعند الانتهاء من البرنامج حذفت مكتبة الاكسل وغيّرت السطرين اعلاه والمهم هنا ان تُجرب البرنامج بعد تغييره الى الربط المتأخر Late Binding ، للتأكد ان الكود لايزال يعمل بطريقة صحيحة ، ومعظمها سيعمل ان شاء الله ولكن ، الرابط التالي يُخبرك انه لا تستطيع دائما ان تستخدم نفس الكود بين الربط المسبق والربط المتأخر: جعفر

نعم

1. اساس الموضوع ، انك تعمل معيار "اسم المدينة" في الاستعلام الذي يفتح نموذج اعطاء الصلاحيات ، 2. بينما لك انت ، فتحذف المعيار من الاستعلام ، فترى جميع المدن. جعفر

وعليكم السلام همممم يعني انتي في النموذج Form1 وترسلين قيمة الحقل Names1 كمعيار الى الحقل EmpNum في الاستعلام "استعلام1" ، وثم تريدين قراءة قيمة الحقل job من الاستعلام "استعلام1" الى الحقل job1 في نفس النموذج Form1 ، والحقلين موجودين في سجل واحد في الجدول Employes ، والذي يأخذ النموذج والاستعلام نتائجه منه!! هذا يبدو كأنه واجب/اختبار مدرسي!! على العموم ، تستطيعين استخدام الامر Dlookup للحصول على ما تريدين جعفر

أختي الفاضلة سؤالك كان والجواب هو اما 1. فأنتي المفروض انه عندك الكود جاهز ، لهذا السبب انتي طرحتي هذا السؤال ، ومعظم المبرمجين لا يعرفون كيف يستفيدون من كود مكتبات البرامج الاخرى غير الاكسس ، 2. ابطأ من الطريقة الاولى ، وليس بطيء جعفر

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

شكراً لك استاذ @jjafferr جزاك الله خيراً .. موضوع في غاية الاهمية .. جاري الاطلاع

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

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

نعم تفضل ، ولكن رجاء اعطاء تفصيل عن اسم النموذج وما الذي يجب ان يصير ، بمثال ، حتى اتتبع المثال ونوصل الىنتيجة

هذا مثال جعفر

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

شكرا على المعلومة منذ الصباح ابحث عن هذه البرامج كما تفضلت ، وبالفعل موجودة ، والبرنامج الوحيد "المجان" الذي وجدته والذي "اعتقد" بأننا نستطيع التحكم فيه من الاكسس هو: https://sourceforge.net/projects/zbar/ لأن فيه نظام التحكم عن طريق Commanline (كما هو الحال في التحكم في البرامج التي في رابطي اعلاه) ، والبرنامج يحتاج تنصيب وتجربة!! جعفر

أخي بلال مثل ما اخبرتك وهذا يؤكد كلام مصمم البرنامج ، وقد اعطيتك احد الحلول ، ويكون الافضل ان ترفق برنامجك حتى نعدل عليه. جعفر

حسب علمي فقط اكتب هذا الامر في اخر الكود بعد تحديث لحقل الباركود DoCmd.GoToRecord , , acNewRec وبهذا وبعد قراءة الباركود سيروح مؤشر الماوس الى سجل جديد وفي نفس الحقل الباركود لكن تأكد منه في حدث بعد تحديث للحقل الباركود من اسم اي حقل مع هذه الكلمة SetFocus احذفه او قبل سطر الاعلاه للسجل جديد اكتب ME.اکتب_اسم_حقل_البارکود.SetFocus والا ارفق نسخە مصغرە من قاعدە بیانات لکی نعمل علیە

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

اتفضل اخي في محرر الاكواد وبعد تحديث حقل التوجيه الصق هذا الكود Me.رقم_الفاتوره = Nz(DMax("[رقم الفاتوره]", "مجمع الفواتير اجمالى", "[التوجيه]='" & [التوجيه] & "'"), 0) + 1

اتفضل اليك ما طلبت لكن ارجوا ان لا نتعدى قوانين المنتدى .. لكل موضوع سؤال جديد بعد البحث عن ما يريد هذا هو الكود لحذف الصور مع السجل Private Sub Command21_Click() On Error Resume Next Dim MyPict As String DoCmd.SetWarnings False MyPict = CurrentProject.Path & Me.PicFile Kill (MyPict) DoCmd.RunCommand acCmdSelectRecord DoCmd.RunCommand acCmdDeleteRecord Me.Requery DoCmd.SetWarnings True MsgBox "تم الحذف" End Sub وهذه لحذف جميع الملفات من فولدر و حذف جميع السجلات Private Sub Command22_Click() On Error Resume Next Dim MyPict As String DoCmd.SetWarnings False MyPict = (CurrentProject.Path & "\" & "fileStores\*.*") Kill (MyPict) DoCmd.RunCommand acCmdSelectAllRecords DoCmd.RunCommand acCmdDeleteRecord Me.Requery DoCmd.SetWarnings True MsgBox "تم الحذف" End Sub ولطلبك هذا فقط تم حذف هذا CurrentProject.Path + من هذا Me.PicFile = CurrentProject.Path + "\fileStores\" & ("" & mynam & "") اي يبقى هذا Me.PicFile = "\fileStores\" & ("" & mynam & "") واليك الملف بعد تعديل والاضافة ولا تنسى اختار افضل جواب لكي من يفتح هذا الموضوع يعرف ويستفيد اكثر تقبل تحياتي pic.rar

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

اولا يجب ان يكون مصدر الكومبوبوكس بيكون ليست بوكس ثانيا يجب ان يكون خصائصه هكذا

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

وعليكم السلام واهلا وسهلا بك في المنتدى هذا الرابط فيه طريقة التصوير باستخدام WebCam ، وكاميرا اللابتوب تُعتبر WebCam كذلك استخدام السكانر او اي نوع من انواع الكاميرات سوف يُنتج لنا صورة ، وبإستخدام البرامج المتخصصة ، هناك اشياء يمكننا قراءتها من الصورة مثل: الطول والعرض ، عدد الالوان ، وهناك برامج تستطيع قراءة الصورة وتحويل الكتابة التي بها الى نص (Optical Character Reader, OCR) ، ولا اعرف عن برنامج يمكنه قراءة خطوط الباركود في الصورة وتحويلها الى ارقام في حقل الباركود في البرنامج ، وحتى وان وُجد هذا البرنامج ، فالتحدي سيكون في سرعته فالجواب بإختصار ، لا ، لا يمكن حاليا على الاقل جعفر

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

ممكن مثال تطبيقي يا استاذ جعفر؟

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

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

السلام عليكم اولا انا اعتذر بأني اخطأت في التسميات في مشاركتي السابقة ، فبدل كلمة المرجع كان لازم اقول مكتبة ، وبدل Bounding كان المفروض ان اقول Binding الربط المسبق Early Binding: 1. ان تختار مكتبة الاكسل (طبعا لهذا المثال) ، . 2. ثم الكود يكون شيء من هذا القبيل: Dim oExcel As Excel.Application Set oExcel = CreateObject("Excel.Application") oExcel.Visible = True والمشكلة هنا ، انه اذا اخترت مكتبة اكسل الاقل (مثلا اكسل 8) ، فأي كمبيوتر يحتوي على اكسل 8 او اكبر (9 ..12..15) فالمكتبة/البرنامج سوف يشتغل بطريقة صحيحه ، بينما اذا كان عندك اكسل 6 ، فستحصل على خطأ ، ولن يعمل الكود الميزة الموجودة في هذه الطريقة ، انها اسرع في العمل ، والاهم من هذا ، انها تساعدك في اعطائك الاوامر (مثلا تكتب امر معين ثم تكتب نقطة . فتظهر لك الاوامر التي تستطيع استعمالها). اما اذا استعملنا الربط المتأخر Late Binding فإننا لا نحتاج الى اختيار مكتبة الاكسل ، ونكتب الكود اعلاه هكذا ، والذي يشتغل على جميع اصدارات الاكسل: Dim oExcel As Object Set oExcel = CreateObject("Excel.Application") oExcel.Visible = True المشكلة هنا ، اننا يجب ان نعتمد على انفسنا لعمل الكود ، فالاكسس لن يساعدنا ، وهو ابطأ من الطريقة الاولى. جعفر

وعليكم السلام نعم ، وكما قال أخي sandanet ، فقارئ الباركود يرسل رقم الباركود وامر الانتقال الى حقل آخر (Enter او Carriage Return) ، وهذه ميزة لمعظم البرامج ، بحيث تستطيع ان تضع كود في حدث "بعد تحديث" الحقل الذي فيه الباركود فاذا اردت ارجاع المؤشر الى نفس حقل الباركود ، فاستعمل الكود التالي (انا استخدمت اسم اي كائن/حقل في النموذج باسم Next_Field) Private Sub BarCode_AfterUpdate() Me.Next_Field.SetFocus Me.BarCode.SetFocus End Sub جعفر

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

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

محاولة أخرى تاريخ اليوم3.rar

السلام عليكم ورحمة الله تفضل ASA1--2003.rar

بارك الله فيك أخي العزيز زيزو وجزيت خيراً على مساعداتك القيمة في كافة الموضوعات أخي الكريم عبد الرحمن المشكلة لديك في اسم ورقة العمل البرمجي .. في ملفك الأخير ليست باسم Sheet1 وإنما باسم ورقة1 جرب الملف المرفق التالي فيه كود الأخ زيزو ASA1--2003.rar

الكود السابق: UBound(strFileNames) UBound معناه العدد الاكبر من strFileName ، ولكن للاسف بسبب الضغط على زر cancel ، فالمتغير strFileName يصبح Null ، لذلك لم يستطع الامر السابق اصطياد الخطأ، بينما الامر If Len(strFileNames & "") = 0 Then فيقوم محل امرين وهما: If isNull(strFileNames)=true or strFileNames= 0 Then جعفر الله يسلمك ويعافيك ان شاء الله اخوي محمد جعفر

وعليكم السلام أخي اباجودي استبدل هذا السطر If UBound(strFileNames) = 0 Then بهذا السطر If Len(strFileNames & "") = 0 Then بسم الله عليك ايه يا اباجودي ، ما انت قلت انها تظهر لما تضغط على الزر cancel جعفر 207.5.m.salama.accdb.zip

وما هو الخطأ المسبب فى ظهور هذه الرسالة