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

السلام عليكم ورحمة الله وبركاته إخواني الأعزاء في المنتدى الأغر أقدم لكم حيلة بسيطة جداً .. ألا وهي : نسخ صورة لنطاق وعمل ارتباط للصورة بهذا النطاق يعني عندنا نطاق بيانات ، عايزين ناخد صورة من هذه البيانات وفي نفس الوقت تكون الصورة مرتبطة بأي تغير يحدث في النطاق الشرح داخل الفيديو على هذا الرابط مرفق لكم الملف لتقوموا بالتطبيق عليه ، دا للي مهتم بالتطبيق ! كان معكم أخوكم أبو البراء في حلقة Take Away دمتم في رعاية الله Test.rar

الاخ مختار شكرا لكلاماتك اضافة بسيطة نتمنى تعجبك Enter Password to run a Macro.rar

بسم الله الرحمان الرحيم اقدم لكم اليوم طريقة تحويل تحويل ملف الاكسل الى exe ثم تغيير الايقونة ثم Setup نبدأ بالتحويل الى ملف تنفيذي تساعد هته العملية في حماية تشفيير الملف ويسعب بعدها اختراقه والعبث فيه لنقوم بهته العملية نحتاج الى برنامج يدعى XLtoEXE وهذا رابط تحميلة http://cpap.com.br/orlando/download2/XLtoEXE.zip البرنامج لا يحتاج لى تثبيت نقوم مباشرتا بفك الضغط عن الملف وفتح البرنامج اولا نختار الملف المراد تحويله كما في الصورة ثانيا الاعدادات الازمة في البرنامج ثم بعدها سيطلب منك مكان الحفظ اختر المكان ثم موافق ستلاحظ ان الملف حول الى ملف تنفيذي ولتتأكد من ذالك اعمل كليك يمين ثم خصائص وشاهد نوع الملف بعد فتحكم للملف اجري اي تغيرات و وافق على الحفط عند الخروج ستلاحظ ان الملف قد انشأ Backup اي انه صنع نسخة احتاطية لنفسه لاتقم بحذفها ملاحظة : يجب ان تكون تسمية الملف بالانجليزية لان التحويل لن ينجح اذا كانت بالعربية الأن نأتي الى تغيير ايقونت الملف الذي حولناه للقيام بذلك نحتاج الى برنامج Exe Icon Changer وهذا رابط تحميله http://www.mediafire...con_Changer.rar ملاحظة بخصوص برنامج تغيير الايقونات عليك بالغاء الحماية عند تثبيته بعد التثبيت اذهب الى التسجيل وادخل السريال المرفق مع الملف الذي حملته وهذا فيديو يشرح طريقة استعمال البرنامج http://www.youtube.c...h?v=NtZfTFVmGWc نأتي الى المرحلة الاخيرة وهي تحويل الملف الى برنامج Setup الفائدة من هذا البرنامج هي جمع جميع الاضافات التي تريدها مع الاكسل كالصور مثلا في ملف واحد وكذالك حماية الملف من الحذف حيث انه سيصبح لدينا راكورس للملف وهذا يحدث بعد التثبيت طبعا هذا رابط البرنامج http://www.jrsoftware.org/isdl.php بعد تثبيتك الى البرنامج نأتي الان الى طريقة العمل به وللقيام بذالك تابع الصور بالتوالي بعد الانتهاء ستجد عملك داخل الملف الذي اخترته على شكل Setup كأي برنامج عادي ولتشاهد ملف اجريت عليه كل ماسبق شاهد موضوعي برنامج خاص لاصحاب محلات بيع الموبيلات (شوقي ربيع) أكون الان قد انتهيت من شرحي المتواضع هذا ارجومن الله ان اكون قد وفقت فيه وأن تكون فائدته عامة على الجميع مع تحيات أخوكم شوقي ربيع

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

بسم الله الرحمان الرحيم السلام عليكم بعد غيابي الطويل عن هدا المنتدى العزيز لاسباب ........؟ اتركوها على الله لم اشاء ان اعود خالى اليدين لدى ارتأيت ان اضع بين ايديكم هدا الملف المتواضع وهو عبارة عن برنامج خاص لاصحاب محلات بيع الموبيلات كنت قد صممته لاحد اصدقائي بدون اطالة الباسوورد 123 لاغلاق الفورم وفتح ملف الاكسل Alt + b الباسوورد 111118 ارجو ان ينال اعجابكم تحياتي لكم Archivé Mobile V 1.001.rar الملف الاصلي بدون عمله ملف تنفيذي

