Jump to content
أوفيسنا

Leaderboard

Popular Content

Showing content with the highest reputation since 04/15/2021 in all areas

  1. السلام عليكم و رحمة الله تعالى و بركاته دكتورنا كيف حالك. إن شاء الله تكون بخير هذا مثال لإظهار رسالة في شريط المهام دون الحاجة لأي برنامج آخر بالأكسس فقط عرض رسالة على شريط المهام.accdb
    7 points
  2. يمكنك استخدام هذه المعادلة =INDEX($B$2:$E$5,MATCH($J3,$A$2:$A$5,0),COUNTA(B2:E2)) البحث عن اخر قيمة فى الصف.xlsm
    6 points
  3. ربما هذا ما تريده .... جرب واعلمنا بالنتيجة ؟؟؟؟ مثال اوفيسنا القيم الافتراضية (1).accdb
    5 points
  4. 5 points
  5. اهم الاختلافات : اسماء المخازن في الكمبولست هي التر تظهر في التقرير يمكن تعديل مسميات المخازن من خلال الجدول أنظر الصور
    5 points
  6. اخي الكريم هل طبق ما في هذه المشاركة للعلم ان التقرير والكود اساسا اعتماده على الارقام .... يعني لو حذفت هذه الارقام يختل الكود وطريقة ظهور البيانات في التقرير وهذا يعيدنا للمربع الاول للسؤال .... 😅
    5 points
  7. بالنسبة لعبارة مخزن تجدها في التقرير اما رقم ١ و ٢ و٣ تجدها في الاستعلام لاحظ الصور ... الشرح فيها
    5 points
  8. حسب فهمي للمطلوب .. هل هذا الشكل هو المطلوب ؟؟؟؟
    5 points
  9. هذا طلبك الاول ... قي المرفق ... انظر الصورة .... هذه النقطة معتمده في الاساس عل الاستعلام الذي انت فعلته .... انظر الاستعلام ومن اين اتت هذه المسميات لأنها موجودة في برنامجك اساسا ‏‏DATA144 - kanory.mdb
    5 points
  10. مشاركة من الاساتذه : طريقة اخرى تمكنك من اختيار مخازن بعينها لتظهر في التقرير ..... جرب ووافينا بالنتيجة ... ‏‏DATA144 - kanory.mdb
    5 points
  11. بعد اذن الاستاذ نزار هذا الكود Option Explicit Sub Fil_Ijasat() Dim Dic As Object, KY Dim I%, lr%, m%, K% Dim txt Dim EE#, FF#, HH#, JJ#, GG#, II#, KK# Dim Source_Sheet As Worksheet Dim Target_Sheet As Worksheet Dim Cur_Value Set Source_Sheet = Sheets("Sheet1") Set Target_Sheet = Sheets("Sheet2") Set Dic = CreateObject("Scripting.Dictionary") lr = Source_Sheet.Cells(Rows.Count, 2).End(3).Row Target_Sheet.Range("a3:k100").ClearContents If lr < 4 Then Exit Sub For I = 4 To lr txt = Source_Sheet.Cells(I, 2).Resize(, 3) txt = Application.Transpose(txt) txt =
    5 points
  12. استبدل الكود بهذا أخي الكريم Public Function re_Num() Dim rst As DAO.Recordset Dim i As Long Dim RC As Long Set rst = CurrentDb.OpenRecordset("Select * From b14") rst.MoveLast: rst.MoveFirst RC = rst.RecordCount For i = 0 To RC - 1 rst.Edit rst!HNO = 1 + i rst.Update rst.MoveNext Next i rst.Close: Set rst = Nothing MsgBox "Done" End Function
    5 points
  13. تفضل ... DoCmd.SetWarnings False DoCmd.RunSQL "UPDATE b14 SET b14.hno = DCount(""*"",""b14"",""ID <="" & [ID]);" DoCmd.SetWarnings True
    5 points
  14. تفضل هذه المعادلة لكود المندوب =IFERROR(INDEX(المناديب2!$A:$A,MATCH($A2,المناديب2!$B:$B,0)),"") وهذه المعادلة لكود السيارة =IFERROR(INDEX(' السيارات3'!$A:$A,MATCH($C2,' السيارات3'!$C:$C,0)),"") حركه السيارات.xlsx
    5 points
  15. وعليكم السلام 🙂 طريقة الاخ خالد هي الصحيحة ، ولكن وبما انك طلبت هذه الطريقة الاخرى ، فاليك الطريقة: 1. اعمل استعلام لجدول الذكور ، وأخر لجدول الاناث ، ثم استعلام لجدول الطلبة ، 2. في الاستعلام ، نطلب منه ان يستخرج لنا الاسم الاول من الاسم الكامل ، كما نراه في الحقل F ، 3. نعمل حقل اضافي لتعريف نوع الجنس ، واسمه G : . وهذه النتيجة: . 4. نعمل استعلام لتحديث اسماء الذكور ، وآخر لتحديث اسماء الاناث ، 5. الرابط بين الاستعلامات هو الاسم الاول : . والنتيجة: . تم تحديث جميع الاسماء الموجودة في جدولي ال
    4 points
  16. اظن انه ليس هناك حاجة لاستعمال البوزرفورم (فقط اضغط الزر GO في الصفحة Target ) الكود Option Explicit Sub AL_in_One() Dim T As Worksheet Dim Sh As Worksheet Dim arr(), itm Dim Max_ro%, k% Dim Adr1%, Adr2% Dim F_rg As Range arr = Array("First", "Second", "Third") Set T = Sheets("Target") T.Range("A1").CurrentRegion.Offset(1).Clear k = 2 For Each itm In arr Set Sh = Sheets(itm) Max_ro = Sh.Cells(Rows.Count, 2).End(3).Row Set F_rg = Sh.Range("o2").Resize(Max_ro).Find("*", lookat:=1) If Not F_rg Is Nothing Then Adr1 = F_rg.Row: Adr2 = Adr1 Do T.Range("B" &
    4 points
  17. الطريقة الاسهل بعيد عن زحمة الاكواد اجعل مصدر التقرير استعلام مضمن في حقل n اجعل المعيار Like "*" & [Forms]![Fsearch]![x1] & "*" في حقل datein اجعل المعيار Between Nz([Forms]![Fsearch]![x2];"01/01/1900") And Nz([Forms]![Fsearch]![x3];"01/01/2100") الملف مرفق New Microsoft Access قاعدة بيانات (3).accdb
    4 points
  18. مشاركة مع اخي @king5star واستاذي القدير @أبو عبدالله الحلوانى الفكرة باختصار لاداعي لتغيير تنسيق الحقل الى 0000 وايضا لاداعي لوضع قناع ادخال للحقل ( اكثر خاصية اتجنبها ) وبالتالي نتحكم بمدخلات الحقل وتنسيقها عن طريق كود بسيط في حدث بعد التحديث لحقل رقم If Not IsNumeric([رقم]) Or Len([رقم]) > 4 Then MsgBox "هذا الحقل رقمي فقط وبعدد 4 ارقم" Me.رقم = "" Else Me.رقم = Format([رقم], "0000") End If اذا اردنا ارقام اكثر نغير رقم 4 الى اي رقم اكبر وكذلك نضع اصفار في السطر الخامس بنفس عدد الرقم في السطر الاول الملف مرفق الأرقام.accdb
    4 points
  19. تفضل أخي الكريم خط السير 2021 (1).rar
    4 points
  20. ومن الممكن استخدام الوحدة النمطية الاتيه فقمت بتصميمها لاجلك ! Public Function ZeroComplete(ZCount As Integer, NumValue As String) As String ' ___ _ ___ _ __ _ ___ _ _ ' | \ (_) ___ | _ ) _ _ | |/ / __ _ _ _ (_) _ __ | __| | | | |_ ___ ___ ___ ___ _ _ _ _ ' | |) | | | (_-< | _ \ | || | | ' < / _` | | '_| | | | ' \ | _| | | | ' \ / _ \ (_-< (_-< / -_) | ' \ | || | ' |___/ |_| /__/ |___/ \_, | |_|\_\ \__,_| |_| |_| |_|_|_| |___| |_| |_||_| \___/ /__/ /__/ \___| |_||_|
    4 points
  21. كان من المفروض تحميل ملف مع شرح المطلوب بدقة (كما اقترح الاستاذ هاني محمد) ولا لزوم لتضييع اكثر من ساعة من الوقت على كتابة معادلات وفي الأخير تظهر انها ليست المطلوبة لذا كنت أريد الاعتذار عن المتابعة بهذا الملف لكن حيث انها المرة الاولى لا بد من الاستجابة الكود Option Explicit Function Salim_Letter(rg As Range) Dim dic As Object, i Dim ST, Mot$ Mot = Replace(rg.Value, " ", "") Set dic = CreateObject("Scripting.Dictionary") For i = 1 To Len(Mot) If Not dic.Exists(Mid(Mot, i, 1)) Then dic(Mid(Mot, i, 1)) = dic.Count End If Next i If dic.Count Then ST
    4 points
  22. طيب شوف المرفق هذا ربما اكثر احترافية ... __DATA144 - kanory.mdb
    4 points
  23. جرب هذا التعديل ووافنا بالنتائج أرجو ان يوافق مرادك ملاحظة: قف علي السجل المراد تحويله ثم اضغط علي الزر وانظر النتائج ولا تنسانا من دعوة بظهر الغيب gov_names.accdb
    4 points
  24. بداية اعتذر من استاذي الفاضل في الاستعجال في الرد وعدم انتظار رده @ابو البشر ولكن لي ملاحظة : استخدام مسميات الحقول بالعربية عمل نموذج للترويسة في التقرير ... كان بامكانك جعل نفس الترويسة عن طريق تقرير فرعي على كل حال أنظر المرفق واعلمنا بالنتيجة ..... خط سير.mdb
    4 points
  25. جرب هذا الكود ... Like "*" & [Forms]![SearchF]![k].[Text] & "*"
    4 points
  26. السلام عليكم لهذه يجب معرفة "كثافة المادة" (لكل مادة كثافة معينة وهي تحسب بـ كلغ/متر مكعب)... مثلا الرمل كثافته بين 1400 و 1700 كلغ/متر مكعب وهكذا... وللتحويل من كلغ إلى متر مكعب يكفي أن تقسم الكمية بالكلغ على كثافة هذه المادة.... والله أعلم..
    4 points
  27. جرب هذا النموذج (فقط اضغط على الزر Sort Please) Option Explicit Sub Creezy_Sort() Dim arr, itm, k% Dim txt Dim Col As Object Set Col = CreateObject("System.Collections.Sortedlist") With Sheets("Salim") arr = .Range("A1").CurrentRegion arr = Application.Transpose(arr) .Range("C1").CurrentRegion.ClearContents For Each itm In arr If InStr(itm, ":") Then txt = Split(itm, ":") If UBound(txt) = 1 Then Col.Add CStr(txt(1)), CStr(txt(0)) End If End If Next itm If Col.Count Then For k
    4 points
  28. جئت متأخراً عموماً الحمدلله لأنك وجدت الحل، لكن إضافة بسيطة استاذ صالح انت تعلم ان بيئة الـ vb6 اصبحت من العصر الحجري وفي حواسيبنا اصبح استخدام ملفات الـ OCX قليل، لذا أقترح عليك ان تقوم بتنصيب حزمة ملفات الـ OCX وتريح نفسك من هالرسائل والمشاكل. تحميل ملفات الـ OCX: https://www.mediafire.com/file/56p7u9p62175d8d/OCX.rar/file
    4 points
  29. وعليكم السلام ... كان عليك استخدام خاصية البحث بالمنتدى تفضل هديتى برنامج مخزنى و دليل حسابات_ECO2_DuClick_store_ بفورم بحث و اضافه 1.0.0 وهذا برنامج اخر برنامج مخازن وكارت صنف2012 من تصميمي.xls
    4 points
  30. وعليكم السلام-يمكنك جلب الإسم بدون تكرار بهذه المعادلة أما الباقى فمعادلة Sumif =IFERROR(INDEX(بيانات!$I$2:$I$240,MATCH(0,INDEX(COUNTIF($B$1:B1,بيانات!$I$2:$I$240),),0)),"") tagg1.xlsm
    4 points
  31. عليكم السلام والرحمة تفضل التعديل ارجو ان يكون طلبك ملاحظة : الكود يراعي يومي السبت والاحد فقط كعطل رسمية اما بقية العطل فيجب تحديدها وبعد معرفة كفاءة الكود يتم تعديل الكود على اساسها Reorder.rar
    4 points
  32. جرب المرفق ..... واعلمنا هل تغيرت السرعة أم لا .... سجلات 01.accdb
    4 points
  33. السلام عليكم ورحمة الله كل عام وأنتم إلى الله أقرب، وعلى الطاعة أدوم وعن النار أبعد. العيد فرحة ما تكمل إلا بوجودكم العيد بهجة ما تحلى إلا بقربكم كل عام وأنتم بخير . مع أطيب نفحات العطور وأروع ألوان الزهور حبيت بس أقول كل عام وأنتم بخير . شعبان شهر وراح ورمضان بالعطر فواح يجعل عيدك أفراح وهمومك تنزاح تقبل الله طاعتكم، وأتم بالعيد فرحتكم، وأقر عينيكم بنصر أمتكم. هلّت الأعياد، وبينهم أفضل عيد، عيد الفطر السعيد، مبارك عليكم
    3 points
  34. لإضافة عمود جديد استخدم اضافة عمود جديد ALTER TABLE table_name ADD column_name varchar(255);
    3 points
  35. تحفة جميلة فريدة .. شكرا ابا غفران ومع فرحي بالتحفة فأنا اشد اعجابا بالحوار بين القامات العلمية وتجسيدهم للامانة العلمية
    3 points
  36. السلام عليكم مشاركه مع الاستاذ كريم جرب الكود بعد التعديل وهو باضافه PtrSafe Option Compare Database Declare PtrSafe Function DisplaySize Lib "user32" Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long Function resizefrom(frm As Form, bestw As Integer, besth As Integer) On Error Resume Next wrate = DisplaySize(0) / bestw hrate = DisplaySize(1) / besth frm.InsideWidth = frm.InsideWidth * wrate frm.InsideHeight = frm.InsideHeight * hrate Dim fc As Control For Each fc In frm.Controls fc.Top = fc.Top * hrate fc.Left = fc.Left * wrate fc.Width = fc.Width * wrate f
    3 points
  37. ويمكنك أيضا استخدام دالة التاريخ: = DateSerial(2020,1,1) وهي (عندي) أفضل من كتابتها بين علامتي الرقم وخصوصا لتجنب الخلط بين اليوم والشهر. كذلك تحتاج أن تجعل نوع الحقل تاريخ فربما النوع عندك نص.
    3 points
  38. وعليكم السلام اتفضل اخى @ازهر عبد العزيز ان شاء الله يكون ما تريد Private Sub idx_NotInList(NewData As String, Response As Integer) Dim strSql As String, x As Integer x = MsgBox("هذا الاسم غير موجود .. هل ترغب في إضافته؟", vbYesNo + vbDefaultButton1) If x = vbYes Then strSql = "Insert Into tbx (x1) values ('" & NewData & "')" CurrentDb.Execute strSql Response = acDataErrAdded Else Response = acDataErrContinue End If End Sub بالتوفيق XY.accdb
    3 points
  39. وهذه طريقة اخرى مشاركة مع استاذي الفاضل @kha9009lid وهي عن طريق انشاء جدول وفرز عمليات كل الموظفين من الجدول المعطى ثم عرضها عن طريق استعلام تجميع ميزة هذه الطريقة انها لا تتقيد بعدد الموظفين الذين يشتركون في العملية ( يعنى ممكن مشاركة العملية عدد لا حصر له من الموظفي ... اثنين أو 100 ) وهذا هو الكود المستخدم DoCmd.SetWarnings False DoCmd.RunSQL "DELETE * FROM Table3" DoCmd.SetWarnings True Dim rstS As DAO.Recordset Dim rstD As DAO.Recordset Dim x() As String Dim i As Long Set rstS = CurrentDb.OpenRecordset("Select * From [Table1]") Set rstD = Curre
    3 points
  40. وعليكم السلام ورحمة الله وبركاته فكرة لك أن اردت جعل الجهاز المعار لا يظهر من اساسة من ضمن الاجهزة المعارة يعني ( الجهاز المسلم للموظف لا يظهر في القائمة حتى يتم تسليمة ) بهذا الشكل تقل عدد الاجخزة بدل اختيارها وظهور رسالة ثم تعيد اختيار جهاز اخر .... IT_v1_0001.rar
    3 points
  41. الصق هذا السطر في الحدث المناسب لحقل الآيبان وليكن بعد التحديث Odb_AccBanck = Right(Odb_AccBanckIBAN, 14) DB2.rar
    3 points
  42. البرنامج من خلاله تقدر تنظم خطوط الاتوبيسات فى العمل لنقل العاملين من والى جهة العمل يساعدك البرنامج فى معرفة مستقلى الخط من الموظفين وعدد الكراسى بالخط (شاغر \ مشغول) والعاملين الحاصلين على بدل انتقال ولا يستقلوا اتوبيسات الشركه او جهة العمل اليوزر : hatem الباسوورد : 2545 رابط التحميل https://drive.google.com/file/d/1G8Aohiy03yR4WVNiPALl42mzh_0_u81d/view?usp=sharing
    3 points
  43. ممتاز اخي و استاذي حسام ولاثراء الموضوع عند استخدام dsum بدون معيار سيتم اضافة مجموع كافة الفواتير و ليس للفاتورة الحالية لذا لابد من استخدام معيار رقم الفاتورة ليكون الناتج صحيح اما فكرتي المتواضعة طالما ان الاجمالي للفاتورة الحالية موجود في النموذج الفرعي ممكن اختصار الكود ليكون Me.Recalc Me.Parent!d = Me.XSum في البداية ااستخدمنا recalc لاعادة تحديث الحقول المحسوبة ثم جعلنا قيمة الاجمالي في الرئيسي تساوي الاجمالي في الفرعي DB.accdb
    3 points
  44. مع انه يمكن الغاء عمل الزر عن طريق خصائص النموذج وبدون الحاجة الى كود لكن ممكن مع الانتباه الى ان تعطيل بعض خصائص النموذج يتطلب لها الدخول على عرض التصميم لذا يمكن التحايل وعملها عن طريق 👇 DoCmd.OpenForm "frm1", acDesign Forms!frm1.CloseButton = False DoCmd.Close acForm, "frm1", acSaveYes DoCmd.OpenForm "frm1" وتفسيره افتح النموذج في عرض التصميم اجعل زر الاغلاق غير مفعل اغلق النموذج مع حفظ التغيير اعد فتح النموذج مشوار طويل ولكن .... الملف مرفق aziz.accdb
    3 points
  45. وعليكم السلام اخى الملف يعمل بكل كفاءة كما ترى ولكن المشكلة لديك انه لا يوجد اى تاريخ قريب لتلوينه قم انت بتغيير اى تاريخ الى تاريخ جديد فليكن بشهر ابريل أو مايو 2021 بأى خلية يدوياً وستجد ان الخلية سيتم تلوينها تلقائياً وشكراً
    3 points
  46. قبل تشغيل الزر خذ جولة على الجدول والاستعلام للتأكد من البيانات نقل المعلومات2.rar
    3 points
  47. هذا يلغي الرسائل Private Sub Form_Error(DataErr As Integer, Response As Integer) Response = acDataErrContinue End Sub
    3 points


×
×
  • Create New...

Important Information