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

مشاركة مع اخي خليفة اسهل طريقة لترقيم حقل نصي هي الاستفادة من حقل الترقيم التلقائي الخاص بالجدول ... ويصبح الكود هكذا id = "RV." & Me.autoNmber على اعتبار Me.autoNmber هو حقل الترقيم التلقائي وهنا لست بحاجة الى اضافة اصفار .. لأن الترقيم التلقائي سيمتد الى مئات الآلاف

السلام عليكم اخواني اعضاء منتدى اوفيسينا ظهرت لدي مشكلة وهو عند تفعيل كود اخفاء شاشة الاكسس وهو كالتالي Option Compare Database Public Declare PtrSafe Function ShowWindow Lib "user32.dll" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long Public Sub HideAccess() Call ShowWindow(Access.hWndAccessApp, 0) End Sub Public Sub ShowAccess() Call ShowWindow(Access.hWndAccessApp, 5) End Sub Public Function getMyMacAddress(Optional strComputer As Variant) As String Dim oWMIService As Object Dim oMacs As Object Dim oMac As Object Dim strComp As Variant If IsMissing(strComputer) Then strComputer = "." End If Set oWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set oMacs = oWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration") For Each oMac In oMacs If IsNull(oMac.MacAddress) = False Then getMyMacAddress = oMac.MacAddress End If Next End Function ............................................... وعند الضغط على عملية معاينة التقارير يعلق النظام كاملا ارجو ان تساعدوني بحل المشكلة ولكم جزيل الشكر والتفدير

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

اخي الكريم تكمن المشكلة ان البرنامج يفتح بوضعية Maximize وفي هذه الحالة تصبح التقارير خلف النموذج الرئيسي ، لذا افضل حل لديك الان هو عرض التقارير أيضاً بخاصية Maximize ، وإلا فلتستغني عن خاصية ملئ الشاشة للنماذج. من وجهة نظري 😊

من الخصائص اجعل منبثق = نعم و فى حدث عند الفتح DoCmd.Maximize بالتوفيق

نزل الملف حتى تتم مساعدتك

استاذ @ra7yl2006 افتح الفورم في وضع التصميم ثم علم على كل محتويات الفورم ثم كليك يمين عليهم بيفتح لك ديالوج انزل الى (Anchoring) ثم اول اختيار (Top left) ووافني بالرد . اليك الشرح .

اذا أردت الناتج في استعلام (Expr1: "RV." & "0000" & [ID]) واذا اردته في حقل محسوب (اسم الحقل المحسوب مثلاً KK) .. ضع هذا الكود بفورمات الحقل (KK)........ ("RV." & "0000" & [ID])

السلام عليكم ورحمة الله أخي طارق لك وحشة... إن شاء الله تكون بخير وعافية... وهذه محاولة في الملف المرفق... 555.xlsx

ممكن توضح الحقل (total_arabic_nesf1) رقم أم نص ؟؟؟ ......... اذا الحقل رقمي كما قلت لك سابقاً مايصير تضع (غ) ...... ضع بالجدول رقم مميز مكان (غ) وليكن (555) فتصبح المعادلة .... caler_arabic: IIf([total_arabic_nesf1]>=85;"أزرق";IIf([total_arabic_nesf1]>=65;"أخضر";IIf([total_arabic_nesf1]>=50;"أصفر";IIf([total_arabic_nesf1]>=1;"أحمر";IIf([total_arabic_nesf1]=555;"غ";"")))))

بارك الله فيك وأكثر الله من أمثالك وجعله في ميزان حسناتك

أستاذي @abouelhassan تم عملها وهي بالمرفق والشرح . هي موجودة ومن اساسيات نظام الصلاحيات ووضحتها بالشرح المرفق . تحياتي . المرفق والشرح-2.rar

تفضل اذا كان هناك مشكلة ارفق مثال Color.mdb

نعم موجود المعادلة مطبقة في استعلام

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

السلام عليكم تفضل المرفق 555.xlsx

وما المانع من عمل نسخة Accde قبل ذلك قم بتقسيم القاعدة باك اند وفرنت اند وعدل براحتك على نسختك الاصلية ويعدها استبدل الفرنت اند ولن تتاثر بياناتك

