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

السلام عليكم.. اقدم لكم حيلة قديمة ربما تفيدكم.. على سبيل المثال: لدينا 3 حقول ( العدد 1 ) , ( العدد 2 ) , ( النتيجة ) وأريد ان اقوم بعملية جمع للحقلين 1 و 2 وعرض النتيجة.. الآن عند كتابة رقم في الحقل ( العدد 1 ) وبعدها كتابة رقم في الحقل ( العدد 2 ) تظهر النتيجة مباشرة بدون الخروج من الحقل بمعنى إعطاء النتيجة مباشرة اثناء الكتابة Private Sub textbox1_Change() textbox3.Value = Nz(textbox1.Text, 1) + Nz(textbox2, 1) End Sub الفكرة كلها في اضافة الـ Value لحقل عرض النتيجة والخاصية Text للحقل المراد سحب النتيجة منه. تحياتي لكم.

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

في الاكسس تقوم بإستخدام المعيار التالي like "*" & [forms]![top]![qq]& "*" أما مع استخدام SQL يتم استبداء علامة (*) بـ (%) like '%" & [forms]![top]![qq]& "%'

جرب: Private Sub txt2_Change() txt3.Value = Nz(txt2.Text, 1) * Nz(txt1, 1) End Sub UpdateDuringTyping.accdb

جميل جدا استاذنا د. ابا مهاب اشياء صغيرة في حجمها وجميلة ومفيدة في قيمتها

جرب هذه المحاولة ترقيم.xlsm

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

عليكم السلام.. تفضل: az.accdb

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

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

هل تريد تمرير بيانات من الاكسس لاكثر من صفحة فى pdf ?

استخدم هذا الموقع اضغط هنـــــــــــــــا

السلام عليكم اولا ارجوك الحفاظ على قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف ------------------- وبخصوص طلبك برنامج الموارد البشرية HR - قسم الأكسيس Access - أوفيسنا (officena.net)

طالما انك لم تقم برفع ملف ... فكان عليك استخدام خاصية البحث بالمنتدى -تفضل هل يمكن تفعيل عجلة الماوس داخل الفريم وهذا كود أخر يمكنك استخدامه أكواد اليوزرفورم Option Explicit Private Sub UserForm_Activate() WheelHook Me 'For scrolling support End Sub Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) WheelUnHook 'For scrolling support End Sub Private Sub UserForm_Deactivate() WheelUnHook 'For scrolling support End Sub Public Sub MouseWheel(ByVal Rotation As Long) If Rotation > 0 Then 'Scroll up If ListBox1.TopIndex > 0 Then If ListBox1.TopIndex > 3 Then ListBox1.TopIndex = ListBox1.TopIndex - 3 Else ListBox1.TopIndex = 0 End If End If Else 'Scroll down ListBox1.TopIndex = ListBox1.TopIndex + 3 End If End Sub ووضع هذا الكود فى مديول عادى 'https://www.mrexcel.com/board/threads/listbox-mouse-scroll.459781/ Option Explicit Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _ (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _ (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Private Declare Function CallWindowProc Lib "user32.dll" Alias "CallWindowProcA" ( _ ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, _ ByVal lParam As Long) As Long Private Const GWL_WNDPROC = -4 Private Const WM_MOUSEWHEEL = &H20A Dim LocalHwnd As Long Dim LocalPrevWndProc As Long Dim myForm As UserForm Private Function WindowProc(ByVal Lwnd As Long, ByVal Lmsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long 'To handle mouse events Dim MouseKeys As Long Dim Rotation As Long If Lmsg = WM_MOUSEWHEEL Then MouseKeys = wParam And 65535 Rotation = wParam / 65536 'My Form s MouseWheel function UserForm1.MouseWheel Rotation End If WindowProc = CallWindowProc(LocalPrevWndProc, Lwnd, Lmsg, wParam, lParam) End Function

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

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

صراحة انا لم اواجه مشكلة في الكود الاول، لذلك غيرت الكود وفقاً للمشكلة التي صادفتك. لم تخبرني هل واجهت مشكلة؟ ام انه عمل بشكل صحيح

عزيزي هل شكل الاستمارة ثابت أقصد مكان الحقول ثابت او متغير ؟ اذا كانت أماكن الحقول متغيرة فهذا غير ممكن لا في الأكسس ولا في غير الأكسس. اما اذا كانت ثابتة فهذا سهل، وذلك بتحويل ملف الـ Pdf الى صورة ثم استدعاءه في تقرير الأكسس ومن ثم قم بوضع حقول النص على حقول الـ Pdf

السادة الأفاضل يرجى التفضل بالمساعدة من أجل تحويل معادلة الترقيم التلقائي إلى كود برمجي في حدث الصفحة مرفق الملف المطلوب الترقيم التلقائي 111.xls

جرب هذا الملف count .xlsx

=NB.SI.ENS

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

تفضل click.xlsm

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

الأكواد لا توجد بها أي خطأ يجب عليك إضافة مكتبة Microsoft Word 14.0 Object Library في محرر أكواد فجوال بسيك كما توضح الصورة التالية: