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

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

السلام عليكم المرفقات بصيغة اكسيس 2003 وقريبا ان شاء الله بصيغة اكسيس 2007 كلمة المرور في اي مكان بالبرنامج هي 1234 لاضافة بيانات في الصناديق CompoBox انقر مرتين على الصندوق المراد الاختيار منه سيتم فتح شاشة الادخالات الخاصة بهذا الصندوق ولا تنسونا بالدعاء اخوكم على عبد الحميد Str2003.zip

راديو احترافى لن تجده الا بمنتديات اوفيسنا الاصدار الاول : JU_Radio v1.zip

السلام عليكم لدي برنامج مدرسة وارجوتقسيم الطلاب الى الصفوف والشعب school.accdb

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

السلام عليكم كيف امنع الحفظ النلقائي في النموذج (wb) والذي يحتوي بداخلة نموذج فرعي wbf New Microsoft Access قاعدة بيانات.accdb

السلام عليكم مرة اخرى احبتى فى الله فى المرفق تقرير (ehsa_room_2) يحسب احصاء الحجرات اردت أن أخفى تكرار الحجرة والصناعة بدلا من تكرارها كل مره ولكن فى الصفحة الثانية من التقرير الشكل مش تمام فى النهاية هل يمكن جعل الصفحbb1.rarة تنتهى بإجمالى الصنعة مثلا برمجيا أم هناك مخرج لذلك bb1.rar

أستاذى @أبو إبراهيم الغامدي اولا سوف أقوم بمنع التكرار و هو موجود بالفعل فى النموذج الذى اعمل عليه ثانيا النموذج الاخير يقوم بتغيير الاسم فقط و لا يقوم بتغيير الصورة ارجو التعديل على الكود التالى أن يحذف الامتداد (jpg)حيث هناك صور "jpeg" أو Png فقط Private Sub Form_Current() On Error GoTo errresult Dim ErrImage As String Dim CurImage As String ErrImage = "D:\Photo\123\No.jpg" CurImage = "D:\Photo\123\" & Me.Worker & ".jpg" Me.imgWorker.Picture = CurImage errresult: If Err.Number = 2220 Then Me.imgWorker.Picture = ErrImage Resume Next End If End Sub 'D:\Photo\123 Private Sub Worker_BeforeUpdate(Cancel As Integer) Dim OldImage As String Dim NewImage As String OldImage = Me.imgWorker.Picture NewImage = "D:\Photo\123\" & Me.Worker & ".jpg" If Dir(OldImage) = "No.jpg" Then Me.imgWorker.Picture = OldImage ElseIf Len(Dir(NewImage)) > 0 Then MsgBox Dir(NewImage) & vbNewLine & "يوجد صورة سابقة بنفس الاسم..", _ vbMsgBoxRight + vbMsgBoxRtlReading, "تنبيه" Me.Undo Else Name OldImage As NewImage Me.imgWorker.Picture = NewImage End If End Sub

ليس صحيحا! الشفرة كانت ناقصة! إذا كان هناك صورة اسمها (محمد.jpg) وأردت أن تغير اسم أحمد إلى محمد فإن صورة أحمد بالتالي سيتغير اسمها إلى محمد؛ وهذا يعني وجود صورتين بنفس الاسم في مجلد واحد! وهذا منطقيا غير مقبول. وإذا كان الخطأ في الاسم فقط فلابد من وجود رسالها تخير المستخدم بقبول تغيير الاسم من عدمه ولهذا أرفقت لك التعديل

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

سوف أرجع إلى قاعدة البيانات وأتحقق من القصور,,

أعتقد هذ الكود يفي بالغرض =SUMPRODUCT((L2:L185="مركز المخادر الصحي")*(U2:U185="Positive"))

أسف لهذا الغلط.. عندما عدلت الشفرة نسيت أن أعدل هذا ..

ماشاء الله استاذ سليم عمل رائع وبعد اذنك واثراء للموضوع نسخة من ملأ الأشهر تلقائيا.xlsx

ربما يكون المطلوب (مع قليل من التّنسيق) auto Calander.xlsx

اذا اردت ان تكون الاسماء في خلية واحدة (صفحة Salim من هذا الملف) هذا الكود Option Explicit Sub max_min() Dim mY_rg As Range Dim last_row%, i%, J% Dim M%: M = 12 last_row = Cells(Rows.Count, 1).End(3).Row Dim st_max$, st_min$ Range("l2").CurrentRegion.Offset(1).ClearContents For i = 3 To last_row For J = 2 To 5 If Cells(i, J) = _ Application.Min(Cells(i, 2).Resize(, 4)) Then st_min = st_min & Cells(2, J) & "," ElseIf Cells(i, J) = _ Application.Max(Cells(i, 2).Resize(, 4)) Then st_max = st_max & Cells(2, J) & "," End If Next Cells(i, M) = Mid(st_min, 1, Len(st_min) - 1) Cells(i, M + 1) = Mid(st_max, 1, Len(st_max) - 1) st_min = "": st_max = "" Next End Sub الملف مرفق Tahsil_Macro.xlsm

وعليكم السلام ورحمة الله وبركاتة شكرا اخ محمد على المتابعة وشكرا على الدعاء

هذه الرسالة مفادها ان اسم النموذج او اسم الكائن غير متطابق .... حاول تغييرها في الاستعلام بما يناسب النموذج والكائن بها اذا لم تستطع ... ارفق النموذج والاستعلام للقيام باللازم

شكرا استلذ @عبد اللطيف سلوم

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

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

ملف الفصل الثاني احصائيةالفصل الدراسى الثاني2019.xls في حفظ الله ورعايته

الخصيصة: CurrentProject.Path تعيد المسار الافتراضي للمشورع الحالي (قاعدة البيانات).. قم بتغييرها بمسارك المفضل للصور

السلام عليكم 🙂 في الواقع جربت طريقة اخوي ابوخليل سابقا ، ولكني قد لم اعملها بطريقة صحيحة ، فما حصلت على النتيجة المطلوبة ، فحذفت برمجتها !! ولكني ارفق هنا التجارب الاثنين الاخرى لنفس الموضوع (6 ملفات ، 3 ملفات لكل تجربة) ، وجاهز للشبكة ، BE على السيرفر ، و FE_1 على كمبيوتر و FE_2 على كمبيوتر آخر (بس انا استعملتهم كلهم على كمبيوتر واحد 🙂 ) وفي انتظار نتيجة تجاربك 🙂 جعفر 1075.RecordLock.zip

ربما هذا ما تقصده Tahsil_1.xlsx

هذه المعادلة في G3 واسحب نزولاً =INDEX($B$2:$E$2,MATCH(MAX($B3:$E3),$B3:$E3,0)) لكن المشكلة اذا تساوى رقمان أو أكثر و كانا ( Max أو Min ) تحصل على أول اسم فقط كما في الصف الخامس او السادس من هذا الملف Tahsil.xlsx

أهلا بك @محمد احمد لطفى مع تحفظي على إجراء التعديل على مصدر بيانات يعطي بيانات متكررة إلا أن هذا لا يمنع من تقديم الحل.. Photo.zip

تفضل ان شاء الله يكون هذا طلبك New Microsoft Access قاعدة بيانات.accdb

تفضل لعله هذا مطلوبك مشكلة سابق ولاحق2.accdb تقدر تضيف في مربع التحرير والسرد ما تريد مثل تاريخ القراءة ،،،،،

حياك اخي مصطفى ...

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

لن يكون هناك مشاكل في المثال نحن استفسرنا فقط ولم نعط امر إزالة او حفظ : اذا فيه شوائب اظهر الاقونة A وإلا اظهر الايقونة B الخطأ عادة يظهر عند الامر بتغيير الحالة ، يكون الحقل غير قابل للتحرير فيظهر الخطأ

تم معالجة الامر (بواسطة Auto filter ) مع تعبئة اوتوماتيكية للــ Combo Box دون تكرار Copy_filtred_rows_without_Hedears.xlsm

كود رائع استاذ مصطفى لكن يمكن تخفيف الحلقات التكرارية 6 مرات في كل صف (بازالة الحلقة التكرارية j ) التي لا لزوم لها بذلك ننقل البيانات صفاً بعد صف وليس خلية بعد اخرى في كل عامود (تخيل عندنا 500 عامود الحلقة اللازمة لــ j من 1 الى 500) Private Sub Worksheet_Change(ByVal Target As Range) With Application .Calculation = xlCalculationManual .ScreenUpdating = False .EnableEvents = False End With If Target.Address = "$B$4" Then ورقة2.Range("A7:F55") = "" k = 7 LR = Sheets(1).Range("C" & Rows.Count).End(xlUp).Row For i = 24 To LR If ورقة2.Range("B4") = ورقة1.Range("c" & i) Then ورقة2.Cells(k, 1).Resize(, 6).Value = _ ورقة1.Cells(i, 4).Resize(, 6).Value k = k + 1 End If Next End If With Application .Calculation = xlCalculationAutomatic .ScreenUpdating = True .EnableEvents = True End With End Sub

طبعا تجد داخل الموديول ايضا اسطر لتحويل الارقام من انجليزية الى عربية ArbNmbr(myData) انظر الان مرة اخرى الى الاستعلام Query1 data(2).accdb

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

تفضل SEER.xlsx

من فضلك ضع النتائج المطلوبة على الملف

وعليكم السلام يمكنك استخدام هذه المعادلة =IF(OR(A2="",B2=""),"",A2&"-"&B2) SEER.xlsx