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

الحمد لله شكرا للجميع

Hتفضل أخي @عبد اللطيف سلوم ملفك ... ارجو اني وفقت Ka_mas.accdb

السلام عليكم وتفضلوا ايضا If MsgBox("هل ترغب في حذف السجل", vbInformation + vbYesNo) = vbYes Then str_Title = "حذف سجل" str_Prompt = "ادخل كلمة المرور" paswrd = InputBox(str_Prompt, str_Title) If paswrd = "123" Then DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70 DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70 Else Exit Sub End If End If يبدوا اننا كنا نعمل في وقت واحد

السلام عليكم ورحمة الله وبركاته أسمحوا لي بمشاركتم أخي @عبد اللطيف سلوم و أخي @ابو ياسين المشولي بهذا الكود If MsgBox("سيتم حذف السجل " & vbCrLf & _ "هل تريد المتابعة ؟؟", _ vbInformation + vbYesNo, _ "تحذير") = vbYes Then Dim strPWord As String strPWord = InputBox("فضلا ادخل الرقم السري", "الرقم السري") If strPWord = "123" Then DoCmd.SetWarnings False DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70 DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70 DoCmd.SetWarnings True End If Else Exit Sub End If

السلام عليكم فاتورة شراء وبيع المعدلة تحياتي فاتورة شراء وبيع المعدلة.rar

حصلت على كود من احد الاصدقاء بحيث يجعل برنامج الاكسس يعمل لوحده على الشاشة ولا يستطيع المستخدم رؤية اي شيء سوى النماذج فقط حسب ما تقوم انت بتحديده تقوم بنسخ الملف المرفق الى قاعدة البيانات وتستدعيه من خلال اول نموذج يفتح في خيار الحالي وتكتب به Private Sub Form_Current() fSetAccessWindow (SW_SHOWMINIMIZED) End Sub هناك شرط لكي يعمل معك البرنامج بشكل صحيح ان تكون جميع النماذج منبثقة مرفق صورة من البرنامج الخاص بي كمثال minimize access.accdb

اتفضل test0772008174s.accdb

اخي @انس المنصوري انا لم اعدل في الملف الذي ارفقته شيئ ... كل ما فعلته هو اضافة كود تحديث في مربع النص التاريخ الى .... ان اردت اشرح جميع العمليات ابتداءا من الاستعلام ... ابشر

السلام عليكم اساتذتي الافاضل ورحمة الله وبركاته هناك احد رموز هذا الصرح العلمي الكبير قد افتقدناه اكثر من ثلاثة اسابيع الا وهو الاستاذ الفاضل ابا جودي عسى ان يكون الغياب خير اللهم بجاه هذا الشهر الفضيل ان تمن عليه وعلى عائلته الكريمة بالصحة والعافية وعلى كل اعضاء ومؤسسي وزوار هذا المنتدى الاكثر من رائع يارب اخواني واستاذتي الافاضل يرجى السؤال عن زميلنا الاستاذ الفاضل ابا جودي والاطمأنان على صحته واخبارنا ربنا معاكم وحافظكم يارب يارب ولكم جزيل الشكر والاحترام

أخي @جابر ناصر تفضل ملفك ... أرجو أن يكون هو مطلبك ... Ka_جابر.rar

أخي الكريم @انس المنصوري مثالك بعد التعديل .....حاول اكتشاف ماهو التعديل لديك ... ,اعلمني بالتعديل للفائدة فقط Ka_الصندوق (1).accdb

سباق في الخيرا أخي @ابوخليل ههههه بارك في الجهود الحمد لله رب العالمين

تمت العملية بنجاح هذا هو المطلوب اشكرك اخي @kanory واشكر جميع الاخوة اللي ساهموا معي بالحل تمت العملية بنجاح

