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

Private Declare Function SetDefaultPrinter Lib "winspool.drv" Alias "SetDefaultPrinterA" (ByVal pszPrinter As String) As Long Private Sub zerprint_Click() SetDefaultPrinter ("ZDesigner GC420d") DoCmd.OpenReport "reportName", acViewNormal End Sub علما انه يمكنك استبدال اسم الطابعة الظاهر باسم مربع النص استبدل reportName باسم التقرير عندك

الاستعلام هو عبارة عن جدول بل يتفوق عليه بالحسابات ، وكانوا سابقا ينصحوننا بعدم وضع الحقول المحسوبة في الجدول ، والآن اصبح الحقل المحسوب أساسي في الجدول . فإن اردت ان تثبت الحقل داخل الجدول فيجب نقل نتيجة المعادلة من حقل الاستعلام الى حقل الجدول انظر تم التعديل على النموذج والتحايل على القيمة ، بحيث وضعنا زرا ينقل القيمة من الاستعلام الى الجدول db1.mdb

تفضل أستاذى الكريم لك ما طلبت 2.xls

تفضل ... قمت بتغيير الاسماء العربية للملفات B&R.rar

كل من XLSM و XLSB هي في الواقع ملفات مضغوطة يمكنك فتحها في برامج مثل WinRAR. عادةً ، يستخدم تنسيق XLSM XLM لتخزين البيانات ، بينما يتضمن XLSB مصنفًا ثنائيًا يساعد بشكل كبير في تقليل حجم الملف فإذا كان لديك ملف Excel كبير ومعقد ، فمن الأفضل تخزينه بتنسيق XLSB. مزايا XLSB عبر XLSM: سيقوم Excel بتشغيل الملف بشكل أسرع حجم أصغر بكثير بالمقارنة مع تنسيق XLSM عيوب تنسيق XLSB: غير متوافق مع برامج Microsoft الأخرى مثل Openoffice ، إلخ

أخي ابا زاهر رغم تعدد الاسئلة ... ساجيب عليك لنأخذ الموضوع ببساطة خلف حدث عند النقر ضع هذه التعريفات Dim strSourcePath As String Dim strBackupPath As String Dim strBackupFile As String Dim fso As FileSystemObject ثم ننتقل للتحديدات : مصدر النسخ ( موقع القاعدة الحالية و اسم القاعدة ) او مسار القاعدة على D كاملا مع اسم القاعدة strSourcePath = CurrentProject.Path & "\Data.accdb" مكان تخزين النسخة الاحتياطية ( موقع القاعدة الحالية و اسم المجلد ) او مسار القاعدة على D كاملا مع اسم المجلد strBackupPath = CurrentProject.Path & "\Backup" & "\" اسم قاعدة النسخة الاحتياطية ( مع امتداد الملف ) strBackupFile = "DataX.accdb" ثم نقوم بعملية النسخ Set fso = New FileSystemObject fso.CopyFile strSourcePath, strBackupPath & strBackupFile, True Set fso = Nothing ثم نشعر المستخدم بنجاح و انتهاء عملية النسخ MsgBox "Backup Complete. Backup file is located at: " & Chr(13) & strBackupFileName, vbInformation, " BackUp BackEnd" ليصبح الكود Dim strSourcePath As String Dim strBackupPath As String Dim strBackupFile As String Dim fso As FileSystemObject strSourcePath = CurrentProject.Path & "\Data.accdb" strBackupPath = CurrentProject.Path & "\Backup" & "\" strBackupFile = "DataX.accdb" Set fso = New FileSystemObject fso.CopyFile strSourcePath, strBackupPath & strBackupFile, True Set fso = Nothing MsgBox "Backup Complete. Backup file is located at: " & Chr(13) & strBackupFileName, vbInformation, " BackUp BackEnd" جرب طبق ونتابع ... بعد التطبيق أرسل لي الكود الذي نفذت به العملية على قاعدتك و الذي يحمل الاسماء و المسارات .... لنستكمل بقية الطلبات و الله من وراء القصد

