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

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

أخي الحبيب خالد الرشيدي المحترم .. السلام عليكم ورحمة الله وبركاته : ما أستطيع قوله أمام هذا الانبهار بما رأيت ...طريقة سرد الموضوع ثم الانتقال إلى شرح كل معلّمة للدالة بهذا الأسلوب التفصيلي الرائع أستاذ بحق ...رائع بحق ... واسمح لي أن أكون أحد الطلبة الصغار الذين ينهلون من هذا المعين الفياض. جزاكم الله خيراً وأحسن إليكم و

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

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

أخي الحبيب عبد العزيز هلا جعلت الملف يعمل على الـ 64 بت ؟ حاول تعدل في أسطر الإعلان API لتتناسب مع الـ 32 بت و الـ 64 بت ..حتى أتمكن من تجربة الملف وموافاتك بالنتيجة أعتذر عن القيام بالتعديل لقلة الوقت .. فقد أوشك وقتي على الانقضاء وحان موعد النوم بعد قليل تقبل تحياتي

السّلام عليكم و رحمة الله و بركاته الأخ الكريم " حراثي تواتي " هذا ملف جاهز كنت قد صمّمته منذ فترة.. بإمكانك إستغلاله .. فقط يمكنك الاستغناء عن هذا الجزء حسب إحتياجاتك علمًا أنّه يمكنك أيضًا عمل ما طلبته بالأداة SPINBUTTON تفضّل المرفق لعل و عسى يفي بالغرض إحتراماتي حراثي تواتي.rar

ضع الكود التالي في وحدة نمطية جديدة Public Function CompactRepairDatabase() On Error GoTo Err 'الكود التالي لضغط قاعدة البيانات إذا كان الأوفيس إنجليزي CommandBars("Menu Bar").Controls("Tools").Controls("Database utilities").Controls("Compact and repair database...").accDoDefaultAction Err: If Err.Number = 5 Then 'الكود التالي لضغط قاعدة البيانات إذا كان الأوفيس عربي CommandBars("Menu Bar").Controls("أ&دوات").Controls("أدوات م&ساعدة لقواعد البيانات").Controls("&ضغط قاعدة بيانات وإصلاحها...").accDoDefaultAction End If End Function ومن ثم توجه الى النموذج الذي يحتوي على زر ضغط واصلاح القاعدة وضع الكود التالي في حدث "عند النقر" لزر ضغط واصلاح القاعدة If MsgBox("هل ترغب في ضغط واصلاح بيانات القاعدة قبل إغلاقها" & vbCrLf & _ "اضغط على (لا) لإلغاء العملية . اضغط على (نعم) لضغط البيانات ", _ vbInformation + vbMsgBoxRight + vbYesNo + vbDefaultButton1, _ "تنبيه : رسالة تأكيد ضغط قاعدة البيانات واصلاحها") = vbYes Then Call CompactRepairDatabase End If DoCmd.Quit

