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

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

السلام عليكم 🙂 في الواقع السؤال غير واضح !! الكود التالي على زر "case y" ، فالرسالة تخبرنا عن ما هو موجود في الحقل typ : Private Sub cmd_case_Click() Select Case Me.typ Case "y" MsgBox "Y is selected" Case "x" MsgBox "X is selected" End Select End Sub جعفر

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

بصراحة اخي @أحمد الفلاحجى حبيت الحل هذا لانه جميل جدا بارامتر 6 OpenArgs DoCmd.Close DoCmd.OpenForm "fxy", , , , , , "y" ثم في القيمة الافتراضية للحقل المستهدف =[Forms]![fxy].[OpenArgs] ويحقق المطلوب حسب طلب الاستاذ @ازهر عبد العزيز مع ذلك لو كان لدينا سجل محفوظ في الجدول لايعمل الكود وسوف يظهر لنا السجل الاول فقط بالقيمة المحفوظة للقائمة المنسدلة ويمكن التغلب على المشكله بتعديل بسيط DoCmd.OpenForm "fxy", , , , , , "x" DoCmd.GoToRecord , , acNewRec DoCmd.Close acForm, "finterto" وايضا هناك طريقة اخرى ليست بروعة طريقتك ولكن تحقق المطلوب ايضا وبدون الحاجة الى تعديل خصائص القيمة الافتراضية للقائمة وانما تعديل هذه القيمة بالكود عند تنفيذ الامر DoCmd.OpenForm "fxy" DoCmd.GoToRecord , , acNewRec Form_fxy.typ.DefaultValue = """" & Me.x.Caption & """" DoCmd.Close acForm, "finterto" وتفسير الكود افتح نموذج fxy انتقل الى سجل جديد اجعل القيمة الافتراضية للقائمة المنسدلة تساوي تسمية زر الامر اغلق نموذج finterto واكرر الحل المقدم منكم اجمل 🌹 الملف مرفق xy1.accdb

اتفضل اخى @ازهر عبد العزيز ان شاء الله يكون ما تريد بالتوفيق ان شاء الله xy1.accdb

وعليكم السلام اخىى @ازهر عبد العزيز اتفضل ان شاء الله يكون ما تريد بالتوفيق ان شاء الله xy.accdb مرفق تعديل بسيط xy1.accdb

تفضل اخي الكريم الكود يقوم بنسخ الصورة الى مجلد image الذي بجوار قاعدة البيانات If IsNull([FCar_No]) Then [FCar_No].SetFocus Exit Sub End If Dim fpath As Variant Dim fpathz As Variant With Application.FileDialog(3) .Title = "Choose File" .Filters.Clear .Filters.Clear .Filters.Add "All Files", "*.*" .Filters.Add "jpg image", "*.jpg" .Filters.Add "jpeg image", "*.jpeg" .AllowMultiSelect = False .InitialFileName = "" If .Show = -1 Then fpathz = .SelectedItems(1) Name fpathz As Application.CurrentProject.Path & "\image\" & [FCar_No] & ".jpg" Me.PicFile = Application.CurrentProject.Path & "\image\" & [FCar_No] & ".jpg" End If End With FF.rar تحياتي

السلام عليكم الكود يعمل ، ولكن الحالة التي لم يؤثر بها -ضمن السجلات الخمسة في مثالكم -كانت بسبب كتابة القاهرة مرة بتاء مربوطة ومرة بالهاء. لماذا dfirst? يمكن استخدام dlookup وستكون النتيجة صحيحة. لو استخدمنا dlast فهذا يعني أن آخر سجل هو الذي ستُجلب البيانات منه وكما هو معلوم سيكون فارغاً. والهدف بطبيعة الحال هو عدم تكرار الإدخال ، فاللازم استدعاء البيانات من السجل الأول الذي سجلنا به البيانات.

حتى نفهم المطلوب انت لديك مربع تحرير يحتوي على قيمتان x و y وترغب عند الضغط على زر الامر ان تكون القيمة الافتراضية للمربع y بصراحة حسب الي فهمت ما نحتاج نستخدام دالة case ولا اي دالة شرطية اخري فقط الامر typ.DefaultValue = "'y'"

اتفضل اخي ارجو ان يكون هو المطلوب xy.accdb

اتفضل اخى @ازهر عبد العزيز التعديل كما اشارك لك به اخى حمدى @Khalf جزاه الله خيرا بالتوفيق اخوانى xy.accdb

غداً إن شاء أرسل المثال لكم أو يتفضل أحد الأخوة بالتعديل المطلوب

جزاك الله خيرا اخى واستاذى خالد @kha9009lid انت الاروع اخى حلولك رائعه وتفسيرك للاحداث اكثر من رائع جزاك الله خيرا وللعلم هذه ثانى مره اتعامل مع بارامتر 6 OpenArgs فمعلوماتى فيه قليله وها انا اتعلم منكم استاذى العزيز بارك الله فيك

