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

اعرض الملف مساعدات شهر رمضان هدية للاعضاء ولجان توزيع المساعات فى شهر رمضان لو احد اعضاء اللجان اراد التعديل او اضافة تقرير - انا مستعد برنامج للجان المساعدات لشهر رمضان.rar طبعا قبل فتح البرنامج خفف امان الماكرو فى الاكسس ليعمل بصورة جيدة برنامج للجان المساعدات لشهر رمضان.rar صاحب الملف بحار الاكسس تمت الاضافه 29 أبر, 2016 الاقسام قسم الأكسيس

والله انك ملك الله يجعلك من اهل الجنه ويجعل والديك فالجنه يامعلم يا ابن الرجال لك مني ان ادعوا لك في الحرم المكي الشريف في ظهر الغيب والله انك ملك الله يجعلك من اهل الجنه ويجعل والديك فالجنه يامعلم يا ابن الرجال لك مني ان ادعوا لك في الحرم المكي الشريف في ظهر الغيب

المثال 3.rar

حتى لا يتشعب الموضوع سنبقى في مجال نسخ الملفات والمجلدات داخل اكسس وسأعدل العنوان حتى يكون اشمل في الدلالة بالنسبة لنسخ الملفات من مكان لآخر فاكسس لديه اداة جاهزة وهي filecopy مثال : FileCopy "C:\filename", "C:\filename" اما نسخ المجلدات فالصق هذه في المكان المناسب حيث يمكنك جعلها في النموذج او في وحدة نمطية عامة ونقل حدث الزر الى النموذج Private Type SHFILEOPSTRUCT hwnd As Long wFunc As Long pFrom As String pTo As String fFlags As Integer fAnyOperationsAborted As Long hNameMappings As Long lpszProgressTitle As String ' only used if FOF_SIMPLEPROGRESS End Type Private Const FOF_MULTIDESTFILES = &H1 Private Const FOF_CONFIRMMOUSE = &H2 Private Const FOF_SILENT = &H4 Private Const FOF_RENAMEONCOLLISION = &H8 Private Const FOF_NOCONFIRMATION = &H10 Private Const FOF_WANTMAPPINGHANDLE = &H20 Private Const FOF_CREATEPROGRESSDLG = &H0 Private Const FOF_ALLOWUNDO = &H40 Private Const FOF_FILESONLY = &H80 Private Const FOF_SIMPLEPROGRESS = &H100 Private Const FOF_NOCONFIRMMKDIR = &H200 Private Const FO_MOVE = 1 Private Const FO_COPY = 2 Private Const FO_DELETE = 3 Private Const FO_RENAME = 4 Private Declare Function SHFileOperation Lib "shell32.dll" (lpFileOp As SHFILEOPSTRUCT) As Long Public Function CopyFolder(ByVal strSource As String, ByVal strDest As String) As Boolean '========================================================================================== Dim varFOS As SHFILEOPSTRUCT With varFOS .fFlags = FOF_NOCONFIRMATION Or FOF_SILENT Or FOF_NOCONFIRMMKDIR .wFunc = FO_COPY .pFrom = strSource .pTo = strDest End With Call SHFileOperation(varFOS) CopyFolder = (varFOS.fAnyOperationsAborted = 0) End Function Private Sub Command1_Click() CopyFolder "d:\foldeName", "d:\foldeName" End Sub

هدية للمنتدى ولحضرتك لو عجبك اضغط like يرنامج مساعدات لشهر رمضان.rar

اتفضل التعديل ملحوظة ضع الملف على :d مباشراً طلب منح إجازة.rar

السلام عليكم البرنامج من خلال موقع محاسبة دوت نت رابط البرنامج http://infotechaccountants.com/forums/topic/106133-%D8%A8%D8%B1%D9%86%D8%A7%D9%85%D8%AC-%D8%A7%D8%AF%D8%A7%D8%B1%D8%A9-%D8%A7%D9%84%D8%AA%D8%AF%D9%82%D9%8A%D9%82-%D8%A7%D9%84%D8%AF%D8%A7%D8%AE%D9%84%D9%8A-%D9%86%D8%B3%D8%AE%D8%A9-%D8%AA%D8%AC%D8%B1%D9%8A%D8%A8%D9%8A%D8%A9/

اتفضل المعادلة بالوقت Am & PM اواعجب حضرت اضغط اعجاب المثال.rar

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

السلام عليكم ممكن كود يمكن من خلاله ان تظهر في العمود المنظم (الساعات والدقائق و الثواني واجزاء الثواني ) ولكم الامر مع الشكروالتقدير

السلام عليكم و رحمة الله و بركاته الاخوة الاحباب بالمنتدى أقدم اليكم قاعدة بيانات للموارد البشرية HR الاصدار الثاني كلمة المرور : 111 و أسأل الله العلى العظيم أن ينفعكم بهذا العمل و الله الموفق والمستعان و السلام عليكم ورحمة الله و بركاته HR 3 with listbox.rar HR for Windows 8 FADILA.rar

بسم الله تحياتى لاعضاء المنتدى المحترم مرفق برنامج مخزنى ( معادلات و اكواد ) يعطى ارصدة الاصناف _ استخراج رصيد حركة الصنف بين تاريخين _ كود رقم الصنف تلقائى تم ادخال كود طباعه و كود بحث عند ادخال حركة الصنف و استخراج رصيد (من اكواد الاستاذ / عبدالله باقشير ) برنامج مخزن اوفيسنا 2020 _ بحث و طباعه.rar

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

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

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

وعليكم السلام ورحمة الله وبركاته اذا كنت تعنى إضافة كلمة بن في حقل مستقل بالجدول بعد إضافة الاسم فالصق هذا الكود في حدث بعد التحديث لحقل الاسم Private Sub FristName_AfterUpdate() if len(FristName & "") > 0 then Ebn = "بن" else Ebn = "" End if End Sub