السلام عليكم أخي العزيز أبو البراء السر يكمن من آخر قيمتين في الكود true , true القيمة الأولى true ترجع لخاصية رأس النطاق header لما تعملها true يعنى أنك ستستخدم هذه الخاصية أما لو عملتها false يعنى أنك لا تريد استخدامها وفي هذه الحالة لا تهم القيمة الثانية سواء كانت true أو false القيمة الثانية true ترجع لاستخدام الخلية الأولى في النطاق لما تعملها true يعنى أنك تريد ظهور بيانات الخلية الأولى f9 في النطاق F9:F12 ولما تعملها false يعنى أنك لا تريد ظهور بيانات الخلية الأولىf9 في النطاق F9:F12 بل الخلية الثانية f10 نحلل الآن الكود الذي في الأعلى الكود سيحضر لك البيانات التي في النطاق F9:F12 true الأولى يعنى قم بتفعيل خاصية راس النطاق HEADER true الثانية يعنى قم بجلب البيانات الموجودة في رأس النطاق المحدد وهو f9 عندما يتم التنفيذ سيفاجأ الكود أن الخلية F9 (الموجودة في الملف المراد جلب البيانات منه ) مدمجة يعنى فيها خلل سيكتب لك f1 يعنى الكود ها يقول لك : أنت يا سيدي حددت لي الخاصية HEADER على أنها TRUE يعنى غضبا عني لا زم أجيب قيمة أول خليةF9 وأنا ما عرفتش أجيب البيانات اللي في الخلية دي لأن فيها مشكلة ولكنها الخلية الأولي في النطاق المحدد لاحظ أن F1 يعنى خطأ في رأس العمود الأول من النطاق المحدد F2 يعنى خطأ في راس العمود الثاني من لنطاق المحدد (لن تظهر عندك F2 لأنك حددت عمود واحد F9:F12 ولكن يمكن أن تظهر عندما تحدد أكثر من عمود مثلا B2:T5 ومعنى F2 هو أن الخلل يوجد في رأس العمود الثاني من النطاق وهو الخلية C2) وهكذا F6 يعنى خطأ في رأس العمود السادس من النطاق المحدد طيب سوال : لو دخلنا على نفس الكود أعلاه وغيرنا آخر قيمة من TRUE ألى FALSEكيف ستظهر النتائج ؟ الجواب لا حظ أن النطاق هو F9:F12 والقيمة الأولى TRUE يعنى استخدام خاصة هايدر والقيمة الثانية FALSE يعنى أن الكود سيحضر لك البيانات الموجودة في النطاق F10:F12 وليس F9:F12 يعنى أن الكود سيتجاهل رأس النطاق f9 سوال ثاني : ماذا لو كانت القيمة الأولى تساوي FALSE , ما معنى هذا ؟ الجواب عندما تكون القيمة الأولى FALSE فإن القيمة الثانية لن تعمل سواء كانت FALSE أو true وهذا يعنى أنك لا تريد استخدام الخاصية هيدر ولا تريد البيانات الموجودة في رأس النطاق الخلاصة سيكون لدينا ثلاث حالات للكود 1) True , True 2) True , False 3) False , True = False , False حالة واحدة

هذه للاستاذ رضوان

السلام علكيم ورحمه الله وبركاته اسعد الله صباحكم واوقاتكم بكل خير لدى برنامج عمل مشترك برنامج ادارة حلقات تحفيظ القران الكريم . ويعمل حاليا فى احد المساجد شبكة على 8 أجهزة بفضل الله البرنامج مجانى ومفتوح المصدر . المطلوب : كما قال صلى الله عليه وسلم الدال على الخير كفاعله فقط انشر وشارك الاجر للتواصل وطلب البرنامج - البرنامج والتركيب والدعم والتحديثات مجانية - التواصل عبر - الفيس بوك www.facebook.com/acchosam - الواتساب 0535154420

الواجهة الرئيسية رمز الحماية : 0 (صفر) ملف اكسيل لادارة الخزينة DownLoad

أخوتي الافاضل أبدأ بإذن الله معكم في هذا الموضوع مشروعا لفتح بوابة أخزن من خلالها كل ما يسمح به وقتي من مقتطفات وتلميحات وأفكار وتطبيقات بعضها ضروري وبعضها مفيد وبعضها قد يلزم وبعضها نحتاج لفهمه عند استخدامه و منها يلزم فهمه كيما نتقن استخدامة. فهي سلسلة تتوالى فيها الافكار من هنا وهناك ، نسأل الله العون للاستمرار وندعو الله ان تعم الفائدة وتتحقق. وأنتهج هنا التبسيط والشرح والتصوير وطرح الادوات والطرق واترك لابداعاتكم استخدامها حين تلزم. وبالتشاور مع الاخوة كان الرأي أن تكون هذه المشاركة بوابة للمشاركات التي تتعلق بالفكرة وتحوي عناوين وروابط المشاركات المعنية . مع شكري وتقديري لاخوتي ابو خليل و منتصر الانسي لتشجيعهم لي ومساهماتهم الطيبة . والله من وراء القصد ﴿وَمَا أَسْأَلُكُمْ عَلَيْهِ مِنْ أَجْرٍ إِنْ أَجْرِيَ إِلَّا عَلَى رَبِّ الْعَالَمِينَ﴾ الشعراء/109. ولكنني اطمع بصالح دعائكم بظهر الغيب كيف نستخدم التقويم ( لإختيار وتحديد التاريخ ) http://www.officena.net/ib/index.php?showtopic=36090 التحكم بالوقت ( الساعة) http://www.officena.net/ib/index.php?showtopic=36110 تغيير النموذج الفرعي ضمن نموذج رئيسي http://www.officena.net/ib/index.php?showtopic=36111 إضافة "إشعار حقوق الطبع والنشر" إلى قاعدة البيانات http://www.officena.net/ib/index.php?showtopic=36112 محرك بحث http://www.officena.net/ib/index.php?showtopic=35575 تطبيق نسخة تجريبية http://www.officena.net/ib/index.php?showtopic=34558 مربعات تحرير ذكية لاختيار التاريخ http://www.officena.net/ib/index.php?showtopic=36124 سجل تجميعي أفقي Horizontal Field طلب الأخ outnet وإبداع منتصر الآنسي http://www.officena.net/ib/index.php?showtopic=36136 ترصيد الاجازات The vacations Balance http://www.officena.net/ib/index.php?showtopic=36147 بحث و تحليل في قيم مركبة لحقل طلب نارت لبزو و تطبيق منتصر الآنسي http://www.officena.net/ib/index.php?showtopic=36156 .......

