Leaderboard

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

ربما هذا ما تريده .... جرب واعلمنا بالنتيجة ؟؟؟؟ مثال اوفيسنا القيم الافتراضية (1).accdb

هل هذا ماتريده .....

وعليكم السلام 🙂 طريقة الاخ خالد هي الصحيحة ، ولكن وبما انك طلبت هذه الطريقة الاخرى ، فاليك الطريقة: 1. اعمل استعلام لجدول الذكور ، وأخر لجدول الاناث ، ثم استعلام لجدول الطلبة ، 2. في الاستعلام ، نطلب منه ان يستخرج لنا الاسم الاول من الاسم الكامل ، كما نراه في الحقل F ، 3. نعمل حقل اضافي لتعريف نوع الجنس ، واسمه G : . وهذه النتيجة: . 4. نعمل استعلام لتحديث اسماء الذكور ، وآخر لتحديث اسماء الاناث ، 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" &

الطريقة الاسهل بعيد عن زحمة الاكواد اجعل مصدر التقرير استعلام مضمن في حقل 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

مشاركة مع اخي @king5star واستاذي القدير @أبو عبدالله الحلوانى الفكرة باختصار لاداعي لتغيير تنسيق الحقل الى 0000 وايضا لاداعي لوضع قناع ادخال للحقل ( اكثر خاصية اتجنبها ) وبالتالي نتحكم بمدخلات الحقل وتنسيقها عن طريق كود بسيط في حدث بعد التحديث لحقل رقم If Not IsNumeric([رقم]) Or Len([رقم]) > 4 Then MsgBox "هذا الحقل رقمي فقط وبعدد 4 ارقم" Me.رقم = "" Else Me.رقم = Format([رقم], "0000") End If اذا اردنا ارقام اكثر نغير رقم 4 الى اي رقم اكبر وكذلك نضع اصفار في السطر الخامس بنفس عدد الرقم في السطر الاول الملف مرفق الأرقام.accdb

تفضل أخي الكريم خط السير 2021 (1).rar

