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

حماية الأكواد .... والنماذج و التقارير من العبث أو معرفة الاكواد الموجوده بها

تفضل تم عمل تقرير بالطريقة الاولى نفسها بضغطة زر يتم التصدير بقي تذييل التقرير لم يظهر في اكسل db2.mdb

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

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

السلام عليكم ((((( في البداية كان يمكنك عمل التقرير كما عملت بالنموذج بالضبط ))))) ولإثراء الموضوع : عملت طريقة اخرى لاظهار البيانات في النموذج الطريقة الاولى كان مصدر النموذج استعلام + عمليات على حقول غير منضمة تجلب بياناتها من مصدر آخر الطريقة هذه في نموذج frmTest مصدر النموذج استعلام فقط تتم العمليات وجلب البيانات داخله لاحظ الاختلاف بين النموذجين في : 1- طريقة المجاميع النهائية ( حاول تطبقها في التقرير ) 2- ستلاحظ ان النموذج الجديد ابطأ قليلا عند الفتح الخلاصة : انت مخير في استخدام احدى الطريقتين في التقرير dbRQ2.rar

ربما كان المطلوب Select_by_USForm.xlsm

السلام عليكم بالنسبة للحالة الأولى "إذا تكرر إدخال الرقم الوظيفي تظهر رسالة" فقد تم عمل ذلك في الملف المرفق بالاعتماد على العمود M (الذي يتم فيه تسجيل الأرقام المختارة سابقا)... أما بالنسبة للطلب الثاني "أنا أقوم بتحديد الخلايا التي سوف تحمل المسميات الوظيفية" فهذه ممكنة بشرط أن تكون في صف واحد (لا يهم الترتيب فيما بينها مع إمكانية وجود فراغات بينها -أو حتى مسميات أخرى- لكن في الصف نفسه) مع التعديل في معادلة التسمية Titres حسب الصف الذي تم اختياره لحجز هذه المسميات الوظيفية... وليس لي فكرة أخرى... بن علية حاجي Test Search.xlsm

تفضل ..... O.accdb

نعم هذا ما قصدت .... بارك الله فيك أخي أبا جودي

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

لعل هذا ما تريد .... يوسف.mdb

انظر .... New Microsoft Access قاعدة بيانات (2) (1).accdb

يصبح الكود بهذه الصورة : On Error GoTo Err: DoCmd.RunCommand acCmdSaveRecord [Forms]![SandExpense_F]![ExpenseDate_Sub].[Form]![notes] = Me.notes2 Me.ExpenseDate_Sub.SetFocus DoCmd.GoToRecord , , acNewRec [ExpenseDate_Sub]![Amount2].SetFocus Exit Sub Err: MsgBox Error$ kan2.accdb

بعد اذنك أخي عبداللطيف ضع هذا الكود قبل كود الحدث لديك DoCmd.RunCommand acCmdSaveRecord

هممم في الواقع ، ولأول مرة ابوح بهذا الشيء بالتفصيل : في الفترة بين 2003 و 2007 كنت اشارك في المنتدى الاجنبي https://www.experts-exchange.com/members/jjafferr.html وفي سنة 2005 اصبحت احد افضل 15 مشارك/خبير في منتدى الاكسس هناك https://www.experts-exchange.com/questions/21454217/jjafferr-Top-15-Overall-HOF.html وتدرّجت الى ان وصلت الرقم 10 على ما اتذكر ، وحصلت على اعلى شهادة يُعطيها الموقع آنذاك Genuis 🙂 لهذا السبب ، صدقني لما اقول ، ولازلت مُصر ، بأني لم ارى استعمال WebBrowser كما تستعمله انت ، كنموذج يحاكي بقية كائنات قاعدة البيانات 🙂 جعفر