بسم الله والصلاة والسلام على رسول الله وعلى آله وصحبه ومن والاه السلام عليكم ورحمة الله وبركاته... أقول لولدي الذي يحن ويتلهف قلبي لرؤيته ولو للحظة والذي أكرمني الله بحفيدة منه حيث لم أشهد عرسه ...أسماها { إسراء} الحمد لله الذي رزقك زوجة ولوداً، وجعلك ممن تخلفه ذريته. فكم من رجل عقيم لا يولد له ولد، وكم من امرأة كذلك. فهذه نعمة عظيمة { الْمَالُ وَالْبَنُونَ زِينَةُ الْحَيَاةِ الدُّنْيَا } [الكهف:46] ولهذا فاستقبل عطية الله عز وجل بفرح وسرور وشكر وحمد، ذكراً كانت هذه العطية أم أنثى. فيكفي أنها سليمة الأعضاء، مكتملة النمو، خالية من الأمراض، فتبارك الله أحسن الخالقين الذي وهب وأعطى بمنه وفضله: {يَهَبُ لِمَنْ يَشَاءُ إِنَاثاً وَيَهَبُ لِمَن يَشَاءُ الذُّكُورَ (49) أَوْ يُزَوِّجُهُمْ ذُكْرَاناً وَإِنَاثاً وَيَجْعَلُ مَن يَشَاءُ عَقِيماً} [الشورى:50،49] وقد وُلد للنبي r أربع من البنات - رضي الله عنهن - ولما ولد لإمام أهل السنة أحمد بن حنبل رحمه الله بنت قال: {الأنبياء آباء البنات، وقد جاء في البنات ما علمت } أي من فضل تربيتهن القيام عليهن. وكُره البنات من عادات الجاهلية؛ أما في الإسلام فإنهن من الأبواب الموصلة إلى الجنة قال : r {من عال جاريتين حتى تبلغا، جاء يوم القيامة أنا وهو هكذا} { وضم أصبعيه} [رواه مسلم]. بورك لك في الموهوبة وشكرت الواهب وبلغت رشدها ورزقت برها وأرجو الله أن يجعل ذرياتكم صالحين ناصحين بارين والسلام عليكم ورحمة الله وبركاته

بسم الله الرحمن الرحيم هذا الموضوع مخصص لنشر الردود والاستفسارات عن دروس الفيجوال بيسك6 والاكسيل علي الرابط التالي http://www.officena.net/ib/topic/65629-سلسلة-دروس-الفيجوال-بيسك-6-والاكسيل-من-علي-مصطبة-ياسر-العربي/ مع تحياتي ياسر العربي

