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

السلام عليكم 🙂 في وجهة نظري ، اذا رأيت احد الاعضاء يرد على اسئلة الاعضاء ، واجاباته تفي بحل السؤال (من المعروف ان هناك عدة طرق لحل اي سؤال ، وهناك طرق افضل من اخرى) ، فأظل اراقب هذا العضو لمجموعة مشاركات ، حتى اتاكد من علمه ، ومواظبته للمنتدى ، ولو بشكل متقطع. عندها اقوم بترشيح ترقيته الى درجة خبير 🙂 الاخ حسام وهاب @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 تحياتي

برنامج شئون الموظفين مع ارشفةصور المستندات وملفات pdf الباسوورد : 2545 https://youtu.be/A0u_-nowx1s وهذا هو البرنامج برنامج_الموظفين.accdb

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

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

طيبا مبدئيا شيل الشرط وجرب من غير اى شروط فاذا كانت النتيجه مظبوطه نرى مشكله الشروط وان شاء الله الاخ العزيز @ابو تراب او احد اخواننا واساتذتنا يساعد واعذرنى فالنت الان معدوم حتى السلحفاه اسرع منه 😀

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

If typ.defaultvalue = ""y"" then typ.defaultvalue = ""x""0 else typ.defaultvalue = ""y""0 End if ضعه تحت زر case في حدث عند النقر

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

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

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

الله الله الله كل الاحترام والشكر من قلبى لحضرتك استاذى الجليل سليم حاصبيا ربنا يحفظك ويبارك لك ويكرمك اللهم امين من قلبى والله احترامى لشخصك الكريم جداااااااااااااااا

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

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

في الطريقة التي اشار اليها الاستاذ @أحمد الفلاحجى اعتمدت الاستاذة زهرة على وضع حقل غير منظم بالنموذج الفرعي وقيمته تساوي =Nz(Sum([total]);0) وفي حقل الاجمالي للنموذج =Forms![إجمالى فاتورة البيع(مبيعات الأسمنت]![تفصيل فاتورة البيع]!TOT ومكن اختصار الطريقة بدون الحاجة للحقل غير المنظم في الفرعي باستخدام دالة dsum =Nz(DSum("[total]";"تفصيل فاتورة البيع";"[im_id]='" & [im_ID] & "'");0) المثال في المرفق TOTAL.accdb

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

السلام عليكم 🙂 للعلم ، الاداة DBPix تحفظ فقط ملفات الصور ، بصيغة Blob في حقل OLE في جداولك. لإخراج جميع الصور من برنامجك وحفظها في مجلد ، احفظ هذه الوحدة النمطية في برنامجك بإسم mod_Blob_to_File : Option Compare Database Option Explicit ' 'https://www.utteraccess.com/forum/index.php?s=bb0cc83dcb349316e03115efcd24acf4&showtopic=1688201&view=findpost&p=1688652 ' 'modified by jjafferr ' 16-4-2020 ' Public Declare Function apiCreatePath Lib "Imagehlp.dll" _ Alias "MakeSureDirectoryPathExists" (ByVal strPath As String) As Long ' Public Function ExtractFiles() Dim strPath As String, tbl_Name As String strPath = CurrentProject.Path & "\myFiles\" apiCreatePath strPath 'tblItemsTracks tbl_Name = "tblItemsTracks" With CurrentDb.OpenRecordset(tbl_Name) Do Until .EOF If Len(![Picture] & "") <> 0 Then DownloadFieldToFile ![Picture], strPath & tbl_Name & "_" & ![TNo] & "_" & ![Id] & "_Picture.jpg" DownloadFieldToFile ![Thumbnail], strPath & tbl_Name & "_" & ![TNo] & "_" & ![Id] & "_Thumbnail.jpg" End If .MoveNext Loop End With 'tblItemsTracks tbl_Name = "tblItemSubImagesT" With CurrentDb.OpenRecordset(tbl_Name) Do Until .EOF If Len(![imgMain] & "") <> 0 Then DownloadFieldToFile ![imgMain], strPath & tbl_Name & "_" & ![ItemId] & "_" & ![ImageId] & "_imgMain.jpg" DownloadFieldToFile ![imgThumb], strPath & tbl_Name & "_" & ![ItemId] & "_" & ![ImageId] & "_imgThumb.jpg" End If .MoveNext Loop .Close End With MsgBox "Done" End Function Private Sub DownloadFieldToFile(ByRef objFieldName As Object, _ ByVal strFileName As String) Dim intFileNum As Integer intFileNum = FreeFile Open strFileName For Binary As intFileNum Put intFileNum, , objFieldName.GetChunk(0, objFieldName.FieldSize) Close intFileNum End Sub . لتشغيل هذه الوحدة النمطية ، اكتب التالي (رجاء الملاحظة الى ان علامة الاستفهام بالانجليزي وليست بالعربي) ، في النافذة اسفل نافذة الكود (لفتحها اضغط على Ctrl+G) : ?ExtractFiles هذه الوحدة النمطية ستعمل لك مجلد جديد اسمه myFiles داخل مجلدك ، وستحفظ الصور من الجدولين فيه ، لهذا السبب ، رجاء استعمل نسخة من برنامجك للقيام بهذا العمل ، وتأكد بأنه لديك مساحة فارغة على الهارددسك اكثر من 2 جيجا ، وقبل ان تستخدم برنامجك كاملا ، رجاء استعمل ملفات جزء من برنامجك لاصل ، حتى نتفق على اسماء الملفات ، فأنا حاليا حفظت الملفات هكذا : . فقد لا تناسبك التسمية ، وخصوصا اننا يجب ان نربط الصور مع السجلات لاحقا بالاسم الصحيح 🙂 اما بالنسبة لحفظ ملفات الاسكانر بصيغة pdf ، فهناك 3 طرق : 1. الطريقة الاسهل والتي اخبرتك عنها : 2. ان تستعمل الكود في التحكم في الاسكانر (ومنها الطريقة التي طلبتها في تعديل كود المرفق) ، فلا تتعب نفسك ، فلا توجد طريقة سهلة ، 3. ان تجعل الاسكانر يعمل لك صور بصيغة jpg ، وبعدها نستخدم برنامج خارجي ليضم جميع هذه الصور الى ملف واحد بصيغة pdf وطبعا ممكن التحكم بهذا برمجيا ، ولكن العمل يطول والانسب هو الطريقة رقم1 اعلاه : . طبعا بعد ان تخرج الصور من برنامجك ، يجب ان تحذف حقول OLE من جداولك (لا تنسى انك تستعمل نسخة من برنامجك) ، وبعدها اعمل للبرنامج ضغط واصلاح ، وسيرجع الى حجمه الصحيح 🙂 ويجب عليك ان تعيد العمل على برنامجك (ونصيحة ، لا تستعمل الاداة DBPix مرة اخرى في البرنامج ، فانت محتاج الى اظهار الصور فقط في مربع الصور في النموذج/التقرير) ، او اظهر ملف pdf في النموذج/التقرير : جعفر

السلام عليكم اخى @صايل عزام جرب الحل الذى عالرابط التالى ان شاء الله يحل لك مشكلتك 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 لاستخراج النوع كنص نفعنا الله وإياكم بما علمنا وعلمنا ما ينفعنا