الاساتذة المبدعين @أحمد الفلاحجى و @kha9009lid

كود رائع اخي الرائد احسن ما فيه يهمل الصفوف الفارغة

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

تفضل لعله المطلوب Sub SaveRange() Dim saveLocation As String Dim rng As Range saveLocation = "C:\Users\سبحان الله\desktop\" & Range("B2").Value & ".pdf" Set rng = Sheets("ورقة1").Range("A1:c12") rng.ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=saveLocation, OpenAfterPublish:=True End Sub جدول متغيير1.xlsm

السلام عليكم ورحمة الله الف شكر اخى الكريم عبد الفتاح على هذه الاضافة و يمكن ايضا و ضع هذا الكود فى حدث الورقة مع استخدام الكود الاول Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Then Call SelRange End If End Sub

بعد ادن استاد ابراهيم يتم وضع الكود في حدث change لورقة العمل حتى يعمل مباشرة من غير تشغيل الماكرو في كل مرة يتم فيها اختيار اسم Private Sub Worksheet_Change(ByVal Target As Range) i = 2 Do While 1000 x = Cells(i, 1) If x = Range("A1") Then Cells(i, 1).Select Exit Do End If i = i + 1 Loop End Sub

السلام عليكم ورحمة الله استخدم الكود التالى Sub SelRange() i = 2 Do While 1000 x = Cells(i, 1) If x = Range("A1") Then Cells(i, 1).Select Exit Do End If i = i + 1 Loop End Sub

تفضل . هايبرلينك لملفات في مجلد ما . و هايبر عن طريق الليست بوكس و ورقة العمل hyperlink.xlsm

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

وعليكم السلام والرحمة تفضل اخي العزيز هذا المرفق وهو منقول للامانة اعتقد من احد المواقع الاجنبية قد يكون فيه طلبك Animation2k.rar

اتفضل اخى الفاضل ده مثال كان موجود عندى لعله يفى بالغرض ان شاء الله وجزاها الله خيرا ام عهود بالتوفيق اخى جمع فى نموزج فرعى-TOTAL.rar

اساتذتي ومعلمي الاحباء الف الف شكر الحقيقة هذا اكثر من استحقاقي اين انا من هؤلاء الاهرامات والاساتذة الذين اتحفونا وما زالوا يتحفونا باجوبتهم شكرا لاستاذنا jjafferr والشكر موصول لاساتذتي واخوتي Shivan Rekany أحمد الفلاحجى ابو البشر Khalid Jnb ابوخليل wael_rafat أبو إبراهيم الغامدي essam rabea kha9009lid ابو محمد 316 m.r

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

معلش اخى يعنى انت دفعت 500 ومستخسر تدفع ال 50 هذا خطأك لانك لم توضح للمبرمج انك سوف تشغله ع اكثر من جهاز وكما وضح لك الاستاذ شيفان لا يمكن فهذه الحاله وحتى لو مفتوحه فانسى فاننا لا نتعلم لاجل هذا ولا نساعد فى هذا بالتوفيق ان شاء الله

وعليكم السلام ورحمة الله وبركاته لانه لا يوجد لديك حقل باسم PicFile لا في الجدول ولا في النموذج نصيحة : لا تجعل الصور مرفقة في قاعدة البيانات اجعلها في مجلد خاص بالصور بجوار البرنامج وذلك لعدم تضخم قاعدة البيانات بدون فائدة كبيرة FF.rar تحياتي

هل هذا هو طلبك ؟؟؟؟ New Microsoft Access قاعدة بيانات (3) (1).accdb

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

سابقا حاولت عمل كود للاستاذ المبدع @ابا جودى لكني فشلت في تطبيقة لانة كان بموضوع اخر وهذا الكود Private Sub أمر14_Click() Select Case typ Case Is = y End Select End Sub

هلا اخي جرب المرفق تستطيع البحث بالرقم او الاسم Test2_UPDATED.accdb

السلام عليكم هناك عدة طرق لعمل ذلك و الأفضل استخدام إحدى الطريقتين في المرفق: الأولى بجلب البيانات بالدالة Dlookup من جدول الأصناف بناء على مربع السرد و الحوار الخاص برقم الصنف . الثانية بنسخ قيمة الأعمدة من مربع السرد الحوار إلى الحقول المطلوبة. هاتان الطريقتان تسمحان بالتعديل على البيانات مثل تغيير سعر الوحدة من البضاعة في مثالنا، دون تغيير القيمة الافتراضية كما هو في طريقة ربط جدولين. BringValuesFrom-A-TableToAnother.accdb

الف الف شكر لاخي واستاذي ابو تراب

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

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

الشكر الجزيل لاخوتي واحبتي واساتذتي AboBahaa محمد ابوعبد الله Khalf فايز.. حلبي Ali Mohamed Ali اشرف ازهر عبد العزيز بلال اليامين

اتفضل اخى محمد الملف بدون ضغط وجزاه الله خيرا اخى @محمد ابوعبد الله بالتوفيق اخى محمد FF.accdb

