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

السلام عليكم ورحمة الله وبركاته موضوع منقول من احد المواقع الاجنبية ولكنه بكل صراحة تحفة اردت ان يستفيد منها كل اعضاء منتدانا الحبيب تحياتي Progressmeters.rar

وهي الطريقة التي استخدمها في اعمالي وحدة نمطية وكود للربط داخل النموذج انسخ الكود التالي والصقه في وحدة نمطية عامة Public Function CheckLinks(ByVal strDBPassword As String) As Boolean On Error GoTo CheckLinksErr Dim tdf As TableDef Dim strNewMDB As String Dim fd As FileDialog For Each tdf In CurrentDb.TableDefs If UCase(Left(tdf.Name, 6)) <> "COMPAS" Then If Len(tdf.Connect) > 0 And tdf.Fields.Count = 0 Then If Len(strNewMDB) = 0 Then Call MsgBox("مطلوب قم بتحديده واختياره (اسم قاعدة الجداول لديك) ملف البيانات", vbCritical) Set fd = Application.FileDialog(msoFileDialogFilePicker) With fd .AllowMultiSelect = False .InitialFileName = CurrentDBFolder() .Filters.ADD "Access Database File (*.mdb)", "*.mdb", 1 .TITLE = "Select Back-End Data File" .ButtonName = "Link Tables" If .Show = False Then Exit Function Else strNewMDB = .SelectedItems(1) End If End With End If If (IsNull(strDBPassword) = True) Or (strDBPassword = "") Then tdf.Connect = ";DATABASE=" & strNewMDB Else tdf.Connect = ";DATABASE=" & strNewMDB & ";PWD=" & strDBPassword End If tdf.RefreshLink End If End If Next tdf CheckLinks = True CheckLinksDone: Exit Function CheckLinksErr: MsgBox "Error #" & err.Number & ": " & err.Description, vbCritical Resume CheckLinksDone End Function Public Function CurrentDBFolder() As String Dim strPath As String strPath = CurrentDb.Name Do While Right$(strPath, 1) <> "\" strPath = Left$(strPath, Len(strPath) - 1) Loop CurrentDBFolder = strPath End Function ثم الصق الكود التالي في حدث التحميل لنموذج البداية On Error Resume Next If CheckLinks("") = False Then Call Quit End If Dim tdfs As DAO.TableDefs Dim tdf As TableDef Dim sSourceDB As String Dim sBackupDB As String Dim backDBName As String Set tdfs = CurrentDb.TableDefs Set tdf = tdfs(tdfs.Count - 1) sSourceDB = Right(tdf.Connect, Len(tdf.Connect) - 10) backDBName = Dir(Mid(tdf.Connect, 11)) sBackupDB = Mid(tdf.Connect, 11, Len(tdf.Connect) - (Len(backDBName) + 10)) ' وفي المثال تطبيق للمقال ملحوظة : اذا لم يعمل المثال على الوجه الأكمل انظر في المكتبات link_be.rar

جزاكم الله خيرًا و بارك الله فيكم وفي أولادكم ..فعلاً نحن إخوة في الله .. نِعْمَ الإخوَة و الأُخُوّة .. كم من شخص و أستاذ فاضل قدير تمامًا مثل حضرتك و حضرة الأستاذ طلعت محمد حسن يكتسبون حبّك لهم في الله و يكتسبون ودّك و احترامك الخلص من أعماق القلب و أنت عمرك ما شفتهم ..تحية شكر لمنتدانا (أوفيسنا) الرائع الذي قرّب بين الكثير من الاخوة .. تحيّة شكر وتقدير احترام وعرفان بالجميل لك أستاذي حمادة عمر .. تحية شكر و تقدير واحترام لم لأستاذي طلعت محمد حسن .. بارك الله فيكما وزادكما من فضله

سلام شباب ايش رايكم ، حل بدون كود طريقتين ، اختر اللي يعجبك 1. في النموذج ، للحقل A1 فقط: 2. في الجدول ، للحقل A2 فقط: 3. التجربة (انقر على الصورة حتى ترى تتحرك): 4. والنتيجة في الجدول: جعفر 38.Small_Letters.mdb.zip

شكرا لكم تم تعديل العنوان

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

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

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

السلام عليكم اخي الكريم شاهد المرفق هل تقصد هكذا علما بان الكود قد اعده الاستاذ الخزامي في موضوع سابق ندعوا الله له بالخير والتوفيق. الفورم 1.rar

جزاكم الله خيرا انظر الى الكود فى هذا المرفق قمت بعمل هذا الكود بعد ما قمت بالاطلاع على المثال السابق جزاكم الله خيرا test.rar

تفضل أخي الكريم المثال لتحويل الحروف من كبيرة إلى صغيرة والعكس المثال منقول من الأستاذ haitsahel UCaseLCase-20.rar

السلام عليكم اخي الكريم شاهد المرفق لعله يكون المطلوب items.rar

السلام عليكم ورحمة الله وبركاته إخواني الكرام .. حبيت أصبح على أجمل منتدى وأحلى أعضاء بحيلة بسيطة علها تكون مفيدة وجديدة إن شاء الله المطلوب نسخ البيانات من الخلايا الظاهرة فقط ولصقها في الخلايا الظاهرة فقط ، أي تخطي الخلايا المخفية أو الصفوف المخفية Hidden Rows أثناء عملية النسخ وأثناء عملية اللصق أترككم مع الفيديو عله ينال إعجابكم ومرفق الملف الذي تم الشرح عليه ، للتدريب لمن أراد أن يتعلم ويتدرب ويحسن مهاراته الإكسيلية تقبلوا تحياتي أخوكم أبو البراء Paste Skipping Hidden Rows.xlsm