اتفضل Dim x x = MsgBox("( هـل تـريـد حـذ ف بـيـانـات الـعـمـيـل " & " ( " & [اسم العميل] & " " & vbCrLf & _ "إضغط موافق للحذف أوإضغط لا لعدم الحذف أو إضغط الغاء الأمر", _ vbInformation + vbMsgBoxRight + vbYesNoCancel, _ "( تنبيـــه : سـوف يـتـم حـذف بيانات العميل ( " & [اسم العميل] & " ") If x = vbYes Then Retry: TimerId = SetTimer(0, 0, 1, AddressOf TimerProc) Dim MyPassword As String str_Title = "بـرنـامـج الـخـيـاط" str_Prompt = "أدخـل كـلـمـة الـسـر لـحــذف بـيـانـات الـعـمـيـل" MyPassword = InputBox(str_Prompt, str_Title) Select Case MyPassword Case "123" Beep MsgBox "الأن... يـمكـنـك حــذف بـيـانـات الـعـمـيـل""( " & [اسم العميل] & " ) ", vbOKOnly + vbInformation, " تبيه " Case Else Beep If MsgBox(" عــفــوا .. كــلــمــة الــســر خــاطــئــة " & vbCrLf & " مــن حــســن إســـلام الـمــرء تــركــه مــا لا يــعــنــيــه ", vbInformation + vbRetryCancel, " تبيه ") = vbRetry Then GoTo Retry Exit Sub MsgBox "تم الرجوع", vbInformation, "إلغاء العملية" End Select Me.Refresh DoCmd.SetWarnings False DoCmd.RunSQL "DELETE data.* FROM data where nofatora = [forms]![data]![رقم الفاتورة2];" Me.Requery If Not IsNull(Me.[اسم العميل]) Then Dim strdeleterMssage As String strdeleterMssage = "تـم حـذ ف بـيـانـات الـعـمـيـل " strdeleterMssage = strdeleterMssage & " بـنـجـاح" MsgBox (strdeleterMssage), vpInFormation, " تنبيه " DoCmd.SetWarnings True DoCmd.GoToRecord , , acLast End If End If End If عدل مسميات النموذج والحقول

أستكمالا لسلسلة ماتستطيعة المعادلة مثلها مثل الكود هذه معادلة تبدو فى ظاهرها عادية ولكن فوائدها كبيرة جدا من حيث أنها تقوم بفصل الأسماء والأرقام ووضعها فى عمود مستقل مهما كان طول الأسم والرقم معتمدة فى ذلك على ( الفراغ(" ")مابين الأسماء وبعضها أو( ";") أو ("-" )أوالكومة (",") .......الخ ) وبهذا تكون هذه المعادلة بكل المقاييس ذات فائدة عظيمة لكل من يطلب مثل هذا الفصل وهم كثروا. ألى المعادلة متمنيا أن تكون ذات فائدة لكل من عانى من فصل الأسم أو الرقم أوفصل خليط من الأرقام والأسماء إخوتى وزملائى المرفق الثانى يتضمن مزيدا من الشروط وكيفية تغيير شرط المعادلة لتقوم بطرق الفصل بشروط مختلفة معادلة تقوم بفصل كل ماتريد.rar معادلة تقوم بفصل كل ماتريد 2.rar

اخي @عبد اللطيف سلوم قيد التجربة ....... بارك الله فيك

تفضل DELL.xlsx

تفضل المصاريف.xlsm

أخي @جابر ناصر تفضل ملفك ... أرجو أن يكون هو مطلبك ... Ka_جابر.accdb

نعم هي قاعدة بيانات جداول فقط مهمة جدا تستنير بها لوجود البيانات مكتملة ... لاحظ الجدول المسمى SDBMNTBC

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

فعلا رمز من رموز المنتدي الهم اشفي اخونا محمد عصام واعفو عنه انه مثال للادب والاحترام

الله يكتب لهم جميعا السلامة والعافية

امين يارب ويشفى كل مريض

اعتقد اننا رايت في مشاركه له انه مريض دعواتكم اليه@اباجودي اللهم إنا نسألك بأسمائك الحسنى وبصفاتك العلا وبرحمتك التي وسعت كلّ شيء أن تمنّ علينا بالشفاء العاجل، وألّا تدع فينا جرحاً إلّا داويته ولا ألماً إلا سكنته ولا مرضاً إلا شفيته، وألبسنا ثوب الصحة والعافية عاجلاً غير آجلاً وشافِنا وعافِنا واعف عنا، واشملنا بعطفك ومغفرتك وتولّنا برحمتك يا أرحم الراحمين اللهم ربي كما انزلت شفاك لابني زاهر رغم المرض القاتل الذي الم به فاشفيته ان تنزل الشفاء لكل مريض رحماك يالله تحياتي اليكم

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

حفظكم الله و رعاكم

الله يعطيه الصحة والعافية استاذنا @ابا جودىنتمنى ان يكون بالف خير يارب وكذلك غياب استاذنا القدير والمحب الى قلوبنا jjafferr نتمنى ان يكون بصحة وعافية جيدة هو وافراد عائلته والله اشتقنا لتواجدك بالمنتدى استاذنا العزيز

الله يعطيه الصحه والعافيه أن شاء الله لا يكون مسه اي مكروه

,وعليكم السلام ورحمة الله وبركاته أخي @حربي العنزي نرجوا أن يكون أخانا @ابا جودى بخير وسلامة

افتح نموذجك في وضع تصميم اعمل زر جديد عليه وفي محرر فيجوال اكتب الكود الاعلاه

هل اصدار اوفيسك العربية ام انكليزية هذا للانكليزية SendKeys "{F10}" SendKeys "tdc" وهذا لاصدار العربية SendKeys "{F10}" SendKeys "]sq"