السلام عليكم ورحمة الله وبركاته إخواني الكرام وأحبابي في الله أقدم لكم فورم يقوم بتوليد أرقام عشوائية ما بين رقمين .. الجديد في الموضوع أن الأرقام التي يتم تحديدها كأرقام البداية والنهاية يحتفظ بها في ملف الريجستري ..أي إذا أغلقت المصنف وفتحته مرة أخرى ستجد آخر أرقام تم تسجيلها ومحتفظ بها على سبيل المثال ..أول ما تشغل الفورم يكون رق البداية 1 ورقم النهاية 100 .. قم بتغيير الرقم 1 إلى 5 والرقم 100 إلى 200 ... ونفذ الكود واخرج من الفورم وأغلق المصنف وأعد فتحة مرة أخرى .. ستجد أن الأرقام الأخيرة 5 ، 200 تم الاحتفاظ بهما أرجو أن ينال الفورم إعجابكم الكود التالي يوضع في موديول Public Const PUPNAME As String = "Officena Forums" Public Const APPNAME As String = "Random Number Generator" Sub GetRandomNumber() With UserForm1 .StartUpPosition = 0 .Left = Application.Left + (0.5 * Application.Width) - (0.5 * .Width) .Top = Application.Top + (0.5 * Application.Height) - (0.5 * .Height) .Show End With End Sub والكود التالي يوضع في حدث الفورم Option Explicit Dim Stopped As Boolean Dim Cnt As Long Private Sub UserForm_Initialize() On Error Resume Next Label1.BackColor = ActiveWorkbook.Theme.ThemeColorScheme(msoThemeDark2).RGB On Error GoTo 0 Me.Caption = APPNAME If GetSetting(PUPNAME, "Settings", "RememberSettings", True) Then TextBox1.Text = GetSetting(PUPNAME, APPNAME, "TextBox1", 1) TextBox2.Text = GetSetting(PUPNAME, APPNAME, "TextBox2", 100) End If End Sub Private Sub StartStopButton_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) Call Start_Or_Stop End Sub Private Sub StartStopButton_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) '"S" Keys Starts And Stops If KeyCode = 83 Then Call Start_Or_Stop End Sub Private Sub Start_Or_Stop() Dim Low As Double, Hi As Double If StartStopButton.Caption = "Start" Then LabelNumberCount.Visible = False 'Validate Low And High Values If Not IsNumeric(TextBox1.Text) Then MsgBox "Non-Numeric Starting Value.", vbInformation, APPNAME With TextBox1 .SelStart = 0 .SelLength = Len(.Text) .SetFocus End With Exit Sub End If If Not IsNumeric(TextBox2.Text) Then MsgBox "Non-Numeric Ending Value.", vbInformation, APPNAME With TextBox2 .SelStart = 0 .SelLength = Len(.Text) .SetFocus End With Exit Sub End If 'Make Sure They Aren't In The Wrong Order Low = Application.Min(Val(TextBox1.Text), Val(TextBox2.Text)) Hi = Application.Max(Val(TextBox1.Text), Val(TextBox2.Text)) 'Adjust Font Size If Necessary Select Case Application.Max(Len(TextBox1.Text), Len(TextBox2.Text)) Case Is < 5: Label1.Font.Size = 72 Case 5: Label1.Font.Size = 60 Case 6: Label1.Font.Size = 48 Case Else: Label1.Font.Size = 36 End Select StartStopButton.Caption = "Stop" Stopped = False Randomize Cnt = 0 Do Until Stopped Label1.Caption = Int((Hi - Low + 1) * Rnd + Low) Cnt = Cnt + 1 DoEvents Loop Else Stopped = True StartStopButton.Caption = "Start" With LabelNumberCount .Visible = True .Caption = Cnt End With End If End Sub Private Sub CancelButton_Click() Stopped = True Unload Me End Sub Private Sub UserForm_Terminate() Stopped = True SaveSetting PUPNAME, APPNAME, "TextBox1", TextBox1.Text SaveSetting PUPNAME, APPNAME, "TextBox2", TextBox2.Text On Error GoTo 0 Unload Me End Sub Private Sub PUPHelpButton_Click() MsgBox "Random Number Generator By YasserKhalil From Officena", 64 End Sub وإليكم الملف المرفق مطبق فيه الأكواد ... عسى أن ينال إعجابكم تقبلوا تحياتي حمل الملف من هنا

لقد ارهقتني أخي الحبيب عبد العزيز ..لأنني بصراحة في قمة التعب ..كان ممكن تأجلها لبكرة ، لكن مقدرش أقولك لا أو أرفض لك طلب أبدا أبدا لأنك حبيبي في الله ، ويعلم الله مقدار معزتك في قلبي إليك التعديل في أسطر الإعلان #If VBA7 Then Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare PtrSafe Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As LongPtr, ByVal nIndex As Long) As Long Private Declare PtrSafe Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As LongPtr, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long #Else Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" ( ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" ( ByVal hWnd As Long, ByVal nIndex As Long) As Long Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" ( ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long #End If والسلام عليكم ورحمة الله وبركاته

