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

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

اخي جرب المرفق ComboBox.xlsm

تسلم أستاذ وجيه ولكني أرى أنه يجب أن تكون الخلية B3 تكون بها معادلة الأستاذ الفاضل سليم ويكون واستخدام العمودK والعمود L أفضل لأنه الخلية B3 سوف يتم الاستعلام عن ورقة العمل التي سوف يتم أخذ منها البيانات ولإثراء الموضوع فاتوره.xlsm

تفضل .... kanory.accdb

بالتوفيق ..........

وعليكم السلام ورحمة الله ..... لم نستطع تحميل المرفق .... لكن ضع هذا الكود في حدث عند تشغيل النموذج الاول .... DoCmd.DeleteObject acForm, "نموذج2"

وعليكم السلام ورحمة الله ..... وضح ما هي نوع البيانات المطلوب جلبها بيانات جدول أو كلمة معينة .. سطر معين .... حبذا لو ترفق المطلوب بمثال أفضل وأسرع الفهم ؟؟؟

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة شاشة ادخال بيانات مع ميزة عدم التكرار كيفية منع تكرار رقم الهوية في هذا الفورم تم ارفاق كود التعديل من الفاضل _ أ / ضاحي الغريب _ مشاركه بالتعديل من _ شوقي ربيع PASS 123 فورم ادخال بيانات متعددPASS 123.rar و بدون باسورد فورم ادخال متعدد البيانات .rar و لا تنسونا من صالح الدعاء

اخواني كل عام وانتم بخير جميعا بناء علي طلب احد الاخوة باللينك التالي https://www.officena.net/ib/topic/91148-نقل-واسترداد-البيانات-من-ملف-اكسل-الى-ملف-اكسيل-أخر/?fbclid=IwAR0xbxEnx7AZelkY6NQoXHeffLqB-RzI3Q_b1LqE8IcQdkcl1jbpWCjWm3I ولاكبر استفادة اردت الاجابة في مشاركة منفصلة شرح العمل:- افتح ملف" V2" اضغط علي الزر لاظهار الفورم اضعط علي زر استرداد بيانات من ملف اخر الكود المستخدم Sheets(1).Range("D6:G15") = "" mm = ActiveWorkbook.Name MyPath = ThisWorkbook.Path & "\v1.xlsm" 'On Error Resume Next Application.ScreenUpdating = False Application.DisplayAlerts = False Set Mybook = Workbooks.Open(Filename:=MyPath) m = Workbooks("v1.xlsm").Sheets(1).Range("D6:G15").Address Workbooks(mm).Sheets(1).Range(m).Formula = Workbooks("v1.xlsm").Sheets(1).Range("D6:G15").Formula Workbooks("v1.xlsm").Close Application.DisplayAlerts = True Application.ScreenUpdating = True MsgBox ("DONE") trans.rar

أهلين بك أخي محمد السائل يريد إستبدال صندوق الرسائل الخاص بالأكسس برسائل يستطيع تصميمها هو كما يشاء لقد قمت بإضافة تصميم للرسالة الأولى في هذا التعديل DB.rar

هات المرفق لنراه

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

أنا أقترح أن تضع زر أمر وتجعله لعملية الحفظ وتتحقق من ادخال بيانات في النموذجين الرئيسي والفرعي .

عندما اعطيه الامر ما هو هذا الامر ؟!

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

بارك الله فيكم جميعا وتقبل منا ومنكم صالح الأعمال أستاذ وجيه وأستاذ علي ....تحياتي لكم

طيب ما انا عملت هيك وجعلت الليمون = 0 بالمستودع وطلبت منك تجرب اختيار الليمون لترى النتيحة

هل قبل معك اختيار الليمون ههههههههههههه كان شرطى ان يقبل وبما انه لم يقبل لن اتى جزاكم الله خير ورزقكم الخير كله وزادكم من نعمه

طيب خلينى افكرلك فى حل وان شاء الله ارجع لك باقرب فرصة

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

