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

الغرض منه هو تنفيذ أمر بضغط زر من أي مكان فى البرنامج ، دون الارتباط بكائن معين 1- اذهب الي جموعة الماكرو 2- اختار ماكرو جديد 3- اضغط علي الأيقون الزي عليه أحرف xyz مثلما فى الصورة 4-سيظهر عمود جديد به اسم الماكرو 5-ضع فى العمود الزر الذي تريد استخدامه و هذه بعض الامثلة فى التعليمات عن طريقة كتابة الزر طريقة الكتابة ---> ما تدل عليه ^A or ^4 ---> CTRL+A or CTRL+4 {F1} ---> F1 ^{F1} ---> CTRL+F1 +{F1} ---> SHIFT+F1 {INSERT} ---> INS ^{INSERT} ---> CTRL+INS +{INSERT} ---> SHIFT+INS {DELETE} or {DEL} ---> DEL ^{DELETE} or ^{DEL} ---> CTRL+DEL +{DELETE} or +{DEL} ---> SHIFT+DEL 6- إختار الفعل الذي تريد تخصيصه لكل زر 7- أحفظ الماكرو باسم autokeys يمكن اضافة مجموعة من ضغطات المفاتيح و لكل منها الفعل الخاص بها كما فى الصورة

السلام عليكم *********** طاب يومكم بكل خير وحفظكم ربى الطلب لاحد الاعضاء وهو كيف يتم تطبيق دالة F لاكثر من 9 شروط اليكم المرفق ب 14 شرط وثلاث تطبيقات مختلفة لاتحرمونا من دعائكم دالة IF لاكثر من 14 شرط.rar

مرفق الحل 1----تم معالجة الامر في الصفحة (يومية تسجيل) 2----اكتب فقط التاريخ المطلوب في الخلية D4 (الخلية الصفراء) في الصفحة /تقرير وفاتورة/ (و اكسل يقوم بجميع العمليات الحسابية ) (حتى و لو كان الشهر 30 يوماً او 28) اذ كتبت اي تاريخ فإن اكسل يضيف اليه اوتوماتيكياً 15 يوم يشرط الا يتجاوز ذلك اخر الشهر في الجدول في حال عدم وجود التاريخ المطلوب في صفحة (يومية تسجيل) لا تحصل على نتائج الخلايا التي تحتوي على معادلات محمية / ضد التغيير و ليس ضد المسح/ (لعدم العبث يها عن طريق الخطأ) المصنف1 SALIM.rar

و عليكم السلام كل عام وانت و الجميع بخير و عافية اخي العزيز محمد لعمل ذلك ضع الكود التالي بإجراء خاص و قم بإستدعائه في حدث في الحالي للنموذج و في حدث عند التغيير لعنصر علامة الجدولة If Me.TabCtl0.Value = 1 Then Me.Cmd4.Visible = True MsgBox "bbbbbbbbbbbbbbbb" Else Me.Cmd4.Visible = False End If تفضل مثالك بعد التعديل بالتوفيق Tapages.rar

ان شاء الله اذا واجهتك اي مشكلة ستجدني او ستجد باقي الاخوة في الخدمة

عندى ملف اكسل عايز اعمل له شاشة ترحيب بشكل كويس يطلب من خلالها إدخال باسورد للملف وعند ادخال الباسورد الصحيحة يفتح الملف

السلام عليكم جرب المرفق Hide.rar

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

وجزاك الله كل خير نعم اتفضل مع الشرح هذا هو استعلام تحديث للحقل UPDATE BASIC_DATE SET BASIC_DATE.crn = Replace([crn],Right([crn],4),"0" & Right([crn],4)); تحديث الجدول باسيك دات UPDATE BASIC_DATE حقل سي ار ان من جدول باسيك دات بيكون يساوي SET BASIC_DATE.crn = استبدل من الحقل سي ار ان Replace([crn], يبحث من اربع حروف (حروف او رقم او اي شي ) الاخيرة من حقل سي ار ان Right([crn],4), ويبدل اي يستبدل ب رقم صفر مع اربع حروف الاخير من الحقل سي ار ان "0" & Right([crn],4)); اتمنى ان اقدرت ان يوصل لك المفهوم