بارك الله فيك استاذ شريف ولإثراء الموضوع هذا كود اخر: Sub Delete_Rows() Dim cell As Range Dim delRange As Range Application.ScreenUpdating = False For Each cell In ThisWorkbook.Sheets(2).Range("A2:G" & Sheets(2).Cells(Rows.Count, 1).End(xlUp).Row) If cell.DisplayFormat.Interior.ColorIndex = 3 Then If delRange Is Nothing Then Set delRange = cell Else Set delRange = Union(delRange, cell) End If Next cell If Not delRange Is Nothing Then delRange.EntireRow.Delete Application.ScreenUpdating = True End Sub

الحمد لله ..

أهلا وسهلا بك أخ كريم فى منتدانا بين اخوانك تفضل هذا الملف به ما طلبت Book1.xlsx

بسم الله الرحمن الرحيم السلام عليكم و رحمة الله الخميس‏ 4‏/7‏/1433هـ الموافق ‏24‏/5‏/2012م متابعة المواعيد المهمة وما تم تنفيذة مع البحث و تسجيل ارقام الهواتف و الإيميلات مع امكانية البحث عن أي معلومة به المميزات يجب تمكين وحدات الماكرو اولا 1- المواعيد استخدام التاريخين الهجري و الميلادي معا في عمود التاريخ يتم التريب و الفرز حسب التاريخ تلقائيا عند الدخول اضافة صفوف جديدة مع دوالها تلقائيا عند الحاجة تلوين القديم باللون الزهري تلوين المواعيد الحالية بلأخضر الفاتح تلوين المواعيد البعيدة وهي بعد 7 ايام من تاريخ اليوم او اكثر باللون الأصفر تسجيل كلمة منتهي امام كل موعد تم انجازة ليتم اخفائة من القائمة رسالة تحذيرية للتاريخ قبل تاريخ اليوم او بعد سنة من تاريخ اليوم امكانية البحث عن أي معلومة قديمة او جديدة - بحث سريع بجزء من أي كلمة 2- الهاتف يتم الترتيب او الفرز حسب اسماء العملاء اضافة صفوف جديدة مع دوالها تلقائيا عند الحاجة امكانية البحث عن أي جزء من اسم او رقم او بريد الكتروني - بحث سريع تلوين نتائج البحث باللون الأصفر التنقل استخدم زر صورة الهاتف او صورة التقويم اعلى يمين الشاشة للتنقل كلمة المرور لحماية الأوراق ="0" كلمة المرور لحماية محرر الفيجوال بيزك ="0" آمل ان يكون به الفائدة للجميع السكرتيرالخاصv2012.rar

زرنامة تدرج كل التواريخ بين تاريخين (من اختيارك) مفصلة حسب كل شهر في عامود مع حرية حذف يوم او يومين او ثلاثة ايام (من اختيارك ايضاً) او عدم حذف اي يوم Date_without_days_by_colums_and_month2.xlsm

تفضل مع بعض اللمسات 3.rar

اعمل زر تصدير الى pdf 1-عمل مايكرو تحت الزر يعني عند النقر انشاء مايكرو اكتب في المايكرو exportfixedformat اختار النموذج او الجدول المطلوب تصديره كتقرير واختار تشغيل عند الحفظ (نعم) لكي يقوم بفتح الملف بعد التصدير ولكن يجب اضافة الزر في التقرير ولكن من خصائص التقرير بعد الضغط على المفتاح بوضع التصميم طريقة العرض اختار شاشة فقط وليس دوما لكي يتم اخفاء المفتاح بعد التصدير في ملف pdf انا اسف استخدم الموبايل في الرد ولكن بأقرب وقت سوف ارفق لحضرتك مثال