اتفضل جرب تعدل على سجلات فاتورة سابقة ان اردت التعديل وان كان لابد منه اضغط الزر تعديل من النموذج الرئيسى الباسورد 123 جرب تختار من الاصناف ليمون تحديث الكميات مشاكل(3) .accdb ان قبل معك اختيار ليمون فلتعزمنى بعد الافطار على كوب من الليمون

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

بسيطة ان شاء الله يا سلام بس كده انت تأمر اتفضل تحديث الكميات مشاكل(2).accdb

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

الله يزيد فضلك أخي الكريم ابا جودى الله يجزاك خير ويبارك فيك وفي رزقك . شكرا لك

accdt قالب accde تتشفر قاعدتك حتى انت ما تقدر تشوف الاكواد تانى الافضل طبعا accdb

افتح النموذج سقف تفاصيل فى وضع التصميم وانظر مصدر البيانات هذه مقارنة اولا القديم الذى يحتوى المشكلة SELECT [سقف تفاصيل].الفاتورة, [سقف تفاصيل].الصنف, [سقف تفاصيل].الكمية, الاصناف.[سعر التأجير], الاصناف.[المتوفر بالمستودع], [الكمية]*[سعر التأجير] AS الاجمالي, [سقف تفاصيل].المعرف FROM (الزبائن INNER JOIN سقف ON الزبائن.ID = سقف.الزبون) INNER JOIN (الاصناف INNER JOIN [سقف تفاصيل] ON الاصناف.المعرف = [سقف تفاصيل].الصنف) ON سقف.المعرف = [سقف تفاصيل].الفاتورة WHERE (((الزبائن.Customer)=[Forms]![سقف]![الزبون])); الجديد كما يقصد الاستاذ الجليل ومعلمنا القدير استاذ @رمهان SELECT [سقف تفاصيل].الفاتورة, [سقف تفاصيل].الصنف, [سقف تفاصيل].الكمية, الاصناف.[سعر التأجير], الاصناف.[المتوفر بالمستودع], [الكمية]*[سعر التأجير] AS الاجمالي, [سقف تفاصيل].المعرف, الزبائن.ID FROM (الزبائن INNER JOIN سقف ON الزبائن.ID = سقف.الزبون) INNER JOIN (الاصناف INNER JOIN [سقف تفاصيل] ON الاصناف.المعرف = [سقف تفاصيل].الصنف) ON سقف.المعرف = [سقف تفاصيل].الفاتورة WHERE (((الزبائن.ID)=[Forms]![سقف]![الزبون])); الجزء الخطأ (((الزبائن.Customer)=[Forms]![سقف]![الزبون])) الجزء الصحيح (((الزبائن.ID)=[Forms]![سقف]![الزبون])) استرجاع البيانات (1).accdb

وعليكم السلام التنسيق الشرطى.xlsx

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

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

يبدو ان الصيام له اثر حبيبي يمكن لم تظهر معك المشكلة لان اسم العنصر نفسه العنوان عدل عنوان احد العناصر وشوف تحياتي

اخي عبداللطيف في مصدر النموذج الفرعي انت وضعت اسم الزيون كمعيار والمفروض ال id بالتوفيق

طيب جرب كده الاول حقل مطلوب2.accdb

احسنت أستاذ عادل عمل رائع بارك الله فيك

اخي وجيه شرف الدين مشكور مرورك اخي Ali Mohamed Ali مشكور مرورك واشكرك علي السؤال عني اخي محمود_الشريف بارك الله فيك عمل ممتاز واعذرني لم اراه تحياتي اخي حراثي تواتي لابد من تحديد اسم الملف طبعا وحسب الكود لابج وان يكون في نفس مكان الملف v2 ومرفق ملف بطريقو اخري تمكنك من اختيار امتداد الملف سواء كان xlsm او xls وكذلك تحديد المدي في كلا الملفين trans_2.rar