اخى الفاضل هذا الموضوع من سنه 2012 قم بفتح موضوع جديد وضع استفسارك به بعد ذلك اولا لا يستحسن وضع الحقول المحسوبه وغيرها بالجدول يفضل بالاستعلامات اتفضل جرب ان لم يكن ما تريد افتح موضوع جديد وبه استفسارك بالتوفيق اخى قاعدة بيانات موظفين.rar

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

يا صديقي انت تقوم بتنفيذ الماكرو على صفحة فارغة (لأن الماكرو يعمل فقط في صفحة Taksim من اجل عدم المساس في البيانات في صفحة اخرى عن طريق الخطأ ) و كما ترى الصفحة Taksim فارغة في الملف المرفق يقوم الكود بنسخ الداتا من صفحة salim الى صفحة Taksim ثم يقوم بترتيبها حسب الرقم في الخلية S2 من الصفحة Taksim لذلك اذا اردت تعديل او اضافة او حذف شيء ما قم بذلك في الصفحة الاولى (salim) ثم اذهب الى الصفحة الثانية (Taksim) ونفذ الماكرو بالضغط على الزر مرفق ملف مع بعض التعدبلات البسيطة Talsim_by_10.xlsm

تم معالجة الأمر Total__Super_1.xlsm

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

السلام عليكم اخى @صايل عزام جرب الحل الذى عالرابط التالى ان شاء الله يحل لك مشكلتك https://www.access-programmers.co.uk/forums/threads/adding-a-help-chm-file-to-access-application.93267/post-418968 تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق

هل تبحث عن استعلام كهذا

بعد اذن اخي رائد ربما يكون هذا المطلوب (ادراج نفس رقم البطاقة لنقس المادة) Card_Number .xlsx

السلام عليكم-تم انشاء صفحة جديدة بالملف (إدخال البيانات) وتم عمل قائمة منسدلة بالعمود الثانى B بأرقام السيارات , فكل ما عليك فعله هو اختيار رقم السيارة من القائمة وسيقوم الإكسيل بإظهار اسم السائق لتلك السيارة تلقائياً دون تدخل منك وذلك بهذه المعادلة... فمن فضلك لا تقوم بعمل دمج للخلايا لحسن عمل المعادلة =IFERROR(INDEX(الناقلين!$B$3:$B$1000,MATCH($B2,الناقلين!$C$3:$C$1000,0)),"") الناقلين.xlsx

السلام عليكم تفضل اخي الكريم انظر استعلام باسم Query1 الموظفين.rar مع اني اتنصحك بتقسيم جدول الموظفين الى جدولين الجدول الاول خاص بالبيانات والجدول الثاني خاص بالعلاوات ( رقم الموظف - التاريخ - رقم العلاوة ) تحياتي

بعد إذن الأفاضل هذه دالة كنت قد صممتها لهذا الغرض قبل ذلك ربما ننتفع بها وبأكوادها المختصرة Function mas_n_id_data(myid As Variant, Optional stype As Byte = 1) As Variant If myid = "" Then mas_n_id_data = "": Exit Function Dim n As Byte, governrate As Variant If stype = 1 Then mas_n_id_data = DateSerial(IIf(Left(myid, 1) = 2, 19, 20) & Mid(myid, 2, 2), Mid(myid, 4, 2), Mid(myid, 6, 2)) ElseIf stype = 2 Then governrate = Array("01-القاهرة", "02-الإسكندرية", "03-بورسعيد", "04-السويس", "11-دمياط", "12-الدقهلية", "13-الشرقية" _ , "14-القليوبية", "15-كفر الشيخ", "16-الغربية", "17-المنوفية", "18-البحيرة", "31-البحر الأحمر", "32-الوادى الجديد" _ , "19-الإسماعيلية", "21-الجيزة", "22-بني سويف", "23-الفيوم", "24-المنيا", "25-أسيوط", "34-شمال سيناء", "35-جنوب سيناء" _ , "26-سوهاج", "27-قنا", "28-أسوان", "29-الأقصر", "33-مطروح", "88-خارج مصر") For n = 0 To 27 If Mid(myid, 8, 2) = Left(governrate(n), 2) Then mas_n_id_data = Right(governrate(n), Len(governrate(n)) - 3) Exit For End If Next Else mas_n_id_data = IIf(Mid(myid, 13, 1) Mod 2 = 0, "أثنى", "ذكر") End If End Function وطريقة استعمالها في الاستعلام أو في خلايا الإكسل =mas_n_id_data("00000000000000", 2) حيث أن الأصفار هي الرقم القومي أو الحقل أو الخلية التي تحتوي عليه والرقم الثاني 1 أو يترك خاليا لاستخراج تاريخ الميلاد كتاريخ 2 لاستخراج المحافظة كنص 3 لاستخراج النوع كنص نفعنا الله وإياكم بما علمنا وعلمنا ما ينفعنا