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

اتفضل 🌹 تجربة (1).accdb

لم استطع تحميل الملف المرفق ضع الكود التالي في module الحفظ الافتراضي سيكون في Desktop بعد اختيار اسم للملف المصدر Public Sub Save_Range_As_PDF_On_Desktop() Dim fileName As String, saveAsFileName As Variant Dim PDFrange As Range With Sheets("sheet13") Set PDFrange = .Range("a1:j286") End With saveAsFileName = Application.GetSaveAsFilename(InitialFileName:=Get_SpecialFolderPath("Desktop") & fileName, _ FileFilter:="PDF file (*.pdf), *.pdf", _ Title:="Save PDF file") If saveAsFileName <> False Then PDFrange.ExportAsFixedFormat Type:=xlTypePDF, fileName:=saveAsFileName, _ Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False End If End Sub Private Function Get_SpecialFolderPath(SpecialFolderName As Variant) As String Get_SpecialFolderPath = CreateObject("WScript.Shell").SpecialFolders(SpecialFolderName) & "\" End Function

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

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا اخى الفاضل @zubair1aid يرجى تعديل افضل اجابه لاخى واستاذى محمد @ابا جودى لانه هو اللذى قدم اليك الحل جزاه الله خيرا بارك الله فيك بالتوفيق اخى

مشاركه مع اخى واستاذى محمد @ابا جودى جرب الان ووافنا بالنتيجه تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق تجربة_2.rar

جرب هذا الكود Sub test() Dim My_RG As Range Set My_RG = Application.InputBox("Select Your Range Please", Type:=8) Range(My_RG.Address).Select End Sub Selection_by_Choise.xlsm

اخينا @wael gaper الكود سليم ويتم عرض اخر سجل في مجموعة السجلات ولكن يبقى ماهو اخر سجل ؟ فالجدول به البيانات غير مرتبه لذلك كيف نضمن ان اخر سجل نريده هو اخر سجل بمجموعة السجلات . نقوم بعمل ترتيب صريح اما من خلال الجدول وتكون مرئيه علامة الفرز بالجدول عند فتحه او تقوم بفتح السجلات بجملة اس كيو ال متضمنه امر الفرز وحسب ماتريد غير اسم الجدول وعمود الفرز وعذرا اكتب من الموبايل بالتوفيق

السلام عليكم ورحمة الله وبركاته بعد اذن استاذى الغالي الاستاذ @محمد ابوعبد الله 🌹 هذه الفكرة خطرت على بالي input mask with code.mdb

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

طيب ممكن نقول ان الموضوع ده انفراد وحصري لمنتدياتنا منتديات اوفيسنا التصميم والأفكار والاكواد من بنات افكارى ام سبقنا اليه غيرنا

الحمدلله الذى بنعمته تتم الصالحات احسنت بارك الله فيك وجزاك الله كل خير @ابا جودى

بعد اذن استاذى القدير الاستاذ @kha9009lid🌹 وهذه على طريقة المعقدين امثالي😀 Database1012.accdb

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

العفو تحت امرك لا شكر على واجب الحمد لله ان الافكار عجبتك

يعطيك الف عافيه اخي هذا هو المطلوب شكرررررررررررررررررررررررررررررا يا مبدع

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

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

اخى @husseinharby هذا لانك لم تقم بجميع التعديلات المطلوبه فالكود يعتمد على التاج او العلامه افتح الجدول revision وانظر اليه ستجد به سجلات الان قم بالتعديل على الحقول اللتى تريدها باضافه القيمه Audit كما بالصوره تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق De55sktop.rar

اللهم آمين واياكم اخى بالتوفيق ان شاء الله

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

لم افهم ماذا تقصد ممكن توضح اكثر او ترفق صورة السالة

ع العموم اتفضل 🌹جرب المرفق الفلتره بين تاريخين 2.accdb

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

@wael gaper اعطينا الكود تبع الاضافه ؟

مشاركه لاخى العزيز @محمد ابوعبد الله جزاه الله خيرا على حسب ما فهمت واضافه طريقه جميله لاخى واستاذنا العزيز @jjafferr جزاه الله خيرا على تعليمنا اياها ان شاء الله يكون طلبك بالتوفيق ان شاء الله Option Compare Database Private Sub aa_AfterUpdate() N = DLookup("[type]& '|'&[name]& '|'& [code]", "save", "[barcode]= [aa]") x = Split(N, "|") Me.typea = x(0) Me.nameb = x(1) Me.codec = x(2) End Sub Private Sub أمر28_Click() xx = Me.codec N = DLookup("[barcode]& '|'&[type]& '|'&[name]", "save", "[code]=" & xx & "And [type] ='كارتون'") x = Split(N, "|") Me.aa = x(0) Me.typea = x(1) Me.nameb = x(2) End Sub 12.rar

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

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