تفضل .. اسماء النماذج والتقارير في مربع تحرير.accdb

السلام عليكم جرب هذا التعديل ووافنا بالنتائج - مشكلة عجزت عن حلها - الحقول المطلوبة.mdb

بعد اذن استاذى ومعلمى الحبيب واثراء للموضوع فاتوره.xlsm

جزاكم الله خيرا أستاذنا // عادل حنفي وبالنسبة لإستفسار الاخ / حراثي لو رجعت للموضوع الأصلي الخاص بك ستجد الاجابة اضغط هنا

بارك الله فيكم استاذنا الفاضل ما شاء عمل رائع

أخى الكريم بالمرفقات ما طلبت توضيح (( اليوزرفورم المستخدم )) بعد فتح الملف ، قم بالوقوف على الخلية المراد لصق البيانات بدءا منها ثم من خلال الضغط على زر اضغط هنا يقوم بفتح نافذة حوار من خلالها قم بإختيار الملف المطلوب النسخ منه ثم تقوم بتحديد البيانات أو النطاق المراد نسخ البيانات منه سيظهر النطاق المحدد باليوزرفورم ثم اختر طريقة اللصق التى تفضلها ثم اضغط على زر لصق الملف المطبق به اليوزرفورم v1.xlsm

إليك كود فتح ملف إكسيل Sub open_file() Dim file_name As Variant Dim open_wk As Workbook On Error GoTo 1 file_name = Application.GetOpenFilename(Title:="اختار ملف الاكسل", FileFilter:="Excel Files *.xlsm (*.xlsm),") If file_name = False Then 1 MsgBox "من فضلك اختار ملف الاكسل xlsm", vbCritical Exit Sub Else Set open_wk = Workbooks.Open(file_name) End If End Sub

حل بالمعادلات صفحة "By_Equation" HOW_MANY_new.xlsm

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

جرب هذا .... Forum (1).mdb

مرحبا حواديت نعم ممكن ، انظر المرفق ملحوظة : بعد فك الضغط ضع المجلد على C AccsAcsl.rar

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

عليكم السلام. لماذا تستخدم دالة ShellExecuteA في تشغيل ملفات الصوت ؟؟ وظيفة الدالة الاساسية ليست لتشغيل ملفات الصوت. بل لتشغيل البرامج التنفيذية والتي بدورها ستقوم بتشغيل اما صوت او فيديو او صورة حسب البراميتر الممرر لها,, لتشغيل ملفات الصوت MP3 , WAV في الاكسس وبإستخدام API راجع موضوعي هنا، على العموم لحل مُشكلتك في دالة ShellExecuteA تحتاج لقتل العملية المسؤولة عن تشغيل الصوت كان يكون برنامج VLC او Windows Media Player ... الخ Private Sub DoStop_Click() Dim oServ As Object Dim cProc As Variant Dim oProc As Object Set oServ = GetObject("winmgmts:") Set cProc = oServ.ExecQuery("Select * from Win32_Process") For Each oProc In cProc If oProc.Name = "Music.UI.exe" Or oProc.Name = "wmplayer.exe" Then MsgBox "تم ايقاف الصوت بنجاح" oProc.Terminate End If Next End Sub تفضل قاعدة البيانات الخاصة بك بعد التعديل حسنين api_sounds_SEMO.rar