السلام عليكم ورحمة الله وبركاته هذا الموضوع اُثير اكثر من مرة في الآونة الاخيرة ، ورأيت من الافضل ان اضع مثال ليقتدي به الجميع وقبل ان نبدأ ، اود ان اشير الى انني اعمل على اكسس 32 بت ، ولا املك نسخة من اكسس 64 بت احب ان اشير الى الرابط الذي شرحت فيه ان مايكروسوفت توصي بتنصيب الاوفيس / اكسس 32 بت ، بغض النظر عن نوع الوندوز المنصّب على الكمبيوتر ، سواء كان 32 بت او 64 بت: http://www.officena.net/ib/topic/64036-هل-استخدم-اوفيس-32-بت-او-64-بت/ ولكن ، ماذا نفعل اذا عملنا برنامجنا على اكسس 32 بت ، واتضح ان الزبون عنده جهاز فيه اكسس 64 بت المثال التالي يشتغل على 32 بت و 64 بت ، ونستطيع ان نستفيد منه لعمل برنامجنا البرنامج المرفق ، بعد فك الضغط ، سيحتوي على 3 برامج: . هذا برنامج No_Password_BE.accdb ، وبه جدول واحد ، ولا يحتاج الى كلمة سر لفتحه: . هذا برنامج Password_is_jj_BE.accdb ، وبه جدول واحد ، وكلمة السر لفتحه هي jj: . البرنامج: JStreetAccessRelinker2.accdb من الرابط http://www.jstreettech.com/downloads.aspx ، وبه ماكرو ووحدات نمطية تعمل على 32 بت و 64 بت (فالفضل في هذا المثال يعود للبرنامج وليس لي ) ، وقد قمت بإضافة نموذج لربطه مع احد برنامج الجداول اعلاه ، ومبدئيا فهو مرتبط مع البرنامج No_Password_BE.accdb ، . وعند فتح البرنامج لأول مرة ، سوف يفتح نافذة تطلب معرفة مكان برنامج الجداول No_Password_BE.accdb ، وتستطيع ان تنقر على الزر Link Another BE ، وستفتح لك نافذة تطلب منك معرفة مكان برنامج الجداول الجديد الذي تريد ان تربطه (بدل البرنامج No_Password_BE.accdb) : . وبما ان البرنامج هذا محمي بكلمة سر ، فسوف تظهر لك نافذة لإدخال كلمة السر (لاحظ ان الادخال مشفر) : . وعندما يتم الربط ، سترى رسالة التاكيد: . الرجاء من الشباب الذين لديهم نسخة من الاكسس 64 بت ، التاكد من ان البرنامج يشتغل على كمبيوترهم بدون اخطاء. عندما نريد ان نعمل برنامج يشتغل على النسختين 32 و 64 بت ، فكود النماذج هو نفسه بين نسختي 32 بت و 64 بت ، والشئ الوحيد الذي يتغير هو دوال الوحدات النمطية API ، والكود الذي ينادي هذه الوحدات (بغض النظر سواء كان في نموذج او في وحدة نمطية مستقلة) ، هنا سوف اعطي مثال واحد من الكود عن طريقة العمل للنسختين 32 و 64 بت: الكود التالي يستعمل دالة API فتح نافذة اختيار ملف ، والدالة هي 32 بت (لاحظ comdlg32.dll ) : Private Declare Function GetOpenFileName Lib "comdlg32.dll" _ Alias "GetOpenFileNameA" (OPENFILENAME As tagOPENFILENAME) As Long الان اذا اردنا ان نجعل هذه الداله API تعمل على 64 بت كذلك ، فالكود يجب ان يكون: #If VBA7 Then 'هذه لنسخة 64 بت Private Declare PtrSafe Function GetOpenFileName Lib "comdlg32.dll" _ Alias "GetOpenFileNameA" (OPENFILENAME As tagOPENFILENAME) As Boolean #Else 'وهذه لنسخة 32 بت Private Declare Function GetOpenFileName Lib "comdlg32.dll" _ Alias "GetOpenFileNameA" (OPENFILENAME As tagOPENFILENAME) As Long #End If ولاحظ في كود البرنامج ، انه تم جمع جميع الدوال مع بعض ، وجمعها في if# و else# و end if# واحدة. وهناك اصدار جديد لكود الربط ، ويمكن انزاله من هنا: http://www.jstreettech.com/files/JStreetAccessRelinker2.zip جعفر 238.Work_on_32Bits_and_64Bits.zip

السلام عليكم ورحمة الله تعالى وبركاته اولا: عملية ربط قاعدة بيانات بمسار محدد توضع حيث يتم وضع قاعدة البيانات التي تحتوي غلي الجداول في نفس مجلد قاعدة الواجهة Autolink Path.rar ---------------------------------------- ثانيا :عملية الربط التلقائي بدون تحديد المسار حيث يتم البحث عن قاعدة البيانات المطلوبة لربط الجداول اينما كانت Autolink Table.rar ---------------------------------------- ثالثا :عملية ربط قاعدة الواجهة باكثر من قاعدة link MultiDB.rar مع اطيب وارق الامنيات بالاستمتاع

السلام عليكم أخواني الكرام اقدم للمنتدى برنامج محاسبة من تصميمي مع قاعدة بيانات للتجربة لكي يعمل البرنامج يرجى عمل ما يلي : 1- فك الضغط على القرص D حصريا 2- بعد تشغيل البرنامج يطلب تحديد قاعدة البيانات التي سيعمل عليها يجب اختيار قاعدة 2014 من ميزات هذا البرنامج أن معظم البرنامج يعتمد على الماكرو وأنا انتظر التقييم والردود الرابط https://drive.google.com/file/d/0B_ZrhTFFRjn3Mml3VWEyVjU0Qnc/view?usp=sharing مع تحياتي للجميع

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

السلام عليكم ورحمة الله - اساتذة وخبراء هذا المنتدي الجميل رمضان كريم وكل عام وانتم بخير هل يوجد كود ترحيل من الاكسيل الي برنامج oneNote2016 جزاكم الله خيراً