ماهو اصدار الاوفيس لديك؟

السلام عليكم 🙂 واذا عندي معيار في استعلام النموذج ؟ جعفر

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

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

انا مش فاهم على فكرة

شوف يا سيدى و ركزمعايا الصيغة mdb = accdb على فكرة حاسس ان بتقول فى عقلك ان انا مجنون.. اصبر بس ابتداء من نسخة اوفيس ٩٧ الى نسخة ٢٠٠٣ الصيغة الافتراضية لها هى mdb للقواعد مفتوحة المصدر والتى لم يتم تشفيرها mde للقواعد التى يتم تشفيرها فلا يمكن الإطلاع على الاكواد حتى من المبرمج نفسه ---------------------------------------------------- اما نسخ الاوفيس ابتداء من ٢٠٠٧ الى ٢٠١٩ الصيغة الافتراضية لها هى accdb للقواعد مفتوحة المصدر والتى لم يتم تشفيرها accde للقواعدالتى يتم تشفيرها فلا يمكن الإطلاع على الاكواد حتى من المبرمج نفسه

قبل فتح التطبيق يتم فقط اضافة ملفات لتنسيقات الصوت والفيديو المختلفة داخل المجلد المرفق باسم sound files يا عينى ع الدلع او بعد فتح التطبيق يتم الضغط على زر الأمر تحديث المكتبة القسم الايمن من الشاشة هو التحكم فى مشغل الوسائط برنامج الميديا بلاير الجزء الاوسط هو التنقل بين الاذاعة الصوتية وتعمل اون لاين او مكتبة ملفاتك من المجلد Sound files واسفل قائمة التشغيل التى تحتوى على الملفات خصائص واعدادات التشغيل والتكرار حاجه دلع الجزء الايسر وهو خاص بالتحكم فى الصوت لجهاز الحاسوب بس خلاص اسف انا باتصفح من الجوال مش قادر اعمل تنسيق للموضوع اكتر من كده ولا عارف ارفق صور فى انتظار ردكم بعد التجربة وفى الختام اتوجه بكل الشكر والتقدير والعرفان بالجميل لكل اساتذتى جميعا واخوانى فى هذا الصرح الشامخ الذين اتعلم منهم دائما وابدا اخص بالشكر الاستاذ القدير @jjafferr 🌹 حيث اننى دمجت بهذا المرفق الكثير مما قدمه من أفكار وتوجيهات عبر اشهر وسنوات وكذلك الاستاذ القدير @ابوخليل 🌹 كذلك استخدمت هنا الكثير من الاكواد التى تعلمتها منه عبر اشهر سنوات وباقى كوكبة اساتذتى الفضلاء واخوانى كل الشكر لكم 🌹🌹🌹 Digital Player App.zip

الحمد لله انه اجا فى وقته القلوب عند بعضها

وعليكم السلام ورحمة الله وبركاته هذه 7 ارقام فقط وهذه 8 ارقام فقط عندي اقتراح يوفر عليك الوقت ارجو ان يناسبك ان تجعلت قناع الادخال موحد 9 ارقام بالشكل التالي 000-000-000 ثم عند ادخال رقم يحتوي على 8 ارقام فقط ان تضع 0 ( صفر ) شمال الارقام هكذا 012-345-678 123-456-789 تحياتي

ممكن توضيح اكثر بارك الله فيك تحياتي

وعليكم السلام ورحمة الله وبركاته انشىء استعلام جديد وضع به الجدول الرئيسي فقط ( الذي بيه جميع البيانات ) ثم استخدم دالة DSum لجلب اجمالي الصافي من كل جدول كالتالي DSum("[الصافي]"; "[اسم_الاستعلام]"; "[الاسم] ='" & [اسم_الجدول_الرئيسي]![الاسم] & "'") وهذا المثال باسماء الحقول لاتيني للتوضيح اكثر DSum("[Text1]"; "[Tabel2]"; "[TextName] ='" & [Tabel1]![TextName] & "'") تحياتي

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

