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

السلام عليكم ورحمة الله وبركاته ,, الاخوة الكرام كل عام وحضراتكم بخير موضوعنا اليوم جديد وقد يهم الكثير من مستخدمى الاكسس , من المعروف ان الاكسيس يمكنه ضغط ملف او فك ضغطه باستخدام اوامر الشل الخاصة بالويندوز كما لو انك استخدمت الخاصية الموجودة فى الصورة وفى رأيى لا يمكن الاستفادة منها بهذا الشكل وبالتالى قمت بتصميم برنامج .Net يتكامل مع برنامج الاكسيس ويقوم بالتالى : 1- ضغط ملف / مجلد وحمايته برقم سرى . 2-فك ضغط ملف مضغوط برقم سرى . نبذة عن منطق التصميم والبرمجة : كان من الطبيعى انى اقوم بانشاء جدول او اكثر فى الاكسيس لحفظ البيانات المطلوبة ومسارات الملفات واقوم بقراءتها بالبرنامج الجديد ولكن فكرت فى طريقة اكثر احترافية وهى عمل المطلوب بالكامل فى الاكسيس وتمرير المسارات والارقام السرية من متغيرات VBA الى Arguments الخاصة بالبرنامج الجديد وكانت النتيجة جيدة بفضل الله . يتم فتح البرنامج عن طريق هذا الكود : Call Shell("""" & MyApp & """ """ & Operation & """ """ & strSource & """ """ & strDest & """ """ & zipPwd & """", 1) حيث يتم تمرير نوع العملية اولا وذلك لأن البرنامج يقوم ب3 وظائف , وبالتالى نوع العملية تقوم بتوجيه البرنامج للوظيفة المطلوبة ثم بالمسارات والباسوردات الخاصة بها سواء ضغط او فك ضغط يقوم بترجمتها بمعرفته . انظر للامثلة المرفقة : مثال لضغط ملف وحمايته بباسورد بضغطة زر وبكل سهولة وسرعة : مثال لفك ضغط الملف بالمثال السابق : ملحوظة : بالنسبة للامتداد الذى يتعامل معه البرنامج هو zip فقط وبالتالى لن يصلح لباقى الصيغ . اعذرونى ملحقتش اعمل تصميم جذاب ولكن المهم الفكرة . بالاضافة الى ان اكواد VBA يمكن اختصارها وتحسينها بواسطة الاساتذة . مرفق برنامج الاكسيس + البرنامج المساعد .. طبعا الموضوع متعوب عليه المطلوب فقط دعوة فى هذه الايام المباركة جزاكم الله خير . فى انتظار آرائكم ومقترحاتكم بعد التجربة .. دمتم بخير Zip-UnZip Access Amr Ashraf.rar

يمكنك استعمال هذه المعادلة في الخلية D3 =IF(OR(A3=0,A3=""),"",C3-22) بالتوفيق

استخدم الدالة COUNTIF =COUNTIF(C3:C12;"ح") =COUNTIF(C3:C12;"غ")

@kanory تفضل يا استاذنا تم حل مشكلة اللغة العربية Zip-UnZip Access Amr Ashraf .rar

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

يمكنك استعمال هذه المعادلة في الخلية D12 =IFERROR(IF(INDEX(D$6:D$10,MATCH($C12,$C$6:$C$10,0))="",CHAR(251),IF(COUNTIF($C12:C12,CHAR(252))>=$L12,CHAR(251),CHAR(252))),"") مع تغيير نوع الخط في هذه الخلية إلى wingdings لتظهر علامة الخطأ والصواب مع سحب المعادلة يمينا ثم أسفل بالتوفيق

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

السلام عليكم ورحمة الله تم إضافة زر للفورم خاص لحفظ كشوف الصفوف المختارة في الفورم بصيغة PDF باسم "الصف المختار"... أرجو أن يفي الغرض المطلوب... كشوفات الطلبة.xlsm

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

وهذه مشاركة وايضا حسب فهمي .... ههههههه ماذا لو استخدمنا وحدة نمطية تسهل على المبرمج اعادة وكتابة هذه الاكواد كلما احتاج اليها .... وايضا منعنا التكرار .... Public Function MoveData(FromTableName As String, ToTableName As String, Optional AttachmentFieldName As String = "No Attachment", Optional IgnoreAttachment As Boolean = True) On Error GoTo HandleErr Dim rstFromTable As DAO.Recordset Dim rstToTable As DAO.Recordset Dim fldFrom As DAO.Field2 Dim rstToAttach As DAO.Recordset2 Dim fldAttach As DAO.Field2 Dim rstFromAttach As DAO.Recordset2 Err.Clear Set rstFromTable = CurrentDb.OpenRecordset(FromTableName) Set rstToTable = CurrentDb.OpenRecordset(ToTableName) If (rstFromTable.BOF And rstFromTable.EOF) Then Exit Function End If Do While rstFromTable.EOF = False rstToTable.AddNew ' main add record For Each fldFrom In rstFromTable.Fields If fldFrom.IsComplex = False Then rstToTable(fldFrom.Name).Value = fldFrom.Value Else If AttachmentFieldName <> "No Attachment" Then rstToTable.Update rstToTable.Bookmark = rstToTable.LastModified rstToTable.Edit Set rstFromAttach = fldFrom.Value Set rstToAttach = rstToTable(fldFrom.Name).Value If rstFromAttach.RecordCount > 0 Then If IgnoreAttachment = False Then Do While rstFromAttach.EOF = False rstToAttach.AddNew For Each fldAttach In rstFromAttach.Fields If (IsNull(fldAttach.Value) = False) And (fldAttach.Name <> "FileType") Then rstToAttach(fldAttach.Name).Value = fldAttach.Value End If Next 'fldAttach rstToAttach.Update rstFromAttach.MoveNext Loop End If End If End If End If Next fldFrom rstToTable.Update rstFromTable.MoveNext Loop rstFromTable.Close rstToTable.Close ExitHere: Set rstFromTable = Nothing Set rstToTable = Nothing Set rstFromAttach = Nothing Set rstToAttach = Nothing Exit Function HandleErr: Select Case Err.Number Case 53 Err.Clear Resume Next Case 91 Err.Clear Resume Next Case 3020 Err.Clear Resume Next Case 3021 Err.Clear Resume Next Case 3022 Err.Clear Resume Next Case Else Debug.Print "Error " & Err.Number & ": " & Err.Description End Select Resume ExitHere End Function الحاق البيانات.accdb

شكرا يا بطل .... هدية مقبولة ومشكورة

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

اشكرك استاذي الفاضل اسرعة تفاعلك ... جعله الله في ميزان حسناتك ..

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

هذه دلالة انك وجدت الاجابة ........ وعادة توضع لافضل اجابة لك ولسؤالك ..... لان من يرى علامة الصح فلن يدخل الموضوع ( على اساس انك وجدت ضالتك ) فلن تحصل على الاجابات أخي الكريم ...

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

اشجعك انك تتعلم اى لغة .net ولو بتدور على الاسهل هيبقى VB.NET وفى الآخر النتيجة واحدة بس هتبقى اسهل لأى مبرمج اكسيس انه يدخلها ويفهمها بسرعة , بالنسبة لى حبيت التجربة الجديدة وسينتاكس مختلف عشان ابتدى من الصفر والحمدلله التجربة جيدة . مبدأياً انا مازلت مبتدئ معنديش اللى يؤهلنى انى اقدم نصايح او دروس فيها حالياً , وخاصة ان على النت فيه عمالقة تشرح من الصفر للاحتراف . النقطة الثانية الوقت والجهد المبذول فى موضوع واحد كبير ما بالك لو هتبدأ سلسلة من المواضيع ومع ظروف عملى اعتقد لن استطيع 😊 , بس اعتقد لو فيه حركة فى القسم اظن انى ممكن اشارك بمعلومة او فكرة او تطبيق كما افعل فى الاكسيس

جميلة وممتعة واذا دمجناها مع افكارنا فى الاكسيس النتيجة بتكون خرافية أيش رايك تشاركنا تجربتك في قسم ال #C بالمنتدى ؟ أنا أيضا عندي توجه لتعلم هذي اللغة 😊 لعل الله يحيي القسم على يديك 😁👌🏻

وعليكم السلام اللهم امين .. كل عام وانتم بخير استاذ محمد اللهم اوعدك بحج بيته الحرام

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

والله تمام - جزيت خيرا يرحم والديك

جزاك الله كل خير جعل الله هذا العمل فى ميزان حسناتك

تمت الإجابة عن شيء مثل هذا بالتوفيق

جميعا بإذن الله

تصدير ( تقرير / تقارير ) الى PDF المميزات 1- مرونة فى اختيار مسار تصدير الـ ( تقرير / تقارير ) 2- اختيار تقرير واحد من القائمة أو أكثر لتصديرهم الى مسار محدد 3-اختيار الاجراء بعد التصدير استعراض او عدم ملف الـ PDF 4-الاكواد فى روتين عام يمكن استدعائها من اى مكان 5-امكانية اضافة طباعة التقارير مع او بدل كود التصدير الى PDF وهذه ميزة كتابة الكود فى روتين عام داخل موديول Export Multi Reports.mdb

بارك الله فيك يا بشمهندس .. لكن الشفافية لم تظهر عندي

التلميح داخل مربع النص مع علامة مائية فى حالة كان مربع النص فارغ ويختفيان بمجرد التركيز داخل مربه النص او الكتابة ... ToolTip.mdb

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

اعتذر أستاذ محمد على التأخر لإنشغالى تفضل الملف بعد التعديل جلب بيانت بدلالة فرز او تحديد.xls

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

اسف على التأخير تفضل تم التعديل http://www.mediafire.com/file/odau1u3qu9o28ul/برنامج+حضور+وانصراف+ومرتبات.xlsm

وعليكم السلام مرحبا بكى فى المنتدى هناك العديد من البرامج منها: المرتبات.xls رواتب5.mdb المرتبات والاجور.xls وكذلك هناك برنامج مرتبات مرفوع على هذا الموقع https://www.mediafire.com/#myfiles

جرب أيضا هذا مناوبات.xlsx

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

تفضل الملف بعد التعديل مع شرح المعادلة معادلة جلب رقم الجلوس من صفحة مسودة إلى الصفحتين الأخريتين مثال على الجدول الأول بداية الجدول من عمود رقم الجلوس إلى أخر عمود به النتيجة (ناجح أم راسب) {=IF(مسودة!$G$8:$AM$37="","",IF(ISERROR(INDEX(مسودة!$C$8:$AU$37, هذه الجزئية من المعادلة ثابتة فى كل الجداول حتى لا ترحل البيانات إلا بعد تعبئة الجدول الأول من صفحة مسودة ومعناها إذا كان الجدول الأول فارغاً فلا تنقل درجات أى جدول إلى الصفحتين الأخرتين SMALL(IF((مسودة!$AU$8:$AU$37="ناجح"),ROW(مسودة!$C$8:$AU$37)- عمود النتيجة وطبعا فى صفحة الراسبون لابد أن يكتب بها راسب بدل من ناجح MIN(ROW(مسودة!$C$8:$AU$37))+1,""),ROW(A1)),COLUMN(A1))),"",INDEX(مسودة! وهذا يعنى أن يكون أول صف وأول عمود وفى رقم الجلوس اللى بعده لابد أن يتغير إلى A2 وذلك لتلاشى الفراغات بين السطور فى الصفحة المرحل إليها $C$8:$AU$37,SMALL(IF((مسودة!$AU$8:$AU$37="ناجح"),ROW(مسودة!$C$8:$AU$37 　 )-MIN(ROW(مسودة!$C$8:$AU$37))+1,""),ROW(A1)),COLUMN(A1))))} 　 هذا القوس فى بداية ونهاية المعادلة لأنها معادلة صفيف فلابد من هذان القوسين وبدونهما لا تعمل المعادلة مطلوب ترحيل الناجحين والراسبين.rar

تفضل هذا هو اسم البرنامج Nitro PDf Pro 8_32Bit

ممكن يكون كده موظف يعمل ورديات مختلفة - المطلوب اظهار الاوفر تايم.xlsx

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

تفضل أخى خالد البحث.xls

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

أستخدم ويندوز 7 وأوفيس 2007

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

تم الحل من قبل excel.rar

ممكن تجرب هذا ترحيل بيانات عدة خلايا الى ورقة اخرى.xlsx

جرب هذا وبعد هذه العملية يمكن نقل أى أسماء مباشرة من الإكسيل إلى التليفون مهما كان عددها نقل اسماء من الاكسل الى الهاتف.rar

جرب هذا excel.rar

من فضلك ارسل الملف واشرح طلبك وفكرتك عليه حتى يتسن للزملاء مساعدتك؟

بارك الله لك أخي عماد بالفعل ما تقوله صحيح وربما اشتبه علي الأمر حيث توجد هذه الميزة في vb و vb.net ولكن بالتحقق من نوع بيانات المتغير c1 من خلال كتابة الدالة typename(c1) يظهر لنا أنه بالفعل تم الإعلان عن المتغير وحجز مكان في الذاكرة له ولكن يبقى نوع بياناته فارغاً empty فإذا تم تعيين قيمة له وكانت هذه القيمة تاريخ يظهر لنا أن نوع بيانات هذا المتغير date .............. فالفرق الجوهري بين المتغير الأول والثالث في السطر هو: أن المتغير الأول والثاني يمكن تغيير نوع بياناتهم حسب القيمة التي يتم تعيينها لهم أما المتغير الثالث يثبت على نوع البيانات التي تم تعريفه بها وممكن أن يرى أحدنا هذه بأنها ميزة في تغير نوع بيانات المتغير. .......... أنا شخصياً أعتمد على الطريقة الثانية وهي الأصح dim c1 as date,c2 as date,c3 as date وفي الأخير أتمنى أن نكون قد استفدنا من هذا الجزء وبانتظار ملاحظتكم بخصوص الهديتين

بالنسبة للنماذج وكيفية إنشائها سيتم بإذن الله تناولها في دورة vba يمكنك متابعتها على هذا الرابط http://www.officena.net/ib/index.php?showtopic=39323

أخي الكريم الأنيس أولا : أدعوك لاستعمال أحدث نسخة من الأوفيس 2010 لأن بها من المميزات الكثير ولا تقل (اللي نعرفه أحسن من اللي منعرفوش) ثانياً : لقراءة ملفات أوفيس 2007 وما فوقها على أوفيس 2003 وما قبله يجب تثبيت برنامج وهذا رابطه http://www.microsoft.com/download/en/details.aspx?displaylang=en&id=3 اضغط على كلمة download في الصفحة باللون الأحمر على يمين الصفحة سيتم تحميل ملف اسمه FileFormatConverters.exe بعد التحميل قم بتثبيت هذا الملف ستجد كل شيء على ما يرام