Jump to content
أوفيسنا

Leaderboard

Popular Content

Showing content with the highest reputation since 05/08/2021 in all areas

  1. السلام عليكم و رحمة الله تعالى و بركاته دكتورنا كيف حالك. إن شاء الله تكون بخير هذا مثال لإظهار رسالة في شريط المهام دون الحاجة لأي برنامج آخر بالأكسس فقط عرض رسالة على شريط المهام.accdb
    7 points
  2. ربما هذا ما تريده .... جرب واعلمنا بالنتيجة ؟؟؟؟ مثال اوفيسنا القيم الافتراضية (1).accdb
    5 points
  3. 5 points
  4. وعليكم السلام 🙂 طريقة الاخ خالد هي الصحيحة ، ولكن وبما انك طلبت هذه الطريقة الاخرى ، فاليك الطريقة: 1. اعمل استعلام لجدول الذكور ، وأخر لجدول الاناث ، ثم استعلام لجدول الطلبة ، 2. في الاستعلام ، نطلب منه ان يستخرج لنا الاسم الاول من الاسم الكامل ، كما نراه في الحقل F ، 3. نعمل حقل اضافي لتعريف نوع الجنس ، واسمه G : . وهذه النتيجة: . 4. نعمل استعلام لتحديث اسماء الذكور ، وآخر لتحديث اسماء الاناث ، 5. الرابط بين الاستعلامات هو الاسم الاول : . والنتيجة: . تم تحديث جميع الاسماء الموجودة في جدولي ال
    4 points
  5. اظن انه ليس هناك حاجة لاستعمال البوزرفورم (فقط اضغط الزر 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
  6. الطريقة الاسهل بعيد عن زحمة الاكواد اجعل مصدر التقرير استعلام مضمن في حقل 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
  7. مشاركة مع اخي @king5star واستاذي القدير @أبو عبدالله الحلوانى الفكرة باختصار لاداعي لتغيير تنسيق الحقل الى 0000 وايضا لاداعي لوضع قناع ادخال للحقل ( اكثر خاصية اتجنبها ) وبالتالي نتحكم بمدخلات الحقل وتنسيقها عن طريق كود بسيط في حدث بعد التحديث لحقل رقم If Not IsNumeric([رقم]) Or Len([رقم]) > 4 Then MsgBox "هذا الحقل رقمي فقط وبعدد 4 ارقم" Me.رقم = "" Else Me.رقم = Format([رقم], "0000") End If اذا اردنا ارقام اكثر نغير رقم 4 الى اي رقم اكبر وكذلك نضع اصفار في السطر الخامس بنفس عدد الرقم في السطر الاول الملف مرفق الأرقام.accdb
    4 points
  8. تفضل أخي الكريم خط السير 2021 (1).rar
    4 points
  9. ومن الممكن استخدام الوحدة النمطية الاتيه فقمت بتصميمها لاجلك ! Public Function ZeroComplete(ZCount As Integer, NumValue As String) As String ' ___ _ ___ _ __ _ ___ _ _ ' | \ (_) ___ | _ ) _ _ | |/ / __ _ _ _ (_) _ __ | __| | | | |_ ___ ___ ___ ___ _ _ _ _ ' | |) | | | (_-< | _ \ | || | | ' < / _` | | '_| | | | ' \ | _| | | | ' \ / _ \ (_-< (_-< / -_) | ' \ | || | ' |___/ |_| /__/ |___/ \_, | |_|\_\ \__,_| |_| |_| |_|_|_| |___| |_| |_||_| \___/ /__/ /__/ \___| |_||_|
    4 points
  10. السلام عليكم ورحمة الله كل عام وأنتم إلى الله أقرب، وعلى الطاعة أدوم وعن النار أبعد. العيد فرحة ما تكمل إلا بوجودكم العيد بهجة ما تحلى إلا بقربكم كل عام وأنتم بخير . مع أطيب نفحات العطور وأروع ألوان الزهور حبيت بس أقول كل عام وأنتم بخير . شعبان شهر وراح ورمضان بالعطر فواح يجعل عيدك أفراح وهمومك تنزاح تقبل الله طاعتكم، وأتم بالعيد فرحتكم، وأقر عينيكم بنصر أمتكم. هلّت الأعياد، وبينهم أفضل عيد، عيد الفطر السعيد، مبارك عليكم
    3 points
  11. لإضافة عمود جديد استخدم اضافة عمود جديد ALTER TABLE table_name ADD column_name varchar(255);
    3 points
  12. تحفة جميلة فريدة .. شكرا ابا غفران ومع فرحي بالتحفة فأنا اشد اعجابا بالحوار بين القامات العلمية وتجسيدهم للامانة العلمية
    3 points
  13. وبارك عليك اخي اما السؤال فلا يمكن وضع نصوص او كلمات او احرف او رموز داخل حقل نصي ولكن ممكن انشاء وحدة نمطيه تحدث البيانات المرتبطة وتغير حقل الربط لاى شئ تريدة بشرط يكون مفهرس وبارك الله فيك اخى ووفقك الله دائماً الى ما تحت وترضي . كود ممتاز اخى @kha9009lid شكراً لمشاركة الخبرات
    3 points
  14. السلام عليكم مشاركه مع الاستاذ كريم جرب الكود بعد التعديل وهو باضافه 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
  15. ادخل على حسابك من خلال الرابط التالي وفعل التطبيقات الاقل امانا ويعمل معك https://www.google.com/settings/security/lesssecureapps
    2 points
  16. 2 points
  17. عيدكم مبارك أسأل الله أن يجعلنا ممن أعتق رقابهم من النار في شهر رمضان وقبل منهم اعمالهم ومن عليهم بمغفرته ورضوانه آمين وكل عام وانتم بخير
    2 points
  18. تم التعديل كما تريد (مع تلوين الاجابة الصحيحة في حال اختيارها) Salim_Questions.xlsm
    2 points
  19. 2 points
  20. استاذ / Ahmed Sary السلام عليكم الأمر متروك لك من حيث طريقة عملك وقد تفضل استاذنا ومعلمنا / حعفر بعمل المطلوب جزاه الله خيرا ولو تحب اعملك نموذج اخر بالرقم القومى انا تحت امرك
    2 points
  21. وعليكم السلام 🙂 1. اعمل استعلام حذف : . 2. في الواقع انت محتاج الى استعلام الحاقي ، ولكن بالبيانات من الجدول الآخر ، فيصبح الاستعلام هكذا : . ملاحظات مهمة على برنامجك ، حتى حتى لا تحصل على مشاكل في المستقبل : 1. لا تستعمل Lookup في الجدوال ، وانما استعمل استعلام ربط بين جدولين للحصول على المطلوب ، 2. لا تستخدم علامات او ارقام كأسمات لكائناتك ، وبالذات العلامات والاسماء المحجوزة للاكسس ، 3. لا تستعمل اسماء بحروف عربية في كائناتك ، 4. لسرعة عمل الجدول ، يجب عمل حقل المعرّف (مفهرس وترقيم تلقائي) ، والحقل الذي تعتمد عليه
    2 points
  22. تفضل با ضديقي TQTHAMI و عيد سعيد TQTHAMI.xlsm
    2 points
  23. الكود (اذا كانت البيانات كبيرة جداً 100000 ضف ربما يأحذ وقتاً ليس بالقليل) Option Explicit Sub AL_in_One() Dim A As Worksheet, R As Worksheet Dim Rg_To_Copy As Range, F_rg As Range Dim Max_ro%, Adr1%, Adr2% Dim Boldate As Boolean, BolF3 As Boolean Dim BolF4 As Boolean Set A = Sheets("ALL") Set R = Sheets("Repport") R.Range("A8").CurrentRegion.Clear Max_ro = A.Cells(Rows.Count, 1).End(3).Row Set F_rg = A.Range("B2").Resize(Max_ro).Find(R.Range("C3"), lookat:=1) If Not F_rg Is Nothing Then Adr1 = F_rg.Row: Adr2 = Adr1 Do Boldate = IsDate(A.Rang
    2 points
  24. جرب هذا الملف 1- اكتب ما تريد في الــ TextBox1 واضغط Enter 2 -لحذف صنف قم بتضليله في الــ ListBox1 واضغط الزر المناسب الكود Private Sub DeL_It_Click() Dim FND As Range Dim lr%, Ro1%, Ro2%, i% Dim t% Dim my_rg As Range Dim Sh As Worksheet t = Me.ListBox1.ListIndex If t <= 0 Then Exit Sub Set Sh = Sheets("ارشيف العمليات") lr = Sh.Cells(Rows.Count, 1).End(3).Row With Me.ListBox1 Set FND = Sh.Range("D1:D" & lr).Find(Me.ListBox1.List(t, 3), lookat:=1) If FND Is Nothing Then Exit Sub Ro1 = FND.Row: Ro2 = Ro1 End With Do
    2 points
  25. لا حاجة للكود في هذا الملف تكفي المعادلات Badawi.xlsx
    2 points
  26. السلام عليكم 🙂 وعيدكم مبارك ان شاء الله 🙂 اخي ابوحسان ، هل لازلنا نعمل في حدود قوانين المنتدى وهو سؤال واحد لكل موضوع؟ انا اعرف ان اخي الدكتور حسين لا يمل من الاجابة ، ومن اخلاقة انه يستحي ان يقول لا 🙂 جعفر
    2 points
  27. وعليكم السلام أستاذنا الكريم وكل عام وانتم بخير وعيد سعيد عليكم جميعا -يمكنك تجربة الخطوات الموجودة بهذا الرابط ازالة فيروس الفدية في 9 خطوات وفك تشفير الملفات بدون فورمات
    2 points
  28. عليكم السلام. Sub sendOutlookEmail() Dim oApp As Outlook.Application Dim oMail As MailItem Set oApp = CreateObject("Outlook.application") Set oMail = oApp.CreateItem(olMailItem) oMail.Body = "Body of the email" oMail.Subject = "Test Subject" oMail.To = "Someone@somewhere.com" oMail.Send Set oMail = Nothing Set oApp = Nothing End Sub
    2 points
  29. استخدم دالة Trim Trim([num]) num اسم الحقل الذي توجد مسافة او فراغ في بدايته اخي عزيز لو وضعت موضوع جديد افضل من رفع موضوع قديم وكل عام وانتم بخير
    2 points
  30. 2 points
  31. Try this code Sub fil_empty() Range("A1").CurrentRegion.SpecialCells(4) = "Abscent" End Sub
    2 points
  32. تصميم شريط ريبون احترافي في الاكسيس – بايقونات احترافيه تصميم شريط ريبون احترافي في الاكسيس – بايقونات احترافيه تصميم شريط ريبون احترافي في الاكسيس – بايقونات احترافيه لغه xml دعنا الان نبدا في تصميم شريط ريبون جديد RibbonXml تصميم شريط ريبون احترافي في الاكسيس – بايقونات احترافيه لحفظ الصور داخل القاعده البيانات button اضافه مكتبه برمجيه تصميم
    2 points
  33. عليكم السلام ورحمة الله وبركاته، الحمدلله انا بخير، شكرا لسؤالك شكرا لك استاذ صالح، صراحة اغنيت رصيدي المعرفي، لان سابقاً قمت بعمل برنامج لكي يؤدي هذا الغرض.
    2 points
  34. اقترح عليك استبدال اسلوب الإدخال و استدعاء البيانات بالطريقة التالية اي الاتصال بقاعدة البيانات عند الحاجة لها و اغلاقها بعد جلب البيانات Dim openSQL As ADODB.Connection Dim rs As New ADODB.Recordset Dim ID As Integer ID = TextID Dim MyName As String MyName = TextIDMyName Set openSQL = New ADODB.Connection openSQL.Open "Provider=SQLOLEDB;Data Source=عنوان قاعدة البيانات" Set rs = openSQL.Execute("UPDATE [Plans1] SET [Subject]='" & MyName & "' where [NO]='" & MyName & "' ") MsgBox "تحديث البيانات بنجاح", vbInformation + vbMsgBoxRight, "تأكيد" openSQL.Cl
    2 points
  35. الله الله الله ... أسأل الله في هذه الساعات المباركات أن يوفقكم ويسعدكم سعادة لا شقاء بعدها أبدا،،، تميز
    2 points
  36. جرب هذا التعديل لعله يوافق مرادك كل ما فعلته هو التعديل علي قيمة اليسار والأعلي للدائرة لاحظ المرفق القديم والمرفق الجديد لتري ما تم من تغير في القيم خط السير 2021.rar
    2 points
  37. كان من المفروض تحميل ملف مع شرح المطلوب بدقة (كما اقترح الاستاذ هاني محمد) ولا لزوم لتضييع اكثر من ساعة من الوقت على كتابة معادلات وفي الأخير تظهر انها ليست المطلوبة لذا كنت أريد الاعتذار عن المتابعة بهذا الملف لكن حيث انها المرة الاولى لا بد من الاستجابة الكود 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
    2 points
  38. اهم الاختلافات : اسماء المخازن في الكمبولست هي التر تظهر في التقرير يمكن تعديل مسميات المخازن من خلال الجدول أنظر الصور
    2 points
  39. طيب شوف المرفق هذا ربما اكثر احترافية ... __DATA144 - kanory.mdb
    2 points
  40. اخي الكريم هل طبق ما في هذه المشاركة للعلم ان التقرير والكود اساسا اعتماده على الارقام .... يعني لو حذفت هذه الارقام يختل الكود وطريقة ظهور البيانات في التقرير وهذا يعيدنا للمربع الاول للسؤال .... 😅
    2 points
  41. سبب المشاكل كلها هي الخلايا المدمحة
    1 point
  42. ليس لدي نسخة 2003 للتجربة عليها ولكن المرفق يعمل عندي بغير مشاكل يبدو ان المشكلة بان الخاصية لا تقبل القيمة 0 في الاصدار 2003 جرب أن تجعل القيمة 1 مثلا وانظر النتيجة. لان الخطأ يظهر كما بالصورة عند القيمة 0 ولا يظهر عند القيمة 100
    1 point
  43. عليكم السلام.. CurrentDb.TableDefs("ShouldImportMetricsIDsTable").Fields("ImportStatus").DefaultValue = "No"
    1 point
  44. تفضل يا اخى الملف فى المرفقات =INDEX($B$3:$D$16,SMALL(IF($D$3:$D$16="الاولى",ROW($B$3:$D$16)-2,""),ROW($A1)),1) وضحنا كتير هذا الأمر مسبقاً من قبل هذه معادلة مصفوفة وليست معادلة عادية ... فلابد من الضغط على ( Ctrl+Shift+Enter) وليس Enter فقط كباقى المعادلات وشكراً المطلوب.xlsx
    1 point
  45. في المرفق مثال لبعض الأمثلة تفيد في التحكم في النصوص أرجو أن تجدوا منه ولو قليل من الفائدة ولكم تحياتي edet_text.zip
    1 point
  46. لدي مربع نص ( تنسيق تاريخ يوم - شهر - سنة ) أريد اضافة عدد من الاشهر اليه مثال : 02/05/1424 أريد اضافة عدد 3 أشهر ليكون الناتج 02/08/1424 ما هي الدالة التي تساعد على ذلك
    1 point
  47. السلام عليكم ورحمة الله وبركاته الملف المرفق وجدته في أحدى المنتديات الأجنبية،،، يحتوى على مثال لطريقة البحث في جميع السجلات عن كلمة كاملة أو جزء منها وإظهار النتيجة في نموذج فرعي SubForm. أتمنى أن يكون مفيداً ، وأرجوا المعذرة ان كان الموضوع مكرراً. SearchEngineDemo.rar
    1 point


×
×
  • Create New...

Important Information