الملف التنفذي في الاكسس يكون بصيغة accde اذا كان اصدار الاكسس لديك 2007 فما فوق و mde اذا كان اصدار الاكسس 2003 وما قبلها أما البرنامج الذي تستعمله لتحويل الاكسس الى ملف تنفيذي بصيغة exe فهو غير عملي ولا يستوعب قواعد البيانات كبيرة الحجم وبالتأكيد ستواجه العديد من رسائل الخطأ عند التحويل لذلك انصحك بترك مثل هذه البرامج الخارجية واتبع الطرق المتعارف عليها وذلك بتحويل قاعدة البيانات الى accde

اخى واستاذى العزيز محمد @ابا جودى للتغلب على مشكله عدم ظهور البيانات بعد الحذف قمت بوضع الكود التالى كمصدر للسجلات عند الفتح Private Sub Form_Open(Cancel As Integer) strSql = "SELECT TOP 10 tblData.ID, tblData.[NO], tblData.Locatin, tblData.SecName, tblData.DepName, tblData.RegDate FROM tblData;" Me.RecordSource = strSql Call RecordCount Call RecordCount End Sub

أنا عاجز عن الشكر ... جزاك الله خير أحي حسين وجعله في ميزان حسناتك

السلام عليكم انظر للملف المرفق الكود في زر السجل الاخير ' عرض اخر سجل DoCmd.GoToRecord , , acLast اتمنى يكون المطلوب اختبار.rar

نعم ممكن ومن اسهل الطرقلتنفيذ ذلك If Me![c_8].Caption = "نساء" Then Me.Type = "نساء" Me.c_8.Caption = "رجال" ElseIf Me![c_8].Caption = "رجال" Then Me.Type = "رجال" Me.c_8.Caption = "اطفال" ElseIf Me![c_8].Caption = "اطفال" Then Me.Type = "اطفال" Me.c_8.Caption = "نساء" End If وتفسيرة كما يلي اذا كانت تسمية زر الامر نساء اجعل قيمة النوع نساء غير تسمية الامر الى رجال اذا كانت تسمية الامر رجال اجعل النوع رجال غير تسمية الامر الى اطقال اذا كانت تسمية الامر اطفال اجعل النوع اطفال غير التسمية لزر الامر الى نساء وذلك للاستمرار في دورة تنفيذ الكود اغلق الشرط الملف مرفق Database1011.accdb

هذا الكود ربما يساعدك Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim a, b, c a = Not Intersect(Target, Union(Range("A2:A1000"), _ Range("D2:D1000"))) Is Nothing b = Target.Cells(1) <> vbNullString c = Target.Count = 1 Application.EnableEvents = False If a * b * c <> 0 Then Target.Offset(, 1).Select End If Application.EnableEvents = True End Sub

وعليكم السلام اخي مصطفى اليك الملف وبه الدالة المطلوبة 444+.xls

ربما كان المطلوب (تم تغيير اسماء الشيتات الى اللغة الاحنبية من اجل نسخ الكود ولصقة دون مشاكل لغوية) الكود Sub fil_data_val() Dim S As Worksheet, T As Worksheet Dim dic As Object Dim i%: i = 3 Set S = Sheets("SOURCE_SH") Set T = Sheets("TARGET_SH") Set dic = CreateObject("Scripting.Dictionary") Do Until S.Range("B" & i) = vbNullString dic(S.Range("B" & i).Value) = vbNullString i = i + 1 Loop With T.Range("BK21").Validation .Delete .Add 3, Formula1:=Application.Transpose(Join(dic.keys, ",")) End With dic.RemoveAll: Set dic = Nothing End Sub الملف مرفق ADMINASTREATIONS.xlsm

تم معالجة الامنر (انا لم انتبه الى السؤال جيداً) هذه المعادلة في الخلية B2 واسحب يساراً الى العامود D و نزولاً الى ما تشاء الى اخر صف =IFERROR(IF(ISNA(MATCH($E$3,$F$3:$F$1500,0)),"",INDEX($G$3:$I$1500,MATCH($E3,$F$3:$F$1500,0),4-COLUMNS($A$1:A1))),"") الملف مرفق CHICKAT_1.xlsx

اتفضل يا اخي Alt + 01700

بالإذن من أخ سالم فيما أنت ضاغط على زر ALT اكتب الرقم 0144 (لحرف گ) والرقم 0141 (لحرف چ) من الارقام الجانبية على يمين لوحة المفاتيح لا من الأرقام العلوية فوق مفاتيح الأحرف، مع التأكد أن مفتاح Num Lock مضاء