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

شكرا جزيلا أخي الفاضل

تفضل استاذ @adly almansyمحاولتي حسب مافهمت . اليك المرفق والشرح . ووافني بالرد . واذا كان هذا طلبك لا تنسى الضغط على افضل اجابة . DDTestSort.rar

تفضل المرفق والشرح حسب طلبك . مشف فاهم وضح أكثر ؟؟؟ هل لزر موجود أم انشاء جديد ؟؟ المرفق والشرح-1.rar

أخي @adly almansy ، وعليكم السلام ورحمة الله وبركاته ، بما أنك عضو جديد في مجتمعنا ؛ فأهلاً وسهلاً بك .. أود تنبيهك إلى ضرورة اختيار العنوان المناسب لموضوعك ومشكلتك . فالعنوان الصحيح يساعدك ويساعد الآخرين على ايجاد / سهولة الحل .

شكرا جزيلا أخي الفاضل وشكرا لجميع الأعضاء

استاذ @2saad هنا الخطأ .... اذا كان الحقل (magmoa_nesf) نوع رقمي كيف ستضع (غ) ؟؟؟ . حاول تغير (غ) برقم مثل 88 وبدون ("") . IIf([magmoa_nesf]=0;88;[magmoa_nesf]/800*100/100)

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

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

تفضل اطلع اولا العمل هذا في بدايات تعلمي .. قبل ما يقارب 25 سنة صممت التقرير من واقع العمل على الارض .. صورة طبق الأصل من الحافلات التي تنقل الطلاب تركت لك كود جلب اسم الطالب في الكراسي الثلاث الأمامية .. للأستئناس Bus.accdb

اخي الكريم اسعد الله أوقاتك .. ما هو اصدار الأوفيس على الحاسبة التي في العيادة ؟؟ هل هي 64 أم 32 ( نفس اصدار حاسبتك التي صممت البرنامج عليها ) ؟؟ اذا قمت بتحويل القاعدة الى ACCDE فقد لا تتمكن من التعديل عليها لاحقاً .. بالنسبة لي على جهازي نسخة أوفيس 64 والملف يعمل بشكل سليم عندي .

اذكر اني عملت مثل هذا في النقل المدرسي سأبحث لك عنه

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

تظهر كاملة عمي @ابوخليل .. ولكن يظهر أن الأستاذ @Sħěrif Ħušsệiñ لم ينتبه للشريط السفلي الذي ينقلك بين الصفحات 🙂

جرب هذا 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

تفضل المرفق وادخل مرة (mahdi :1960) ومرة (tariq :1991) ومرة (Ali :111) وشوف الناتج . أما (نموذج اسمه صلاحيات او اعدادات). موجود لديك وسأشرح لك كيفية الدخول اليه ........ اليك المرفق ومعه الشرح . المرفق والشرح.rar

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

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

أخي الكريم أسعد الله مسائك ، بداية في موضوع الحماية هناك نقاط كثيرة غابت عنك أثناء التفكير في حماية مشروعك وبياناتك من النسخ والنقل ....الخ . أولاً :- قد تكون قد اختلفت لديك اعدادات الـ Macro و إعدادات الـ ActiveX في جهازك عن تلك التي في جهاز العميل . هذه الإعدادات بالنسبة لي أفعلها بشكل يدوي عند تثبيت النسخة النهائية لأي مشروع عند العميل. ثانيا :- استكمالاً للحماية انا تمكنت من الدخول الى وضع التصميم دون الحاجة الى الباسوورد وأيضاً استيراد جميع الكائنات في المشروع الى ملف أكسيس آخر وذلك لعدة أسباب . منها أنك لم تقم بحماية محرر الأكواد الـ VBA بكلمة مرور وهو بدوره سيمنع وضع التصميم . أيضاً لحماية قاعدة البيانات لديك يجب أن يكون الملف النهائي بصيغة ACCDE ( وأعلم جيداً أنك قد تعلم هذه النقاط وإنما للتذكير ) . أيضاً موضوع حماية قاعدة البيانات 123 كمثال فكرة لا أتطرق لها إلا في قاعدة بيانات الجداول فقط . بالنسبة للنقطة الثالثة فأعتقد انها مربوطة بالنقطة الأولى . وفي النهاية ملفك فتح معي بشكل طبيعي دون أي أخطاء

هل مواصفات جهازك جيدة ؟ كم نسخة الأوفيس عندك ؟ جرب استخدام هذه النسخة وأخبرني هل النتيجة نفسها ؟ ‏‏Moosak MsgBox 2.accdb

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

بارك الله فيك أخي @أبومروان وجزاكم مثله اخى الغالي @محمد يوسف ابو يوسف بارك الله فيك اخى @hafez81 بارك الله فيك أخي @Yasser Fathi Albanna وجزاكم الله خيرا اخوتى على دعواتكم وعلى مروركم العطر