اسف عالتاخير اخي العزيز يوجد شرح على يوتيوب برنامج vpn client متوفر تستطيع تحميله وكيفية عمل شبكة vpn client بس ما تقدر تعملها الا تشتري public ip حتى تستطيع انشاء الشبكة

الاخ ابو زاهر الرساله تفيد في اعادة ربط الداول بالمكان اللي فيه الداتا

الف الف شكر اخى الفاضل بارك الله فيك بالفعل حل رائع تسلم الايادى يا رب

أضف المرجع 'Microsoft Scripting Runtime' قم بتغيير اسم قاعدة البيانات و حدد المسارات

تفضل جرب هذا 01.xls

أو ممكن ان يكون الشرط كما يلي If Weekday(Me.txtDate) = 6 Then Cancel = (MsgBox("The Date is on a " & _ Format(Me.txtDate, "dddd") & vbCrLf & vbCrLf & _ "Do you want to keep this date?" _ , vbYesNo + vbQuestion) = vbNo) If Cancel Then Me.txtDate.ForeColor = vbRed End If

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

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

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

وعليكم السلام تفضل Sub delete_redcells() With ActiveSheet If .AutoFilterMode Then .AutoFilterMode = False End If End With Range("A1").Select Selection.CurrentRegion.Select Selection.AutoFilter Field:=1, Criteria1:=RGB(255, 0 _ , 0), Operator:=xlFilterCellColor Range("a1").CurrentRegion.Select Selection.Offset(1).SpecialCells(xlCellTypeVisible).EntireRow.Delete With ActiveSheet If .AutoFilterMode Then .AutoFilterMode = False End If End With End Sub

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

اشكرك استاذي روعه ولكن ما بيشتغل للقاعده المقسمه

بعد أذن الاستاذ عبدالرحمن تفضل ::بالتوفيق:: توحيد الكمية1.rar

بعد اذن اخي علي =SUM(IF(ISNUMBER(--(MID($C2,ROW(INDIRECT("1:"&LEN($C2))),1))),--(MID($C2,ROW(INDIRECT("1:"&LEN($C2))),1)),"")) المجموع في معادلة واحدة (Ctlr+Shift+Enter) الملف مرفق SALIM_SUM.xlsx

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

أخي ابا زاهر خذ ما تحتاجه من هذا المثال Ka1.zip

يواسطة الدالة Vlookup لا ضرورة لادراج 8 معادلات يكفي معادلة في C16 واحدة وسحبها يساراٌ =VLOOKUP($F$13,'قاعدة البيانات'!$B$7:$I$500,COLUMNS($A$1:A1),0)

بارك الله لك في علمك

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

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

هذا التحديث الاخير ملف 2003 التقويم الهجري_2003.rar هذا التحديث الاخير ملف 2016 التقويم الهجري_2016.rar

أخى الكريم سلام الله عليكم تعديل طفيف لاستدعاء البيانات وطباعتها فى صفحة واحدة مهما كان العدد 2 كشف مرتبات.rar

إخوانى الأفاضل ( المدرسون منكم ) إليكم : برنامج كنترول لمدرسة اعدادية بمصر تم تصميمه منذ فترة وكنت وقتها أتمنى ان أجد صدى وتقدير لجهودى .. إلا أن جهل مديرى المدارس لدينا بالحاسب الآلى وبيروقراطية النظام الذى يفضل العمل اليدوى الشاق ( على أساس اللى تعرفه أحسن من اللى متعرفهوش ) حال دون استكمال وتعميم البرنامج ، وبالصدفة المحضة وأنا أبحث فى أعمالى القديمة وجدت هذا التطبيق وأردت مشاركتى له إياكم علماً بأنه يحتوى على الكثير من الأفكار المفيدة والأكواد الاحترافية التى سوف تعجبكم. باختصار .. هو برنامج مفتوح لكل من يريد الاستفادة منه والتطوير فيه بشرط ألآ يبخل علينا بملاحظاته أو أفكاره البناءة .. مع خالص التحية Prep.rar