اهلاً معلمي الغالي, تلبية لطلبك الكريم قمت بجمع الطريقتين بملف واحد اذا وضعت مسار ملف صوت MP3 او WAV فهو سيقوم بفلترة المدخلات وتشغيلها حسب صيغتها. Option Compare Database Private Declare PtrSafe Function mciSendString Lib "winmm.dll" Alias _ "mciSendStringA" (ByVal lpstrCommand As String, ByVal _ lpstrReturnString As Any, ByVal uReturnLength As Long, ByVal _ hwndCallback As Long) As Long Private Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" _ (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal lBuffer As Long) As Long Private Declare PtrSafe Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long Const SND_ALIAS_SYSTEMASTERISK As String = "SystemAsterisk" Const SND_ALIAS_SYSTEMDEFAULT As String = "SystemDefault" Const SND_ALIAS_SYSTEMEXCLAMATION As String = "SystemExclamation" Const SND_ALIAS_SYSTEMEXIT As String = "SystemExit" Const SND_ALIAS_SYSTEMHAND As String = "SystemHand" Const SND_ALIAS_SYSTEMQUESTION As String = "SystemQuestion" Const SND_ALIAS_SYSTEMSTART As String = "SystemStart" Const SND_ALIAS_SYSTEMWELCOME As String = "SystemWelcome" Const SND_ALIAS_YouGotMail As String = "MailBeep" ' playsound Params Const SND_LOOP = &H8 Const SND_ALIAS = &H10000 Const SND_NODEFAULT = &H2 ' silence if no sound associated with event Const SND_ASYNC = &H1 ' play async (don't freeze program while sound is playing) Private sMusicFile As String Dim Play, a Public Sub Sound_MP3(ByVal File$) sMusicFile = GetShortPath(File) Play = mciSendString("play " & sMusicFile, 0&, 0, 0) If Play <> 0 Then End If End Sub Public Sub Stop_MP3(Optional ByVal FullFile$) Play = mciSendString("close " & sMusicFile, 0&, 0, 0) End Sub Public Function GetShortPath(ByVal strFileName As String) As String Dim lngRes As Long, strPath As String strPath = String$(165, 0) lngRes = GetShortPathName(strFileName, strPath, 164) GetShortPath = Left$(strPath, lngRes) End Function Private Sub DoStartSound_Click() If IsNull(SoundPath) Then MsgBox "! áã ÊÞã ÈæÖÚ ãÓÇÑ ãáÝ ÇáÕæÊ", vbCritical, "ÚãáíÉ ÎÇØÆÉ" Exit Sub End If Dim Fix_Path As String Fix_Path = Mid(SoundPath, 2) Dim Rev_Extension As String Rev_Extension = FExtOnly(Fix_Path) If IsFile(Fix_Path) = False Then MsgBox "! áã íÊã ÇáÚËæÑ Úáì ÇáãáÝ", vbCritical, "ÚãáíÉ ÎÇØÆÉ" Exit Sub End If Select Case Rev_Extension Case "mp3" Sound_MP3 (Fix_Path) Case "wav" PlaySound Fix_Path, vbNull, SND_ALIAS Or SND_NODEFAULT Or SND_ASYNC Or SND_LOOP End Select Debug.Print Fix_Path End Sub Function IsFile(ByVal fName As String) As Boolean On Error Resume Next IsFile = ((GetAttr(fName) And vbDirectory) <> vbDirectory) End Function Function FExtOnly( _ ByVal filename As String) _ As String Dim nopath As String Dim dpos As Long Dim spos As Long spos = InStrRev(filename, "\") If spos > 0 Then nopath = Mid(filename, spos + 1) Else nopath = filename End If dpos = InStrRev(nopath, ".") If dpos > 0 Then FExtOnly = Mid(nopath, dpos + 1) Else FExtOnly = "" End If End Function Private Sub DoStopSound_Click() Dim Fix_Path As String Fix_Path = Mid(SoundPath, 2) Dim Rev_Extension As String Rev_Extension = FExtOnly(Fix_Path) Select Case Rev_Extension Case "mp3" Stop_MP3 (Fix_Path) Case "wav" PlaySound vbNullString, ByVal 0&, SND_NODEFAULT End Select End Sub حسنين MP3_WAV_Player_SEMO_Pa3x.accdb

احذف مسار الملف من الجدول (يعني لا تحفظ مسار الصورة في الجدول) ، واربط الصورة برقم الموظف باسم المجلد انا اتعامل مع جميع برامجي بهذه الطريقة جعفر