السلام عليكم ورحمة الله وبركاته أخي الحبيب "بن علية حاجي" واخي الكريم ياسر خليل أبو البراء "بارك الله فيكم وجزاكم الله خيراً

أخي العزيز هاني لما لا تقوم بوضع المعادلة التي تفضل بها العلامة الكبير بن علية في كود وتحول المعادلة إلى قيمة بالشكل التالي Sub Test() Dim Rng As Range Set Rng = Sheet1.Range("DL11:EP" & Sheet1.Cells(Rows.Count, "CC").End(xlUp).Row) With Rng .Formula = "=IF(CC11=0,"""",INDEX($C:$C,MATCH(CC11,$B:$B,0)))" .Value = .Value End With End Sub

السلام عليكم ورحمة الله لست أدري إن كنت قد فهمت المطلوب جيدا، هذه محاولة في الملف المرفق... بن علية Test Data.rar

جزاك الله خيرا

السلام عليكم ورحمة الله أخي الكريم، أعتقد جزما أن المشكل هو في الكود التالي: Private Sub Workbook_BeforeClose(Cancel As Boolean) If Not CloseMode Then Cancel = True MsgBox "Please Use The button To Close This File" ThisWorkbook.Save End If On Error Resume Next Application.OnTime RunWhen, "SaveAndClose", , False On Error GoTo 0 End Sub قم بحذفه (أو إلغائه) وبإذن الله سيعمل كود الغلق الآلي جيدا... أخوك بن علية

نعم استطيع

استبدل الكود بهذا Sub ta7wil_ila_sec() Application.ScreenUpdating = False lrj = Cells(Rows.Count, "j").End(3).Row If lrj < 6 Then lrj = 6 For i = 6 To lrj If Cells(i, "j") <> "" Then x = CDate(Range("j" & i)) h = Hour(x): m = Minute(x): s = Second(x) Cells(i, "j").Offset(0, 1) = h * 60 + m Cells(i, "j").Offset(0, 2) = h * 3600 + m * 60 + s Cells(i, "j").Offset(0, 1).Resize(1, 2).NumberFormat = "general" End If Next Application.ScreenUpdating = True End Sub

انسخ هذه المعادلة الى j2 واسحب نزولاً =IF(ISNA(MATCH($J2,$E$2:$E$669,0)),"",F2)

السلام عليكم بالبحث داخل المنتدى خرجت ببعض النتائج : هنا ، وهنا ، وهنا ، وهنا

السلام عليكم ورحمة الله اكتب هذه المعادلة فى الخلية C8 =SUMIF(الدفعات!$N$2:$W$4;J2;الدفعات!$C$2:$M$4)

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

السلام عليكم جرب أخي المرفق m111.rar

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

وجدت هذه الروابط للسؤال في أماكن آخرى http://gis.stackexchange.com/questions/26467/how-to-embed-map-into-access-database http://arabteam2000-forum.com/index.php?/topic/276451-%D8%AE%D8%B1%D8%A7%D8%A6%D8%B7-%D8%AC%D9%88%D8%AC%D9%84-%D9%81%D9%8A-%D8%A7%D9%83%D8%B3%D8%B3-2007/ http://www.utteraccess.com/wiki/index.php/Route_Google_Map_From_Access http://www.utteraccess.com/wiki/index.php/Google_Map_Utility

و عليكم السلام و رحمة الله و بركاته ... تفضل ... للعلم الكود لا يعتمد على مربع الساعة ... المثال 2.rar

و عليكم السلام و رحمة الله و بركاته ... برنامج جميل و افكارة حلوة ... و نحن بانتظار النسخة النهائية ...

المخازن برنامج يتكون البرنامج من اربع اجزاء الجزء الاول تعريف وحدات الاصناف تعريف المجموعة او المخازن تعريف الاصناف لكلمخزن او مجموعة تسطيع اضافة 100 مجموعة او مخزن واضافة 6000 صنف الجزء الثانى - ادخال الحركة على الاصناف من ( الرصيد الافتتاحى _ اضاف – صرف – مرتجع ) ممكن تعديل الحركة الجزء الثالث - تسطيع عمل تقاير من البرنامج 1 – تقرير يومى عن الحركات الى تمت خلال اليوم . 2 – تقرير حركة خلال فترة . 3 – تقرير كارت صنف . 4 – تقرير مجموعة او مخزن خلال فترة . 5 – تقرير عن الاصناف الراكدة التى لم يتم اجراء حركة عليها خلال فترة من الايام . 6- بحث سريع عن الصنف . تسطيع حفظ جميع التقرير بصيغة PDF الجزء الرابع - معرفة حالة المخزن فى حالة وجود صنف واحد تحت حد الطلب يتم تغير لون حالة المخزن الى الاحمر تسطيع طباعة كل الاصناف او الاصناف تحت حد الطلب بفضل الله ثم بفضل جميع اعضاء المنتدى البرنامج من تصميمى لا يوجد باسورد البرنامج مفتوح المصدر فى وجود مشاكل فى البرنامج او اقتراحات لتعديل اوتطوير البرنامج يتم طرحه من خلال المنتدى مخازن.xlsm

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

السّلام عليكم و رحمة الله و بركاته جرّب هذا الملف أخي الكريم لعلّه يفي بالغرض إن شاء الله تحياتي التاريخ الميلادي و الهجري.rar

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

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

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

السلام عليكم جرب التالي RightHeader = Sheets("Sheet1").Range("A1").Value & Chr(13) & Sheets("Sheet1").Range("A2").Value تحياتي

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