السلام عليكم ورحمة الله وبركاته هدفيه للعاملين بالكنترولات المدرسيه ...... _ سجلات اعمال الكنترول كامله ... _ توزيع الملاحظين اليا على اللجان .... مع تحياتى ....

السلام عليكم ورحمة الله وبركاته إخواني الكرام .. قد يكون موضوع الكسر موضوع شائك وفيه خلاف ، ولكن ربما يكون مفيد لصاحب العمل نفسه ، حيث أنه معرض لنسيان الباسورد الذي تم وضعه على محرر الأكواد .. الموضوع مميز لأنه يقوم بكسر الحماية بدون برامج على الإطلاق ..وبدون AddIns وبدون الاستعانة بأية برامج مجانية أو مدفوعة !! كسر محرر الأكواد بالأكواد نفسها (قنبلة الموسم) وعلى رأي المثل : علمته رمي السهام فلما اشتد ساعده رماني .. الكود قليل الأصل !! محفظش الجميل للبيئة اللي هو منها ، لأنه كسر بيئة محرر الأكواد !!! Sub HackVBA() Open "C:\Users\Future\Desktop\Test.xls" For Binary As #1 Put #1, 1, Replace(Input(LOF(1), 1), "DPB=", "DPX=", , 1) Close Workbooks.Open "C:\Users\Future\Desktop\Test.xls" End Sub المطلوب فقط أن تغير مسار الملف المراد كسره داخل الكود ، والمسار يوضع بين أقواس تنصيص .. أترككم مع الفيديو عله ينال إعجابكم وتستفيدوا منه إن شاء المولى .. ولا تنسونا من اللايكات على اليوتيوب !!!!! ....أكرر اللايكات على اليوتيوب ..فضلاً لا أمراً تقبلوا تحيات أخوكم أبو البراء

