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

وعليكم السلام طريقتين يجون على بالي: 1. نسخ السجل بالكامل ، عمل سجل جديد ، لصق بيانات السجل ، ثم حذف/تصفية الحقول التي لا تريدها: DoCmd.RunCommand acCmdSelectRecord DoCmd.RunCommand acCmdCopy DoCmd.GoToRecord , , acNewRec DoCmd.RunCommand acCmdPaste me.Field5=0 me.Field6="" 2. تنسخ قيمة كل حقل في متغير في الكود ، عمل سجل جديد ، لصق هذه المتغيرات الى حقولها: a1=me.field1 a5=me.field5 a6=me.filed6 DoCmd.GoToRecord , , acNewRec me.field1=a1 me.field5=a5 me.filed6=a6 جعفر

السلام عليكم ورحمة الله وبركاته اريد ان اهدى هذه الهدية الى من يحتاج له الى كل اساتذي في المنتدى الى كل عضو وهو نموذج بسيط لكي يغير في دقة الشاشة عند فتح البرامج و عند اغلاقه اي بإمكان ان نغير سكرين ريليشن عند فتح النموذج الاول من البرامج وعند اغلاق البرامج يرجع سكرين ريليشن اي دقة الشاشة الى وضعه الطبيعي لا اريد ان اطول عليكم اتفضلوا مع القاعدة ChangeAndGetScreenResolution.rar ChangeAndGetScreenResolution2003.rar

@jjafferr نعم استاذ جعفر كيف نعملها في مربع النص

وعليكم السلام هذه الخاصية موجودة في مربع الحوار في الاكسس ، الطريقتين اللتان اشار فيهما الفيديو يعني السؤال كيف نعمله في مربع نص؟ جعفر

جرب تغيير كلمة tif إلى Pdf

اخ وائل الموضوع سهل في طلبك ولكن انا كنتافكر كيف يظهر التقرير او الاستعلام الجدولي عالعموم هذا حسب طلبك الاخير Private Sub week_1_Click() Me.from = DateSerial(Year(dat), Month(dat), 1) Me.to = DateSerial(Year(dat), Month(Date), 7) End Sub Private Sub week_2_Click() Me.from = DateSerial(Year(dat), Month(dat), 8) Me.to = DateSerial(Year(dat), Month(dat), 14) End Sub Private Sub week_3_Click() Me.from = DateSerial(Year(dat), Month(dat), 15) Me.to = DateSerial(Year(dat), Month(dat), 21) End Sub Private Sub week_4_Click() Me.from = DateSerial(Year(dat), Month(dat), 22) Me.to = DateSerial(Year(dat), Month(dat) + 1, 0) End Sub بالتوفيق

وعليكم السلام أخي ابا جودي شايفك اليومين دول دايخ على 50 شغلة ما ينفعش كده ، خلص شغلة ، وابدأ بغيرها ليه تروح بعيد ، وانت عندك احد أفضل برامج التحويل بين صيغ ملفات الصور ، والتحكم فيها: http://www.irfanview.com/ هذه احد الاوامر اللي فيه ، واللي يعمل اللي تريده: i_view32.exe /multipdf=(c:\test.tif,c:\test1.bmp,c:\dummy.jpg) وللعلم ، انا تكلمت عن البرنامج هنا: وهنا وهنا بالذات لموضوع الماسح الضوئي scanner اللي عندك سؤال عنه جعفر

هدية : اكواد اكسس السلام عليكم ورحمة الله وبركاته اليكم هذه الهدية الصغيرة الحجم وكبيرة المنفعة ( باذن الله ) راح يساعدكم في عملكم http://codevba.com/ وهذه صورة لشريط الاكواد وهذه هو الملف codevba.zip وشكرا لاستاذنا جعفر على ادراج الرابط لكي لا يخالف الملكية الفكرية

السلام عليكم ورحمه الله وبركاته أحببت ان اهدي هذا البرنامج لكم والفضل بعد الله لهذا المنتدي واستاذي القدير شفان ريكاني وأباجودي والسموحه لمن لم أتذكر أسمائهم من الاساتذه الذين بذلو جهد معي جزاهم الله خير بارك الله فيهم وبالمنتدي والقائمين عليه والاعضاء البرنامج مفتوح المصدر قابل للتعديل كلمه السر 123 تحياتي لكم جميعا برنامج حسابات.rar