السّلام عليكم و رحمة الله و بركاته أستاذي القدير " ياسر خليل " لم أجرّب يوما في حياتي فكرة 64 بايت ..و لذلك أجهل تماما كيفية التعامل مع أكوادها لو تكرمت قبل النّوم بتعديل الكود و لك مني أجمل دعاء قبل نومك و أحلامك الجميلة بحول الله إحتراماتي

السّلام عليكم و رحمة الله و بركاته أخي الكريم و أستاذي الفاضل " حراثي تواتي " قبل 19 يونيو 2014 .. تاريخ إنضمامي لبيت الثاني منتديات " أوفيسنا" كنت أجهل قبل هذا التاريخ معنى كلمة خليّة إكسل .. و كانت أمنيتي الوحيدة معرفة كيفية عمل أرقام الجلوس أوّل شخص فكّرت به بمنتديات الجلفة التعليمية هو " أنتَ " أستاذي المحترم ..و ارسلت لك رسالة بعنوان " نداء إستغاثة " وفعلاً عملتَ معي كل ما يمكن عمله جزاك الله خيرًا و زادها بموازين حسناتك خيرك سابق سيّدي المحترم بالنسبة للملف .. هل غيّرت بجزء من اجزائه لو سمحت ؟؟ لأنّ الملف يشتغل عندي بطريقة ممتازة .. و باسمك أيضًا .. سأرى الموضوع بإذن الله أو يراه أحد الأساتذة الكرام من يمكنه منهم المساعدة فائق إحتراماتي

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