السلام عليكم 1. من المعروف ان تنسيق النص في مربع القائمة ListBox هو من اليسار الى اليمين ، مشكلة كانت تصادفني دائما ، وهو تنسيق القيم في مربع القائمة لتكون من اليمين الى اليسار بالنسبة للغة العربية (طريقة تغيير مربع القائمة الى مربع تحرير ونص ، ثم عمل التنسيق عليه من اليمين الى اليسار ، ثم اعادته الى مربع قائمة لا يعمل معظم الوقت) ، موقع http://www.lebans.com والذي يحتوي على مالذ وطاب عنده طريقه لهذا التنسيق: http://www.lebans.com/justicombo.htm كذلك. 2. ونفس المشكلة مع موضوع تنسيق الشجرة TreeView من اليمين الى اليسار. النتيجة: و وطريقة العمل ، يوضع هذا الكود في وحدة نمطية: Option Compare Database Option Explicit #If VBA7 And Win64 Then '64 bits Public Declare PtrSafe Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As LongPtr, ByVal nIndex As Long) As Long Public Declare PtrSafe Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As LongPtr, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Public Declare PtrSafe Function InvalidateRect Lib "user32" (ByVal hwnd As LongPtr, lpRect As Long, ByVal bErase As Long) As Long Public Declare PtrSafe Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As LongPtr, ByVal hWnd2 As LongPtr, ByVal lpsz1 As String, ByVal lpsz2 As String) As LongPtr Public Declare PtrSafe Function GetFocus Lib "user32" () As LongPtr Public Declare PtrSafe Function GetWindow Lib "user32" (ByVal hwnd As LongPtr, ByVal wCmd As Long) As LongPtr Dim hwnd As LongPtr #Else '32 bits Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Public Declare Function InvalidateRect Lib "user32" (ByVal hwnd As Long, lpRect As Long, ByVal bErase As Long) As Long Public Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long Public Declare Function GetFocus Lib "user32" () As Long Public Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long Dim hwnd As Long #End If Public Const GW_CHILD = 5 Public Const WS_EX_LAYOUTRTL = &H400000 Public Const GWL_EXSTYLE = (-20) Function RTL_Set(frm As Form, ctl As Control) Dim varHwnd As Variant Dim OldLong As Long frm.SetFocus ctl.SetFocus varHwnd = GetFocus() OldLong = GetWindowLong(varHwnd, GWL_EXSTYLE) SetWindowLong varHwnd, GWL_EXSTYLE, OldLong Or WS_EX_LAYOUTRTL InvalidateRect hwnd, 0, False End Function Function RTL_SetTree(frm As Form, ctl As Control) Dim OldLong As Long OldLong = GetWindowLong(ctl.hwnd, GWL_EXSTYLE) SetWindowLong ctl.hwnd, GWL_EXSTYLE, OldLong Or WS_EX_LAYOUTRTL InvalidateRect hwnd, 0, False End Function ' ' From http://www.microsoft.com/middleeast/msdn/faq.aspx ' 'Place OnLoad of the Form ' Dim OldLong As Long 'For Form ' OldLong = GetWindowLong(Me.hwnd, GWL_EXSTYLE) ' SetWindowLong Me.hwnd, GWL_EXSTYLE, OldLong Or WS_EX_LAYOUTRTL ' InvalidateRect hwnd, 0, False 'For List ' OldLong = GetWindowLong(List1.hwnd, GWL_EXSTYLE) ' SetWindowLong List1.hwnd, GWL_EXSTYLE, OldLong Or WS_EX_LAYOUTRTL ' InvalidateRect hwnd, 0, False 'For The StatusBar ' OldLong = GetWindowLong(StatusBar1.hwnd, GWL_EXSTYLE) ' SetWindowLong StatusBar1.hwnd, GWL_EXSTYLE, OldLong Or WS_EX_LAYOUTRTL ' InvalidateRect hwnd, 0, False 'For TreeView ' Dim nodX As Node ' Set nodX = TreeView1.Nodes.Add(, , "R", "Root") ' Set nodX = TreeView1.Nodes.Add("R", tvwChild, "C1", "Child 1") ' Set nodX = TreeView1.Nodes.Add("R", tvwChild, "C2", "Child 2") ' Set nodX = TreeView1.Nodes.Add("R", tvwChild, "C3", "Child 3") ' Set nodX = TreeView1.Nodes.Add("R", tvwChild, "C4", "Child 4") ' nodX.EnsureVisible ' OldLong = GetWindowLong(TreeView1.hwnd, GWL_EXSTYLE) ' SetWindowLong TreeView1.hwnd, GWL_EXSTYLE, OldLong Or WS_EX_LAYOUTRTL ' InvalidateRect hwnd, 0, False 'For ListView ' OldLong = GetWindowLong(ListView1.hwnd, GWL_EXSTYLE) ' SetWindowLong ListView1.hwnd, GWL_EXSTYLE, OldLong Or WS_EX_LAYOUTRTL ' InvalidateRect hwnd, 0, False 'For ProgressBar ' ProgressBar1.Value = 50 ' OldLong = GetWindowLong(ProgressBar1.hwnd, GWL_EXSTYLE) ' SetWindowLong ProgressBar1.hwnd, GWL_EXSTYLE, OldLong Or WS_EX_LAYOUTRTL ' InvalidateRect hwnd, 0, False 'For ToolBar ' mhwnd = GetWindow(Toolbar1.hwnd, GW_CHILD) ' OldLong = GetWindowLong(mhwnd, GWL_EXSTYLE) ' SetWindowLong mhwnd, GWL_EXSTYLE, OldLong Or WS_EX_LAYOUTRTL ' InvalidateRect hwnd, 0, False في اسفل الكود انا تركت الكود لبقية الاشياء اللي يمكن عملها من اليمين الى اليسار. اما تنفيذ التنسيق لمربع القائمة ، فهو وضع هذا الكود عند تحميل النموذج الذي يحتوي على هذا المربع (وهنا اسم حقل مربع القائمة هو List0_RTL ) : 'ListBox RTL Call RTL_Set(Me, List0_RTL) وتنسيق الشجرة ، فهو وضع هذا الكود عند تحميل النموذج الذي يحتوي على الشجرة (وهنا اسم الشجرة هو TreeView1) : 'TreeView RTL Call RTL_SetTree(Me, TreeView1) وللأمانة العلمية ، فاني استخدم قاعدة البيانات التي وضعها الاخ محمد في الرابط: http://www.officena.net/ib/index.php?showtopic=60781 جعفر تعديل 1: 18-11-2021 ، جعل البرنامج يعمل على النواتين 32بت و 64 بت 54.RTL_TreeView_ListBox_32bits_n_64bits.accdb.zip