السلام عليكم اخواني واساتذتي الكرام تحية طيبة وبعد .. سؤالي هو كيف يمكنني استعمال هذا الامر في مربع النص text2.AutoCompleteMode = AutoCompleteMode.SuggestAppend كما تجدوه عندما تبحثون في مربع نص google وجدت فيديو يوضح الطريقة لكنه بلغة ال Csharp وهذا هو رابط الفيديو .. بصراحة شرح جميل وتطبيق ممتاز لكني لم استطع تطبيقه https://www.youtube.com/watch?v=Jnye77emTbo وشكراً

السلام عليكم ارفق ملف اريد عمل في الصفحة تنسيق شرطي بحيث اذا كتبت اي كلمة في اي من الاعمدة المعنية يتلون الصف الذي فيه الحدث الى اللون الرمادي والاعمة التي اريد عمل الحدث فيها هي من k ,ولغاية q اي سبعة اعمدة Book1.rar

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

2. لا ، وانما ما صار شيء ، والحمدلله 3. تفضل ، وبدون الجدول اللي فيه سجلات سابقة عشوائية جعفر ChangeAndGetScreenResolution.zip

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

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

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

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

نعم تقدر (لدرجة ما) ، ولكن بتعب 1. نعمل طريقة للبحث ، في حقل النص ، مثل الربط التالي: 2. نأخذ أول نتيجة من النموذج الفرعي ونضعه في حقل نص البحث ، 3. نغير شكل النموذج الفرعي الى ListBox ، يطول ويقصر على اساس عدد الكلمات اللي تأتي من البحث ، وفي النهاية بيصير عندنا كما هو الحال في ComboBox ، فليش التعب جعفر

السلام عليكم اذا سمحتم لي ببعض الاسئلة في هذا الخصوص 1- هل يمكن ان تكون القاعدة المضافة كمرجع هي قاعدة بيانات التي تحتوي الجداول ويمكن الاضافة على الجداول من خلال نموذج في القاعدة المضاف لها ؟ 2- ما الوضع في حال كانت قاعدة البيانات المضافة محمية بكلمة مرور 3- كيف يمكن اضافة والغاء الاضافة قاعدة بيانات المرجع برمجيا في حال اردت استبدال الاضافة بقاعدة اخرى

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

تم بحمد الله تعالى جمع كل الاوراق فى مل صورة واحد فقط TIF باستخدام الكود الاتى Dim temp_scan_path temp_scan_path = db_path() & "tempscan" If Dir(temp_scan_path, vbDirectory) = "" Then MkDir temp_scan_path End If Shell ("c:\program files\irfanview\i_view32.exe /batchscan=(scanfile,1,1,2,0," & Trim(db_path) & "tempscan,tif,1) /scanhidden") ولكن مشكلتى مع كود التحويل الى PDF اطمع فى المساعده بخصوص هذا الشأن

نعم لا تستطيع بكود واحد ، يعني لا يمكن لكود واحد ان يعمل لك جميع المجلدات دفعة واحدة ، وانما الكود يجب ان جعفر

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

ربما كان ما تريد انظر الى الورقة Salim 2 مجرد ان تكتب الرقم في الخلية B9 يقوم اكسل بالواجب salim 8_1.rar

على اي اصدار تشتغل حضرتك؟ بصراحة تصاميمك روعة

جربت .. ذهبت للسجل 4 ثم حذفت ثم مباشره نقرت على زر الاضافة اعطاني رقم 4 هنا تعديل بسيط فقط في الذهاب للسجل الاول Private Sub ÃãÑ7_Click() DoCmd.GoToRecord , , acNewRec Set rs = Me.RecordsetClone If rs.RecordCount = 0 Then Me.dashnum = 1: Exit Sub rs.MoveFirst For i = 1 To rs.RecordCount If i <> rs!dashnum Then Me.dashnum = i: Exit Sub rs.MoveNext Next i Me.dashnum = DMax("dashnum", "tbltest") + 1 End Sub تحياتي يمكن نحتاج Me.Requery في بداية الكود Private Sub ÃãÑ7_Click() Me.Requery DoCmd.GoToRecord , , acNewRec Set rs = Me.RecordsetClone If rs.RecordCount = 0 Then Me.dashnum = 1: Exit Sub rs.MoveFirst For i = 1 To rs.RecordCount If i <> rs!dashnum Then Me.dashnum = i: Exit Sub rs.MoveNext Next i Me.dashnum = DMax("dashnum", "tbltest") + 1 End Sub تحياتي

استاذي الكبير ولا يهمك .. حتى اخطائك فيهن دروس لنا تحياتي

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