ومن الممكن استخدام الوحدة النمطية الاتيه فقمت بتصميمها لاجلك ! Public Function ZeroComplete(ZCount As Integer, NumValue As String) As String ' ___ _ ___ _ __ _ ___ _ _ ' | \ (_) ___ | _ ) _ _ | |/ / __ _ _ _ (_) _ __ | __| | | | |_ ___ ___ ___ ___ _ _ _ _ ' | |) | | | (_-< | _ \ | || | | ' < / _` | | '_| | | | ' \ | _| | | | ' \ / _ \ (_-< (_-< / -_) | ' \ | || | ' |___/ |_| /__/ |___/ \_, | |_|\_\ \__,_| |_| |_| |_|_|_| |___| |_| |_||_| \___/ /__/ /__/ \___| |_||_|

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

لإضافة عمود جديد استخدم اضافة عمود جديد ALTER TABLE table_name ADD column_name varchar(255);

تحفة جميلة فريدة .. شكرا ابا غفران ومع فرحي بالتحفة فأنا اشد اعجابا بالحوار بين القامات العلمية وتجسيدهم للامانة العلمية

وبارك عليك اخي اما السؤال فلا يمكن وضع نصوص او كلمات او احرف او رموز داخل حقل نصي ولكن ممكن انشاء وحدة نمطيه تحدث البيانات المرتبطة وتغير حقل الربط لاى شئ تريدة بشرط يكون مفهرس وبارك الله فيك اخى ووفقك الله دائماً الى ما تحت وترضي . كود ممتاز اخى @kha9009lid شكراً لمشاركة الخبرات

السلام عليكم مشاركه مع الاستاذ كريم جرب الكود بعد التعديل وهو باضافه 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

ادخل على حسابك من خلال الرابط التالي وفعل التطبيقات الاقل امانا ويعمل معك https://www.google.com/settings/security/lesssecureapps

تفضل التعديل email.1.accdb

عيدكم مبارك أسأل الله أن يجعلنا ممن أعتق رقابهم من النار في شهر رمضان وقبل منهم اعمالهم ومن عليهم بمغفرته ورضوانه آمين وكل عام وانتم بخير

تم التعديل كما تريد (مع تلوين الاجابة الصحيحة في حال اختيارها) Salim_Questions.xlsm

تفضل التعديل DATA200019.mdb.zip

استاذ / Ahmed Sary السلام عليكم الأمر متروك لك من حيث طريقة عملك وقد تفضل استاذنا ومعلمنا / حعفر بعمل المطلوب جزاه الله خيرا ولو تحب اعملك نموذج اخر بالرقم القومى انا تحت امرك

وعليكم السلام 🙂 1. اعمل استعلام حذف : . 2. في الواقع انت محتاج الى استعلام الحاقي ، ولكن بالبيانات من الجدول الآخر ، فيصبح الاستعلام هكذا : . ملاحظات مهمة على برنامجك ، حتى حتى لا تحصل على مشاكل في المستقبل : 1. لا تستعمل Lookup في الجدوال ، وانما استعمل استعلام ربط بين جدولين للحصول على المطلوب ، 2. لا تستخدم علامات او ارقام كأسمات لكائناتك ، وبالذات العلامات والاسماء المحجوزة للاكسس ، 3. لا تستعمل اسماء بحروف عربية في كائناتك ، 4. لسرعة عمل الجدول ، يجب عمل حقل المعرّف (مفهرس وترقيم تلقائي) ، والحقل الذي تعتمد عليه

تفضل با ضديقي TQTHAMI و عيد سعيد TQTHAMI.xlsm

الكود (اذا كانت البيانات كبيرة جداً 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

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

لا حاجة للكود في هذا الملف تكفي المعادلات Badawi.xlsx

السلام عليكم 🙂 وعيدكم مبارك ان شاء الله 🙂 اخي ابوحسان ، هل لازلنا نعمل في حدود قوانين المنتدى وهو سؤال واحد لكل موضوع؟ انا اعرف ان اخي الدكتور حسين لا يمل من الاجابة ، ومن اخلاقة انه يستحي ان يقول لا 🙂 جعفر

وعليكم السلام أستاذنا الكريم وكل عام وانتم بخير وعيد سعيد عليكم جميعا -يمكنك تجربة الخطوات الموجودة بهذا الرابط ازالة فيروس الفدية في 9 خطوات وفك تشفير الملفات بدون فورمات

عليكم السلام. 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

استخدم دالة Trim Trim([num]) num اسم الحقل الذي توجد مسافة او فراغ في بدايته اخي عزيز لو وضعت موضوع جديد افضل من رفع موضوع قديم وكل عام وانتم بخير

تفضل اخي الكريم empoyee - Copie (1).accdb

Try this code Sub fil_empty() Range("A1").CurrentRegion.SpecialCells(4) = "Abscent" End Sub

تصميم شريط ريبون احترافي في الاكسيس – بايقونات احترافيه تصميم شريط ريبون احترافي في الاكسيس – بايقونات احترافيه تصميم شريط ريبون احترافي في الاكسيس – بايقونات احترافيه لغه xml دعنا الان نبدا في تصميم شريط ريبون جديد RibbonXml تصميم شريط ريبون احترافي في الاكسيس – بايقونات احترافيه لحفظ الصور داخل القاعده البيانات button اضافه مكتبه برمجيه تصميم

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

اقترح عليك استبدال اسلوب الإدخال و استدعاء البيانات بالطريقة التالية اي الاتصال بقاعدة البيانات عند الحاجة لها و اغلاقها بعد جلب البيانات 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

الله الله الله ... أسأل الله في هذه الساعات المباركات أن يوفقكم ويسعدكم سعادة لا شقاء بعدها أبدا،،، تميز

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

كان من المفروض تحميل ملف مع شرح المطلوب بدقة (كما اقترح الاستاذ هاني محمد) ولا لزوم لتضييع اكثر من ساعة من الوقت على كتابة معادلات وفي الأخير تظهر انها ليست المطلوبة لذا كنت أريد الاعتذار عن المتابعة بهذا الملف لكن حيث انها المرة الاولى لا بد من الاستجابة الكود 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

اهم الاختلافات : اسماء المخازن في الكمبولست هي التر تظهر في التقرير يمكن تعديل مسميات المخازن من خلال الجدول أنظر الصور

طيب شوف المرفق هذا ربما اكثر احترافية ... __DATA144 - kanory.mdb

تفضل .................. __DATA144 - kanory.mdb

هل هذا ما تريد ؟؟؟؟؟

اخي الكريم هل طبق ما في هذه المشاركة للعلم ان التقرير والكود اساسا اعتماده على الارقام .... يعني لو حذفت هذه الارقام يختل الكود وطريقة ظهور البيانات في التقرير وهذا يعيدنا للمربع الاول للسؤال .... 😅

استبدلها بهذا ... ="مستودع"

سبب المشاكل كلها هي الخلايا المدمحة

ليس لدي نسخة 2003 للتجربة عليها ولكن المرفق يعمل عندي بغير مشاكل يبدو ان المشكلة بان الخاصية لا تقبل القيمة 0 في الاصدار 2003 جرب أن تجعل القيمة 1 مثلا وانظر النتيجة. لان الخطأ يظهر كما بالصورة عند القيمة 0 ولا يظهر عند القيمة 100

عليكم السلام.. CurrentDb.TableDefs("ShouldImportMetricsIDsTable").Fields("ImportStatus").DefaultValue = "No"

تفضل يا اخى الملف فى المرفقات =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

في المرفق مثال لبعض الأمثلة تفيد في التحكم في النصوص أرجو أن تجدوا منه ولو قليل من الفائدة ولكم تحياتي edet_text.zip

لدي مربع نص ( تنسيق تاريخ يوم - شهر - سنة ) أريد اضافة عدد من الاشهر اليه مثال : 02/05/1424 أريد اضافة عدد 3 أشهر ليكون الناتج 02/08/1424 ما هي الدالة التي تساعد على ذلك

السلام عليكم ورحمة الله وبركاته الملف المرفق وجدته في أحدى المنتديات الأجنبية،،، يحتوى على مثال لطريقة البحث في جميع السجلات عن كلمة كاملة أو جزء منها وإظهار النتيجة في نموذج فرعي SubForm. أتمنى أن يكون مفيداً ، وأرجوا المعذرة ان كان الموضوع مكرراً. SearchEngineDemo.rar