شكراً لك استاذ سعيد .. يبدو ان دالة Dlookup غير ممكنه التنفيذ مع المرفقات :(

اعجبتنى الفكرة جدا جدا استاذ سعيد صواب

اخي الفاضل محاولة بعد ادن الفاضل حفظه الله ورعاه ياسر خليل ابو البراء كل ما عملته زيادة المدي في صفحة sapas المخفية الى 1000 اسم اتمنى ان يكون طلبك تعديل على معادلة وكود الاستاذ سليم حسب متطلبات العمل.rar

اخي العزيز والاستاذ القدير عبد العزيز البسكري تحية طيبة عمل جميل ورائع

حياك الله اخي الكريم اعتقد بإستخدام dlookup انه غير ممكن .. ولكن بالإستعلام ممكن كما في المرفق في حال كنت مظطر لاستخدام dlookup بإمكانك وضع المرفق في نموذج فرعي وبعد ظهور نتائج البحث في النموذج الرئيسي تستعلم عن المرفق بناء على تلك البيانات او النتائج ومن بحثي البسيط وجدت ان هذه الفكرة هي المستخدمة في مثل هذه الحالات بالتوفيق DlookUpImage.rar

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

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

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

بل أنت لها أخي الحبيب عبد العزيز حاول وافشل يكفيك شرف المحاولة ، لا تيأس أبداً قم بعمل بحث ولو مبسط عن الأمر حتى تتكون لديك فكرة عن الموضوع ، اكتب باللغة العربية حفظ في الريجستري باستخدام excel vba لعل وعسى تجد مبتغاك الموضوع محتاج لبحث طويل والوقت لا يسعني في حقيقة الأمر وبعدين مفيش إحراج في التعلم ، فأنا ما زلت أتعلم وكل يوم اتعلم شيء جديد العلم ليس له حدوووووووووووووووووووووووووووووووووووووووووووووود

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

. وعليكم السلام هل يمكنك انزال المرفق من هنا: لأنه نفس البرنامج المرفق ، جرب واخبرني لوسمحت جعفر

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

وعليكم السلام احنا رجعنا للبداية . واليك المثال: . والنتيجة مقارنة مع الجدول: جعفر 00.test.mdb.zip

أساتذتى وإخوتى الكرام .. الملف التالى حول احد الدوال البحثيه .. Find.. الملف يتناول شرح وسائط الدالة .. اتمنى ان يمثل إضافه بسيطة .. المرفقـــات Find_2.rar

استاذى الحبيب ابوالبراء انا متعود على دروسك بالشتاء لكن بالصيف جديده دى براك الله فيك وزادك من علمه وفضله اتمنى تذهب بالشرح الى ابعد مدى لان هذا الموضوع من المواضيع الهامه بال VbA تقبل تحياتى اخوك و تلميذك / حسام

بعد اذن استاذى ابوحنين استاذى الكريم عبدالرحمن بدوى فى هذا الكود Private Sub TextBox1_Change() With Me .Height = 125 .Move ActiveCell.Left + 16, ActiveCell.Top + .Height: End With If TextBox1 = "" Then UserForm1.Height = 25.5 With Sheets("ÈíÇäÇÊ") LR = .Cells(.Rows.Count, "A").End(xlUp).Row: ListBox1.Clear: For j = 2 To LR If .Cells(j, 2) Like TextBox1 & "*" Then UserForm1.Height = 125: ListBox1.AddItem .Cells(j, 2) End If: Next: End With If TextBox1 = "" Or ListBox1.ListCount = 0 Then Me.Height = 25.5 If TextBox1 <> "" And ListBox1.ListCount = 1 Then ListBox1.ListIndex = 0: ActiveCell = ListBox1.Text: ActiveCell.Columns.EntireColumn.AutoFit Unload Me End If End Sub احذف الاربع اسطر التاليه If TextBox1 <> "" And ListBox1.ListCount = 1 Then ListBox1.ListIndex = 0: ActiveCell = ListBox1.Text: ActiveCell.Columns.EntireColumn.AutoFit Unload Me End If تقبل تحياتى

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

السلام عليكم تفضل أخى Sub TARHIL() Dim Sh As String Dim i As Integer Dim AA As Integer '====================================================== Application.ScreenUpdating = False Sheets("ناجح").Range("A12:X1000").ClearContents Sheets("دور ثان").Range("A12:X1000").ClearContents Sheets("راسب").Range("A12:X1000").ClearContents '====================================================== For i = 12 To Cells(10000, "Y").End(xlUp).Row Sh = Cells(i, "Y").Value AA = Sheets(Sh).Cells(10000, 2).End(xlUp).Row + 1 If AA < 12 Then AA = 12 On Error Resume Next Range(Cells(i, "B"), Cells(i, "X")).Copy Sheets(Sh).Range("B" & AA).PasteSpecial xlPasteValues Application.CutCopyMode = False Sheets(Sh).Cells(AA, "A").Value = Sheets(Sh).Cells(AA, "A").Row - 11 Next i Application.ScreenUpdating = True MsgBox "تم الفصل بنجاح" End Sub الترحيل1.rar

ماذا تقول عن الصفوف من 5 الى 11

وعليكم السلام ورحمة الله أهلا بالإخوة الكرام.. بخطوتان يتم ذلك بمشيئة الله.. • نضع هذا الكود في النموذج والمبين أنه يوضع في حدث عند مفتاح لأسفل: Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyF And Shift = acCtrlMask Then 'Catch Ctrl+F KeyCode = 0 'Suppress keypress End If End Sub • ونختار من قائمة حدث - في آخرها - مفتاح المعاينة ونبدله لـ نعم

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

غير السطر في الكود إلى GetData "D:\Update\Reference.xlsx", "Material", "F9:F12", Sheets("Weight").Range("A1"), True, True أخي الكريم أبو عيد بارك الله فيك وجزيت خيراً على الكود الجميل .. اطلعت على المصنف المسمى Reference ووجدت أن النطاق F10:F12 وليس F9:F12 .. والغريب أن F9 خلية مدمجة وعند تنفيذ الكود تأتي النتيجة بالنص F1 في أول خلية A1 ..من أين أتت هذه القيمة النصية F1؟؟ ولما غيرت النطاق إلى F10:F12 لم تأتي النتائج منضبطة !؟؟

بعد اذن اخي ياسر جرب هذا الملف ورقة للماليين salim.rar

وعليكم السلام أخي محمد المرفق فيه الملفات التالية ، إلا البرنامج رقم 1 ، فانه موجود في قاعدة البيانات ، والرجاء اخراجه الى نفس مجلد البرنامج: . النموذج: . وكود النموذج: Option Compare Database Dim PDFTKString As String Dim file1 As String Dim oFile As String Dim Path1 As String Dim Path2 As String ' Private Sub cmd_Make_Password_to_this_pdf_Click() 'pdftk source.pdf output destination.pdf user_pw password Path1 = Application.CurrentProject.Path & "\" file1 = Path1 & Me.pdf_Name oFile = Path1 & "abc.pdf" PDFTKString = Chr(34) & Path1 & "PDFTK" & Chr(34) & Space(1) & _ Chr(34) & file1 & Chr(34) & Space(1) & _ " output " & Chr(34) & oFile & Chr(34) & _ " user_pw " & Space(1) & Me.pdf_Password Shell PDFTKString End Sub Private Sub cmd_Open_pdf_with_Password_Click() On Error GoTo err_cmd_Open_pdf_with_Password_Click Path1 = Application.CurrentProject.Path & "\" Path2 = fReturnTempDir 'windows Temp Directory file1 = Path1 & Me.pdf_Name oFile = Path2 & "abc.pdf" PDFTKString = Chr(34) & Path1 & "PDFTK" & Chr(34) & Space(1) & _ Chr(34) & file1 & Chr(34) & Space(1) & _ "input_pw" & Space(1) & Me.pdf_Password & _ " output " & Chr(34) & oFile & Chr(34) 'Debug.Print PDFTKString Kill fReturnTempDir & "abc.pdf" Shell PDFTKString PauseTime = 1 ' Set duration. start = Timer ' Set start time. Do While Timer < start + PauseTime DoEvents ' Yield to other processes. Loop Application.FollowHyperlink Path2 & "abc.pdf" Exit Sub err_cmd_Open_pdf_with_Password_Click: If Err.Number = 53 Then 'no file Resume Next Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub Private Sub Form_Close() On Error GoTo err_Form_Close Kill Path2 & "abc.pdf" Exit Sub err_Form_Close: If Err.Number = 53 Then 'no file Resume Next Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub . البرنامج علشان يعرض ملف الـ pdf ، فانه يعمل نسخة منه بدون كلمة سر ، ويحفظها في مجلد الوندوز المؤقت باسم abc.pdf ، وعند اغلاق النموذج ، فانه يحذفه جعفر zpdf.zip

وجزيت خيراً بمثل ما دعوت لي أخي الحبيب الزباري وإن شاء الله نتمهل قليلاً لحين يستوعب الأعضاء الجزء الأول لكي تكون الحلقات الجديدة مفهومة .. لما العجلة؟! (ليه ميكونش موتوسيكل أو أتوبيس ) خلينا نتناول الموضوع بروية لكي نستفيد منه أقصى استفادة ممكنة تقبل وافر تقديري واحترامي

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

السلام عليكم البارحة وانا نص نايم لقيت هذا الملف وبه حل http://www.accessmvp.com/KDSnell/DownloadFiles/FixCascadingCombos.zip جعفر

السلام عليكم ورحمة الله تعالى وبركاته اعتذر للتأخير كنت اصلى العشاء اليكم المرفق المرفق بتنسيق اوفيس 2003 ولاخى الحبيب محمد سلامة تجد هذا الكود فى حدث عند الفتح لنموذج باسم frmSplash هذا هو الكود المسئول عن عدم فتح قاعدة البيانات لو تغير اسمها يجب كتابة اسم القاعدة بالامتداد وعدد الحروف وتحسب من ضمنها المسافات ان وجدت تقبل تحياتى بكل الحب والود On Error Resume Next If CurrentProject.Name = "ActualDaysCalcult.mde" And Len(CurrentProject.Name) = 21 Then Else MsgBox "It changed the name of the program should not change the name to be able to run it" & vbCrLf _ & "So the program will be shut down until the correct name of the program or contact the author using .." DoCmd.Quit End If ActualDaysCalcult-unprotected.zip ActualDaysCalcult-unprotected.rar ActualDaysCalcult-unprotected.zip استغفر الله العلى العظيم من كل ذنب كبير والله ما انسانى الا الشيطان ادين بالفضل لاستاذى الجليل ابو خليل فى هذا الموضوع وهو اولا لانه يتحملنى كثيرا وتقريبا اول من بدأت التعلم منه وكان اول من تحملنى حين بدات الاستاذ الفنان والساحر العبقرى الاستاذ جعفر استخدمت كود اظهار اسم اليوم بناء على التاريخ من خلال مرفق تفضل على به الاخ الحبيب ومعلمى الاستاذ ابا عمر بارك الله فيه اخفاء اطار الاكسس نهائيا بتلك الطربقة كل الشكر والتقدير لكل اساتذتى اعلم انى اخطأت فى حقكم انى استندت الى ما تعلمته منكم ونسيت ان انسب الفضل اليكم بعد رب العباد اعتذر لكم جميعا والله لم اقصد

تفضل تحياتي progressbar.rar

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

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