الاصدقاء الاكارم السلام عليكم و رحمة الله و بركاته تحية طيبة في هذا التطبيق سنتحدث عن تحويل قاعدة بيانات اكسس الى sql برمجيا حيث سنقوم بانشاء قاعدة البيانات على السيرفر و تصدير الجداول لها باستخدام SQL scripts ملاحظة هامة : العمل سيتم على SQL 2005 وما فوق بعد البحث و التجريب وصلت الى كود يقوم بانشاء قاعدة بيانات SQL وتصدير كافة الجداول لها Dim ConData As New ADODB.Connection Dim Str_Data As String Dim Str_Use As String Dim TableName As String Dim Tdf As TableDef ConData.Open "Provider=SQLOLEDB;Integrated Security=SSPI;Initial Catalog=master;Data Source=HP-PC\SQLEXPRESS" Str_Data = "Create database DB1" Str_Use = "Use DB1" ConData.Execute (Str_Data) ConData.Execute (Str_Use) For Each Tdf In CurrentDb.TableDefs If Left(Tdf.Name, 4) <> "MSys" Then If Len(Tdf.Connect) = 0 Then DoCmd.TransferDatabase acExport, "ODBC Database", "ODBC;Driver={SQL Server};Server=HP-PC\SQLEXPRESS" & _ ";Database=DB1" & ";Trusted_Connection=Yes", acTable, Tdf.Name, Tdf.Name End If End If Next الكود السابق يقوم بانشاء قاعدة بيانات باسم DB1 ويصدر كافة الجداول لها عظيم جدا و تمام التمام لكن هناك مشكلة صغيرة جدا المفاتيح الاساسية و الفهارس و العلاقات لم يتم تصديرها !!!!!! وبالتالي لن تعمل قاعدة البيانات ابدا بحثت كثيرا و حاولت تعديل الكود السابق و لكن دون جدوى لذلك كان لا بد من البحث عن طريقة اخرى لنصل للمطلوب و الطريقة هي انشاء الجداول و المفاتيح و الفهارس و العلاقات عن طريق اكواد SQL او ما يسمى SQL scripts , سيتسائل البعض كيف ذلك ؟؟ البداية : عند الانتهاء من تصميم قاعدة البيانات سنستخدم معالج التكبير لمرة واحدة فقط من اجل الحصول على الكود او ملف SQL scripts وبعد ذلك سنضيف الكود الى ملف ونستخدم ذلك الملف متى اردنا نفتح قاعدة البيانات التي نرغب بتحويلها و نضغط على ادوات قاعدة البيانات ثم نختار (خادم SQL) 1- انشاء قاعدة بيانات جديدة ( في هذا المثال اسم قاعدة البيانات test SQL 1 ) 2- نحدد اسم السيرفر و اسم قاعدة البيانات المطلوبة ( الاتصال موثوق ) ( التالي ) 3- نحدد كافة الجداول ( التالي ) 4- نحدد ( فهارس - قواعد التحقق من الصحة - افتراضيات - علاقات الجداول ) و نستخدم (مشغلات عوضا عن DRI) ( التالي ) 5- نحدد (عدم اجراء اية تغييرات للتطبيق) (انهاء) سيبدا المعالج بترحيل كافة الجداول الى السيرفر بعد الانتهاء نغلق برنامج الاكسس و نذهب الى برنامج SQL Server Management Studio (ملاحظة هذا البرنامج لادارة قواعد البيانات و يختلف عن برنامج SQL server ) نحدد السيرفر ونختار نوع المصادقة (حسابات ويندوز) ثم اتصال سيفتح البرنامج نختار Databases ثم نحدد قاعدة البيانات المطلوبة نضغط بالزر الايمن للفارة و نختار من القائمة Tasks ثم Generate Scripts تظهر نافذة جديدة نختار منها التالي ونحدد قاعدة البيانات Test SQL 1 ثم التالي تعدل الخيارات التالية: include if not exists = false script defaults = false scripts extended properties = false scripts owner = false scripts full-text indexes = true scripts indexes = true ثم التالي نحدد (tables) ثم التالي نحدد كافة الجداول ثم انهاء و نضغط انهاء مرة اخرى سيظهر لنا السكريبت الخاص بانشاء الجداول و المفاتيح و الفهارس و العلاقات ننسخ الكود بشكل كامل و نحفظه ضمن ملف نصي نسميه مثلا (Test1) نعود الى صديقنا الاكسس ننشئ نموذجا جديدا ونضع فيه حقلي نص باسم (tservername - tdatabasename) وزر امر نكتب الكود التالي في زر الامر Dim ConData As New ADODB.Connection Dim Str_Data As String Dim Str_Use As String ' فتح الاتصال مع السيرفر ConData.Open "Provider=SQLOLEDB;Integrated Security=SSPI;Initial Catalog=master;Data Source=" & Me.tservername ' انشاء قاعدة البيانات Str_Data = "Create database " & Me.TDataBaseName Str_Use = "Use " & Me.TDataBaseName ConData.Execute (Str_Data) ConData.Execute (Str_Use) MsgBox "تم انشاء قاعدة البيانات بنجاح" & vbCrLf & "جاري تصدير الجداول", vbInformation + vbMsgBoxRight ' تنفيذ السكريبت ضمن قاعدة البيانات لانشاء الجداول و الفهارس و العلاقات Shell "sqlcmd.exe -S " & Me.tservername & " -d " & Me.TDataBaseName & " -i " & CurrentProject.Path & "\test1.txt", 0 MsgBox "تم انشاء الجداول بنجاح", vbInformation ' اغلاق الاتصال ConData.Close طبعا الملف test1.txt يجب ان يكون في نفس مسار قاعدة البيانات المرفق يختلف قليلا عن الشرح فهو يساعدك في اختيار السيرفر تلقائيا اعتذر على الاطالة في الشرح رابط البرنامج مع فيديو للشرح http://www.mediafire.com/file/x14w1p4qbqewd4k/SQL1.rar بانتظار التجريب و النتائج منكم اصدقائي SQL1.rar

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

شكرا لك استاذ @أبو إبراهيم الغامدي شكرا لك استاذ @ابوخليل اتفضل اليك هذا السطر من الاستعلام التحديث هذا هو الحل اذا كان طول البيانات ليس محددا UPDATE BASIC_DATE SET BASIC_DATE.crn = Replace([crn],Right([crn],4),"0" & Right([crn],4)); لكن انتبه يجب ان تشتغل استعلام التحديث مرة واحدة ولا اكثر والا ستضيفه اكثر من مرة تحديث - Copy.rar

جزيت خيرا أبا عمر نفع الله بك ................

احيانا عندما اخرج من برنامج معمول بالاكسس عند محاولة فتح الملف مرة اخرى تنشاايقونه اخرى مجاوره على سطح المكتب بشكل ايقونة الملف الذي اريد فتحه عليها علامه ونوع الملف هو Microsoft Access Record-Locking Information ولا استطيع فتح الملف الا بإعادة تشغيل الجهاز فهل يوجد حل لهذه المشكلة علما ان هذا لم يحصل معي الا في البرامج المعموله بالاكسس والويندوز الذي استخدمه xp