السلام عليكم ورحمة الله وبركاته اليكم دالة عد الاسماء بدون تكرار اعداد/ محمد الريفى لاتنسونا بصالح دعاؤكم {=SUM(1/COUNTIF(A1:A10;A1:A10))} عد الاسماء بدون تكرار.rar

السلام عليكم ورحمة الله وبركاته وده كمان ملف فيه اكثر من شريط تقدم البيانات اختر منهم وعدل فيهم كيفما شئت تحياتي testawy.rar

يبدو أخي محمد أن خاصية اللصق الخاص غير مدعمة في أوفيس 2003 مع وجود الدمج ..! لأن هذا الجزء استبدلته بتحايل آخر أدى الغرض ..

السلام عليكم ورحمة الله وبركاته يشرفني مروركم الكريم استاذ سعيد واستاذ محمد وهذا هو موقع الملف http://www.andypope.info/vba/pmeter.htm

فقط قم بعمل حقل في جدول يأخذ قيمة اللون بدلا من المتغير vclr

استاذ ياسر حركة جامدة جداً جزاك الله كل خير

طبعاً استاذ ياسر لانهضم الحقوق الفكريه لكل معلم.......... فمن يتحصل على الاجابة المناسبة لطبيعة عمله ............. فهذا اقل شي يقدمة للشخص الذي تعب معه وهو يحاول ايجاد له الحل المناسب فهل بعد كل هذا العناء ولايستحق كلمة شكر ..... بل العكس يكون كل الشكر لمن وفر وقته للمساعدة يقول النبي صلى الله عليه وسلم (لا ﻳَﺸْﻜُﺮُ ﺍﻟﻠَّﻪَ ﻣَﻦْ ﻟَﺎ ﻳَﺸْﻜُﺮُ ﺍﻟﻨَّﺎﺱَ) ﺇﺳْﻨَﺎﺩٌ ﺻَﺤِﻴﺢٌ ﺭَﻭَﺍﻩُ ﺃَﺣْﻤَﺪُ ﻭَﺃَﺑُﻮ ﺩَﺍﻭُﺩ ﻭَﺍﻟﺘِّﺮْﻣِﺬِﻱُّ

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

المثال المرفق يحتوى على عدد 2 نموذج كل منهما يخص تغيير لون انموذج وذلك بعدة الوان مسبقة التحضير من المبرمج بهذه الطريقة المصم يهتم بالناحية الجمالية ويرضى جميع اذواق المستخدمين بتعدد اختيارات الالوان فقط يغير المستخدم لون واجهة البرنامج للون المفضل له كما يحلوا له النموذج الاول A توجد مربعات بالالوان المتاحه اسفل يمين النموذج فقط اختر اللون الذى تريده فيتغير لون الفورم النموذج الثانى B اسفل اليمين تجد كلمة تغير لون النموذج فتختفى الكلمة ويظهر بدلا منها مربع تحرير وسرد يحتوى على الاوان المتاحه للتبديل فيما بينها لتغيير لون النموذج فكرة لذيذه جدا اتمنى تعجبكم تغيير لون النموذج كما يريد المستخدم.rar

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

الأخت الفاضلة ليلى أهلا بك في المنتدى ونورتي المنتدى بين إخوانك . يرجى أولاً الإطلاع على هذا الرابط لتعرفي القواعد الأساسية في المنتدى http://www.officena.net/ib/index.php?showtopic=60147 تقبلي تحياتي

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

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

ضع أولا تنسيق مربع نص البحث الى تاريخ افضل ومن نافذة الخصائص كما ان تسمية الحقول او العناصر بأسماء محفوظة غير سليم مثل date واليك الكود التالي لزر الامر Private Sub أمر29_Click() Me.Filter = "[date]=#" & بحث_بالتاريخ & "#" Me.FilterOn = True End Sub بالتوفيق

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

على العموم هذه محاولة لفصل البيانات قمت بجلب البينات ل 2030 و 2010 من هذا الموضوع http://www.officena....showtopic=60194 ووضعتهم في المرفق الذي بالأسفل ملاحظات : 1/الأعمدة الحمراء هي البيانات الموجودة في السابق 2/يجب قبل إجراء عملية الفصل أن يكون العمود A به بيانات 3/ باقي الملف الرئيسي لم أعمل به شيئا لأني ما فهمت طلبك . ما تريد أن تعمل فيه ؟ الكود مع الشرح بالمرفقات ملفين في اوفسينا#1.rar

شفت بقى إننا أحسن من الأجانب (من غير تغيير الامتداد تم حل المشكلة بفضل المولى عزوجل)

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

السلام عليكم ورحمة الله وبركاته هناك خيارين لسيادتكم 1- كما فعلت بالفورم الخاص بك اي انك تختار نوع حقل الصور في الجدول OlE Object وفي الفورم تضعط مرتان علي مكان الصورة فيظهر لسيادتكم قوائم برنامج ال Paint وهنا يمكنك رسم الصورة او إختيار قائمة Edit ثم أمر Past from لتحدد مسار الصورة فتظهر امام سيادتكم وهكذا مع كل سجلات هذا الجدول او الفورم 2- ان يكون لدى سياتكم برنامج office 2007 لتحفظ بيانات قاعدتك عليه من خلال أمر Save as Access office 2007 وفي هذه الحالة سوف تختار من خيارات نوع البيانات في الحقول امر Attachment وهو امر رائع إذ يمكنك ان تسجل لكل شخص في حقل واحد صورته وسيرته الذاتية وماتريد من ملفات عنه لقد حولت قاعدة سيادتكم إلى office 2007 أرجوا اي يكون هذا إجابة للشق الأول من سؤالكم أما الشق الثاني حول تسجيل مرات الطباعة تلقائيا فأنا لا أعرف عنه شيء وجزاكم الله خيرا بطاقة.rar