اطلب من حضراتكم انشاء تقرير مصدره نموذج وفق الحقول الموجوده في النموذج. كما في القاعده المرفقه . شكري وتقديري لكم مسبقا dbRQ.rar

عسى أت يكون المطلوب time (2).rar

جرب هذا time.accdb

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

اخي @رمهان عندي اشتغلت القاعد ةبعد تعديل المطلوب 100% ارسلتها لصديقي على الايميل عنده 64 بت لم تعمل عنده تطلع رسالة (فيجوال بيسك كوروبتد ) شيء من هذا القبيل هل هناك حل لهذه المعضلة اقصد كيفية تشغيلها على كمبيوتر اخر يحمل اكسس 64 بت ؟؟

أستاذ سليم بارك الله في حضرتك ونفع بعلمك .

نعم الشخص حسن الخلق طيب الكلمة لم أرى منه إلا خيراً

في حدث on paint لجزء التفصيل اكتب docmd.save بالتوفيق ولكن انتبه : عندما تحول الى accde فان التعديل لايمكن في تصميم النماذج والتقارير

السلام عليكم تمام اخي الكريم رح يشتغل على 2016 / 64 بت وانا حاليا اعمل على 2016 / 64 بت

بارك الله فيك أستاذ علي عن جدارة واستحقاق -ويعينك ربنا على تحمل هذه المسؤلية ان شاء الله

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

السؤال الان : هل لديك دوال api في وحدات نمطية عامة ؟ الصقها هنا للتعديل وعلى العموم اذا كان لديك دوال تبدا كالتالي private declare function عدلها ب private declare ptrsafe function وهذا رابط للفائده https://www.officena.net/ib/topic/64325-مثال-يعمل-على-اكسس-32-بت-و-64-بت/ بالتوفيق

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

تفضل المطلوب دفترالتنقيط 2.xlsx

وهذا للأخ رضا أبو عقيل جزاه الله عنا خير وفيرا tsjeel2.mdb

وجدت أحد الكواد من احد الأخوة جرب وانظر ولكن لا بد من تحديد المرجع tsjeel2.mdb

السلام عليكم أو ربما هذا الحل في الملف المرفق (العمود H)... بن علية حاجي Tasalsoul_new.xlsx

ربما يكون المطلوب (العمود H ) من هذا الملف Tasalsul_new.xlsx

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

استاذي صالح الله يعطيك الف الف عافيه ولكن عندي استفسار هل التاريخ والوقت الي تتخزن بالجدول tbl_date هل كل يوم يحدث اول مايفتح البرنامج او مره واحد يتم تخزين التاريخ ولايتغير الا عند التحديث بواسطه ادخال الرقم السري لاني خايف ممكن يقوم بتغيير الجهاز قبل فتح البرنامج في اليوم الجديد ثانيا : يوجد رسالة خطاء بعد مادخل الرقم السري "2019" حتى يتحدث التاريخ موجوده بالمرفق شاكر ومقدر ماقدمته وبارك الله فيك وفي جميع الاخوان رسالة خطاء.rar

اخفاء واظهار جميع الكائنات داهل القاعدة واغلاق الشيفت التحكم باخفاء واظهار جميع الكائنات.mdb

السلام عليكم أخي محمد إطلع على هذه المشاركة: و هذه أيضا:

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

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

اكتب : Between ("أ") And ("ي") Or >("ي") حروف عربية فقط.rar

السلام عليكم طبعا نحن نعمل برامجنا وخاصة تنسيق الفورم واجهزتنا مقاسات الشاشات فيها على دقة معينة وحين يتم نقل البرنامج الى حاسبة اخرى لا بد ان يكزن دقة الشاشة فيها بنفس الدقة التي في حاسباتنا والا سيختل العرض في النماذج وأظن هذا الامر معلوم عند عموم الاخوة . اخي حاتم : استللت لك الكود الخاص بتحجيم النموذج ووضعته لك في مثال بسيط كل ما عليك هو نقل الكود الى برنامجك وعمل خطوتين : ( لتبقى نماذجك على مقاس واحد دائما ) 1- في حدث عند التحميل للنموذج الصق هذا الكود ReSizeForm Me 2- غير مقاسات الشاشة في الوحدة النمطية في هذين السطرين Private Const DESIGN_HORZRES As Long = 1024 Private Const DESIGN_VERTRES As Long = 768 db1.rar

السلام عليكم أخي محمد طاهر .. ما قصدته في الإحتياط بعمل تكرار كالتالي : Private Sub Command5_Click() On Error Resume Next Do Err.Clear If Me.NewRecord Then Me.id = checkid() DoCmd.GoToRecord , , acNewRec Loop Until Err.Number <> 2105 Me.id = Nz(DMax("[id]", "names") + 1) End Sub مما سيكون أكثر انسيابا في العمل دون توقف وخصوصا لو صادف إثنان في إضافة نفس الرقم في نفس الوقت . تحياتي .