مشكور أخي سليم الكود يعمل بإمتياز ربنا يحفظك وزادك الله من فضله

هههههههههههههههههه

السلام عليكم اعتذر عن مشاركتي السابقة ، ففيها خطأ ، وتم اصلاحه في الرابط: جعفر وحياالله الشباب جعفر

جزاكم الله خيرا هكذا الموضوعات الكبار لا تأتى الا من الأكابر (أفضل شيء لما يكون موضوع كبير ومش فاهم حاجة تسيب الكبار يتكلمو مع بعض وانت تسكت وتهز رأسك ) استمر أستاذنا @أبو إبراهيم الغامدي ولا يضرك من هز رأسه

هلا ومرحبا بأخوي حربي الله يسلمك ويعافيك ان شاء الله جعفر

فقط افتح قاعدة بياناتك السابقة و اعدل اسم مربع نصي اللي تكتب فيها باسورد

السلام عليكم وحياالله الشباب بالاضافة الى ما تفضل به أخي أوس رجاء تلاحظ تسلسل الارقام ، فهي 2 ثم 1 ، الاستعلام 1 مافيه مشكلة ، ولكنك لما تفتح الاستعلام 2 والذي مصدره الاستعلام 1 ، والظاهر ان فيه معيار فرز او تصفية في حقل معين ، اي حقل فيه معيار في الاستعلام او الكود ، يجب ان تجعل الحقل مفهرس في الجدول ، وإلا ستحصل على تأخير وعند تغيير الحقل في الجدول الى حقل مفهرس ، يجب ان تعمل Compact and Repair للقاعدة التي بها البيانات ، حتى يستفيد الاكسس من هذا التغيير. جعفر

عفواً اخي سامي .. انا فقط اردتك ان تنتبه الى النقطة الاولى التي ذكرها الاستاذ جعفر وهي استخدام اوامر VBA في SQL ، مما يبطئ العمليات

السلام عليكم ورحمة الله وبركاته أستاذنا الإكسل رائع ولا يتعب أحدا ولكن احنا اللي بنستعجل وعايزين نكتب معادلات وأكواد بسرعة وربما ننسى أن نهتم في بداية الأمر أن نتعلم كيف يتم ذلك لذا أنصحك بمتابعة الدورات ومعرفة المزيد وبإذن الله تنفعك هذه المعادلة =indirect (b9 &"!E1") في الخليةd9 وفقنا الله وإياكم لكل خير

الف مليون مبروك أستاذ شفان و تستحق الكتير و الكثير . تحياتى لحضرتك

الف مبروك وتستاهل اكثر

ألف مبروك اخي شفان من اعلى لاعلى

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

الف مبروك اخ شفان ... انطلاقة قوية متوازنة

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

جزاكم الله خيرا

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

شكرا جزيلا أخي شفان انا شفت البرنامج سابقا ، ولكني الآن انزلته ، وبالفعل به الكثير ، وكما قلت انت : جعفر

الخطوة الأولى تسجيل نتائج الامتحانات الخطوة الثانية إستعلام إلحاق يفتح سجلا جديدا للطالب لكن فى العام الجديد شاهد الفيديو

انظر الى هذا الملف ربما يكون المطلوب ترقيم الي.zip

برنامج بسيط يساعد الاهل والاقارب على جمع وحفظ سجلات الافراح مع امكانية البحث عن الشخص وبلده البرنامج استعملت فيه كود للأخ الفاضل الغائب الحاضر محمد أبو البراء لكن هناك مجموعه مشاكل قابلتنى ولم استطع تعديلها لخبرتى القليلة لذا ارجو المساعده وهذه المشكلات هى : 1- صفحة البيانات لا يظهر فى البحث منها سوى 178 اسم فى القائمة المنسدله فى صفحة البحث ارجو تعديل اكود ليسمح ب 1500 اسم فى القائمة المنسدلة من صفحة البيانات 2- عمل صفحة اخرى للبحث باسم البلد 3- عمل صفحة افتتاحية للبرنامج تليق بالمناسبة السعيدة كشف النقوط.rar

اخوي قم باضافه مربع نص الى التقرير وضع مصدر بياناته =1 ثم من خصائصه اذهب الى تاب البيانات او data وجعل خاصيه Running sum تكون Over Group كما ذكرت لك لا تجعل مصدر بيانات هذا المربع هي الرقم التلقائي في الجدول بل اجعلها =1 aشوف المثال المرفق db1.zip