السلام عليكم ورحمة الله وبركاته جائني علي الخاص الرسالة التالية من أخونا الفاضل (رجب محمد) ===================================== عندي شيت اكسل يحتوي على بيانات اكثر من عشرين الف اسم وقد حاولت ان اطبع كل عشرين اسم في صفحة مستقلة الطريقة التي اتبعها دائما هو عمل بيج بريك للصفحة وظبط الهوامش كما تعلم حضرتك وهذا يتم في ملف صغير يحتوي على عدد قليل من الاسماء اما الملف الاكبر فقد تعبت فيه لان عند الطباعة يظهر في صفحة عدد مثلا ثلاثون وفي صفحة اخري خمسون هل هناك طريق بسيطة لعمل ذلك الرجاء الرد سريعا ولكم جزيل الشكر =================================== إنتهت الرسالة ولم يكن أخونا رجب يستطيع رفع الملف المهم نصحته باستخدام الكود التالي Sub Macro1() LR = Sheet1.[A99999].End(xlUp).Row For r = (15 + 19) To LR Step 20 ' يمكنك استبدال الرقم 15 برقم أول سطر بعد العناوين ActiveSheet.HPageBreaks.Add Before:=Cells(r, 1) Next End Sub وبعد إرسال الملف لي واستئذانه في نشره هذا هو الملف مرفق بعد عمل اللازم (ليس به معلومات تضر بمصلحة العمل) بيج بريك.rar

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

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

الاخ الكريم مصطفى فينك بقالك فترة مختفي (لعله خير) إليك الملف التالي رغم أنك لم توضح بالتفصيل طلبك ، ولكني حاولت التدقيق في الطلب حتى فهمت مرادك Sub CopySheets() Dim I As Long Dim WS As Worksheet, SH As Worksheet Set WS = Sheets("نسخ"): Set SH = Sheets("بداية") Application.ScreenUpdating = False For I = 3 To 10 If blnWorksheetExists(SH.Cells(I, "B")) Then GoTo 1 WS.Copy after:=Sheets(Sheets.Count) ActiveSheet.Name = SH.Cells(I, "B").Value ActiveSheet.Range("B2").Value = SH.Cells(I, "B").Value 1 Next I SH.Activate Application.ScreenUpdating = True End Sub Function blnWorksheetExists(strWorksheet As String) As Boolean On Error Resume Next blnWorksheetExists = Not (ThisWorkbook.Worksheets(strWorksheet) Is Nothing) On Error GoTo 0 End Function تقبل تحياتي Copy Sheet Based On Range Values YasserKhalil.rar

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

بارك الله فيك استاذي ياسر يشهد الله اني احبك بالله .

اخي الكريم شاهد هذا الملف لعله يفي بالغرض. التفقيط عربي وانجليزي.rar

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

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

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

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

وهاي المرفق 54.1.TreeView_RTL.mdb.zip

الأخ الحبيب الغالي مختار جزيت خيراً على الكود الرائع فقط جزئية بسيطة جداً لم تعجبني ..ألا وهي وجود امتداد الملف في اسم الملف المصدر قم بتغيير السطر إلى fName = Left(ThisWorkbook.Name, (InStrRev(ThisWorkbook.Name, ".", -1, vbTextCompare) - 1)) & " " & .Range("C10").Value تقبل تحياتي

السلام عليكم أخوي أبا عمر حيله جميلة باستخدام SetWindowPos إحنا بسبب طريقة السؤال كنا نحاول ان نخفي شاشة الاكسس ، بس انت ماشاء الله عليك ، نظرت للموضوع من خارج العلبة ، وحصلت على مفهوم أكبر وطرق اخرى للحل ، هنيئا لك هذه القدرة وللعلم ، راعي الغنم في مشاركته رقم 84 لمح لهذا الشي نظريا ، ولم يطبقه برمجيا ، وانت سبقته ففيك الخير جعفر