صراحة مجهود يستحق الشكر والتقدير وتم دمجها في احد برامجي واخذ ما يلزم منها مع الاخذ بعين الاعتبار الحقوق طبعا ولكن لم افهم الفرق بين نعم وموافق عندما استخدم مثلا لحذف سجل ما الفرق بين ان اختار موافق او نعم؟؟ جميل وفي ميزان حسناتك ان شاء الله :: تحياتي

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

تفضل ‏‏OE2.rar

عليكم السلام اخي الكريم من البداية تصميمك للجداول بحاجة الى اعادة نظر متى نعرف اننا لم نعمل التصميم كما ينبغي .. يظهر ذلك في النهايات عند الحاجة الى استخراج تقارير خاصة ودقيقة ................ التصميم الصحيح لفكرة الاستئذان والعودة كالتالي : العمل على جدول واحد فقط ثلاث حقول رئيسية هي المهمة والتي عليها المدار 1- حقل يحدد زمن الخروج المصرح به ويعمل كقائمة يتم الاختيار منها ( ساعة / نصف ساعة ..... الخ ) 2- حقل وقت الخروج ( جنرال ) Now 3- حقل وقت العودة ( جنرال ) Now من خلال هذين التاريخين نستطيع حساب الوقت الذي استغرقه الخروج بالساعة والدقيقة والثانية ويمكن المقارنة بسهولة بين الخروج والعودة وحساب الفرق بين الممنوح وما تم استغراقه بالفعل لو عاد وخرج مرة اخرى يتم رصده في سجل جديد

جرب هذا Private Sub Worksheet_Change(ByVal Target As Range) Dim Patch As String, Img As Boolean, Strfile As String, Imgfile As String If Not Intersect(Target, Range("k3")) Is Nothing Then Dim rng As Range, Clé As String, Cpt As Long Set WS = Feuil1: Set dest = Feuil2: Clé = dest.[k3] Set rng = WS.Columns("A:A").Find(What:=Clé, _ LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, _ SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False) Cpt = rng.Row dest.[F7] = WS.Cells(Cpt, 2).Value dest.[G7] = WS.Cells(Cpt, 3).Value dest.[H7] = WS.Cells(Cpt, 4).Value dest.[I7] = WS.Cells(Cpt, 5).Value dest.[J7] = WS.Cells(Cpt, 6).Value dest.[K7] = WS.Cells(Cpt, 7).Value dest.[L3] = WS.Cells(Cpt, 8).Value Patch = ThisWorkbook.Path Img = False On Error Resume Next Strfile = Dir(Patch & "\" & [L3].Value & ".*") Do While Len(Strfile) > 0 If Len(Strfile) <> 0 Then Img = True Imgfile = Strfile Exit Do Else End If Loop If Img = True Then Me.Image1.Picture = LoadPicture(Patch & "\" & Imgfile) Me.Image1.PictureSizeMode = fmPictureSizeModeZoom Me.Image1.Left = [L6].Left: Me.Image1.Top = [L6].Top On Error GoTo 0 Else MsgBox ("الصورة غير متوفرة") Me.Image1.Picture = Nothing End If End If End Sub test.rar

ومشاركة مع الأستاذ خليفة ، الملف بعد التعديل يعمل على النسختين 32 و 64 الجزء الخامس (2).accdb

استاذ @tiger wanted عند الموديولات التي يوجد ببدايتها (Private Declare Function ) اضف (Private Declare PtrSave Function ) للتحويل الى 64 بت . طالع هذا الرابط به الحل . https://www.youtube.com/watch?v=E9AML_JU1Yk

السلام عليكم ورحمة الله أخي الكريم أبو البراء، يمكن الاستغناء عن 1+ في المعادلتين بكتابتهما كما يلي: بالنسبة للترتيب الأول من الأكبر إلى الأصغر: =SUMPRODUCT(($A$2:$A$13=A2)*(B2<=$B$2:$B$13)) بالنسبة للترتيب الثاني من الأصغر إلى الأكبر: =SUMPRODUCT(($A$2:$A$13=A2)*(B2>=$B$2:$B$13)) ثم سحبها إلى الأسفل... والله أعلم