جرب الكود ده Sub MOKHTAR_SaveAsPDF() Dim fName As String With Worksheets("Exemple facture chifrée") fName = ThisWorkbook.Name & .Range("C10").Value End With ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\Users\" & Environ("UserName") & "\Desktop\" & fName, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False End Sub الملف هيكون اسمه باسم الملف والخلية C10 تحياتى

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

أخي وحبيبي في الله حسام مشكور على مرورك العطر وعلى كلماتك الطيبة (كلماتك لي بمثابة البنزين للعربية ومش أي بنزين دا بنزين 92 ..) تقبل تحياتي

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

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

السلام عليكم اولا هذه الملفات ليست لى بل هى من ابداع الاستاتذه الكبار فى هذا الصرح الكبير وصرح اخر كبير اتمنى من الله ان يعود الينا وهوا الفريق العربي للبرمجه ومجموعه كبيرة من المواقع وهى موجوده بمكتبتى واحببت ان اضغها هناا ليستفيد منها طلاب العلم مثلى ولخوفى عليها من الضياع ____________________ مع خالص شكرى وتقديرى الى الاساتذة الكبار اصحاب هذه الامثله جعلها الله فى ميزان حسناتهم يوم القيامة ( اللهم بارك لهم فى علمهم وفى رزقهم وفى اهلهم يا اكرم الاكرمين يا الله ) تسعة أمثله للبحث منها مثال للبحث بطريقتين لأبو هاجر.rar مثال من تصميم أحد الأخوة فيه عدة أمثلة على نماذج و تقارير مختلفة.rar FileSize-مثال مهم جدا يعرض لك حجم المكونات الفعلية للبيانات.rar ربط قاعدة البيانات حسب الاختيار (المثال بعد التعديل).rar ChooseReportFromList2_2k-مثال على كيفية اختيار اسم التقرير المطلوب من لائحة ListBox.rar مثل الصلاحيات.rar CtlGroups-مثال للتحكم بخصائص مربعات النص من خلال أزرار الاختيار ف يالنموذج.rar sHIFT-مثال للتحكم في خصائص تشغيل أي ملف أخر , مثل السماح باظهار صفحة بيانات الملف أو استخدام المفاتيح الرئيسية او اظهار شريط الأدوات أو ... الخ.rar Tree- مثال على البنية الشجرية - تصميم أبو هادي - أوفسينا.rar findrecord2k--مثال مفيد جدا لمن يحتاج المساعدة في بناء الاستعلامات بسهولة كبيرة.rar Animation2k-مثال رائع على استخدام خاصية المؤقت في النموذج Timer لصنع ساعة - أشكال متحركة مختلفة.rar Atomatic_Record_Scrolling-مثال يجعل النموذج ينتقل تلقائيا من سجل للسجل الذي يليه - استخدام المؤقت في النموذج.rar AutoBkUp2K-- مثال لعمل نسخ احتياطي تلقائي لقاعدة البيانات.rar UpdateDirect2k - مثال على الاستيراد و التصدير المبرمج.rar

جزاك الله خيرا عمل رائع بالتوفيق

أخي وحبيبي في الله وأستاذي الكبير طارق لكم تشتاق نفسي لرؤية مشاركاتك بالمنتدى ، فمنكم تعلمنا وما زلنا ننهل من علمكم الغزير .. بارك الله فيك وجزاك الله خيراً على هذا الكود المميز والرائع أحببت أن أشارك ولو بشيء بسيط ، مشاركتي مجرد شرح بسيط جداً للكود حتى يستفيد الأخوة الكرام من الكود Sub AddPageBreaks() Dim R As Long, LR As Long 'تحديد رقم آخر صف به بيانات في العمود الأول LR = Sheet1.[A99999].End(xlUp).Row 'إعادة ضبط كل فواصل الصفحات ActiveSheet.ResetAllPageBreaks 'يمكنك استبدال الرقم 15 برقم أول سطر بعد العناوين 'يمثل الرقم 20 عدد الأسطر أو الصفوف المطلوبة في كل صفحة For R = (15 + 20) To LR Step 20 'عمل فاصل للصفحات قبل نهاية كل حلقة تكرارية ActiveSheet.HPageBreaks.Add Before:=Cells(R, 1) 'الانتقال للحلقة التالية Next End Sub تقبل ودي وحبي واحترامي وتحياتي أستاذي ومعلمي الباشمهندس طارق

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

ربما كان المطلوب شرط البيع.rar

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

أبوسليمان فى هذا المرفق تم تغيير امتداد الملفات الستة الى xls مع تغيير أسماء الملفات لسهولة التعامل جلبت لك البيانات من الملفات الخمس وهى مغلقة وبضغطة واحدة الى ملف الرئيسية تحديث البيانات : عدل كما تشاء فى الملفات الخمس وانقر على الزر فى الرئيسية فقط وبكده نكون عملنا المرحلة الأولى أما الثانية سوف أسألك بعض الأسئلة فى حينها أما السؤال الأن : الرقم الطويــــــــــــــــــــــــــــــــــــــــــــــل ده بيتقسم الى خلايا هل المطلوب منه أن نستخلص منه تاريخ ووقت مثلاً ؟ أرجو الايضاح وسوف نكمل الموضوع باذن الله تعالى mokhtar get data for bosoliman.rar

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

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

تفضل اخي هل هذا ماتبحث عنه برنامج بحث.rar برنامج بحث.rar

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

بعض اعمال الاستاذه الكبيره زهره بارك الله فيها المواضيع الممزة لها بالمنتدى http://www.officena.net/ib/index.php?showtopic=10405 za_arrangement_UP.rar zaAccessDiaryDaily_v.2.rar za-Aziz03-END.rar zaChangeResolution2006_UP.rar za-Database2-LAST- من والى المدرسة 2.rar za-Database2-UP- التحويل من والى المدرسة.rar za-ditingup-UP.rar za-ditingup-UP_2.rar za-NA-Copy-Report -عدد نسخ التقرير المطلوبة للطباعة.rar za-Nadih-Last.rar za-Nadih-Last-4.rar za-SplitName- تقسلم الاسم 2.rar za-SplitName12-UP - تقسيم الاسم.rar za-SplitName12-UP.rar za-Students-Rank-END.rar za-Students-Rank-ENDs.rar za-Students-Rank-العشرة الاوائل.rar zaTextEffectScrollingUP - نص متحرك.rar za-Translate v 1.1-برنامج الترجمة.rar za-توزيع الاسم.rar

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

ونكمل بأمر الله SubQuery2k- مثال على استخدام الاستعلام الفرعي داخل الاستعلام لاستخراج قيم تجميعية.rar SynchronizedSubforms2k - مثال على كيفية مزامنة نموذجين فرعيين ضمن نموذج رئيسي.rar TimeDiff- مثال على كيفية حساب الفرق في الوقت و التاريخ.rar TimeDiffrent- مثال يعرض الفرق بين تاريخين بالساعه.rar Unbound2k -مثال لاضافة حقول غير منضمة الى الجدول و الى قائمة لائحة ListBox.rar WipeEffects - مثال لاغلاق النموذج بعدة طرق انسايبية.rar مثال على كيفية اضافة أقساط المتبرعين لعدد 12 شهرا بطريقة اتوماتيكية.rar مثال كيفية اضافة صورة للموظف او طالب وايضا اظهارها في التقرير 2003.rar مثال كيفية اضافة صورة للموظف او طالب وايضا اظهارها في التقرير.rar مثال لاخفاء شاشة الأكسس الرئيسية عند فتح الملف.rar مثال لعرض الأرقام الشاغرة بين رقمين.rar

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

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

بالنسبة للفريق ESD نجد انه هذه النتيجة الولى ESD 3 CRBO 1 وهذه النتيجة الثانية CRBO 0 ESD 3 وعند التوزيع مسجل النتيجة تحت 3/1 و 3/0 ممكن شرح جات ازاي ولا هي غلط ولا انا مش فاهم

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

اخي الفاضل ممكن تشرح اكتر

للاسف غير مجانى

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

الاخ محمد الريفي بارك الله فيك وجزاك الله خيرا الأخ إبراهيم أبو ليلة الحل كان ع السريع إليك الملف التالي عله ينال إعجابك وينال رضاك Unique List No Blanks YasserKhalil.rar

الاخ/ mahmoud شكرا للتهنئة بالعيد الان كيفية تحويل الارقام من الانجليزية للعربية بالاكسل اكسل 2003 و 2010 تحويل الارقام للعربية.rar