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

وعليكم السلام 🙂 من الطبيعي انك لا تستطيع ان تحذف اي ملف ، ما دام هناك برنامج فاتح الملف 🙂 فالطريقة الصحيحة هي ، اغلاق البرنامج ، ثم حذف الملف 🙂 هنا رابط يخبرك كيف تستطيع اغلاق برنامج : جعفر

السلام عليكم 🙂 صحيح ان الاستاذ احمد اعطاك الحل لبرنامجك ، ولكنك لن تستطيع استعمال هذا البرنامج على الكمبيوترات الاخرى !! الحل الصحيح كما هو في مشاركة الاستاذ احمد الثانية : جعفر

وعليكم السلام ورحمة الله وبركاته تستطيع انشاء حقل جديد في الاستعلام يحول البيانات في مربع النص الى رقم بهذا الشكل Expr1: IIf([TextField] Is Null, 0, Val([TextField]))

تفضل الكريم سيتم اظهار اخر دورتين فقط db1.accdb

أهلا بالجميع.. أهلا أ. @صالح حمادي ... أ. @رمهان يتعمد احراجي دائما.. الروابط في صفحة الويب لها تابع الروابط (Links) يمكن استهدافه والتعديل على خصائصه.. الرابط له خصيصة تدعى الهدف (TARGET) هي التي تتحكم في وجة الرابط.. يمكن التعرف عليها من الرابط التالي Anchor target Property الشفرة التالية تقوم بتغيير قيمة الخصيصة للفتح في الداخل.. Private Sub WebBrowser0_DocumentComplete(ByVal pDisp As Object, URL As Variant) Dim WD As Object Set WD = Me.WebBrowser0.Document For I = 0 To WD.links.length - 1 WD.links(I).Target = "_self" '//WD.links(I).Target = "_blank" Next End Sub يمكن التبديل مع السطر المعطل لمعرفة الفرق.. :: للفائد.. النماذج لها نفس الأسلوب مع التابع (Forms) :: المثال.. ويب.accdb

بعذ اذن الاخ علي وزيادة في اثراء الموضوع هذا الكود Option Explicit Sub Insert_rows() Dim lra%, i%, k% Dim dic As Object, Itm lra = Cells(Rows.Count, 1).End(3).Row On Error Resume Next Range("A1:A" & lra).SpecialCells(xlCellTypeBlanks). _ EntireRow.Delete On Error GoTo 0 lra = Cells(Rows.Count, 1).End(3).Row Set dic = CreateObject("Scripting.dictionary") For i = 1 To lra dic(Range("A" & i).Value) = _ Range("A" & i).Row Next For Each Itm In dic.items Rows(Itm + 1 + k).Insert k = k + 1 Next End Sub الملف مرفق Insert_Ro.xlsm

وعليكم السلام 🙂 من هذا الرابط وجدت الحل : https://www.mrexcel.com/board/threads/vba-code-to-print-pdf-file-from-adobe-reader-dc.939945/ يكون الكود هكذا Shell "C:\Program Files (x86)\Adobe\Acrobat Reader DC\Reader\AcroRd32.exe /p /h " & LocalFileName, vbHide بحيث يكون اسم ملفك ومساره هو المتغير LocalFileName جعفر

السلام عليكم 🙂 ولكن وبما انه لا يمكن تغيير اسم الجدول/الحقل الذي به مسافة بين كلماته ، فالطريقة هي وضغ اسم الحقل/الجدول بين قوسين مربعين [] ، هكذا: Set Rs = db.OpenRecordset("SELECT * FROM [student Table]") جعفر

شكر الله لك .. نعم هذا هو المطلوب ..

السلام عليكم تقضل ان شاء الله يكون المطلوب 'يمكن استخدام الكود التالي (Is Null) للدلالة على الحقل الفارغ' If IsNull(Me.XVisitorName) Then 'اسم الزائر MsgBox "فضلا أدخل اسم الزائر" Me.XVisitorName.SetFocus Exit Sub ElseIf IsNull(Me.XVisitorDay) Then 'اليوم MsgBox "فضلا أدخل اليوم" Me.XVisitorDay.SetFocus Exit Sub ElseIf IsNull(Me.XVisitorDate) Then 'التاريخ MsgBox "فضلا أدخل تاريخ الزيارة" Me.XVisitorDate.SetFocus Exit Sub ElseIf IsNull(Me.XVisitorTaime) Then 'الوقت MsgBox "فضلا أدخل وقت الزيارة" Me.XVisitorTaime.SetFocus Exit Sub ElseIf IsNull(Me.XTarget) Then 'سبب الزيارة MsgBox "فضلا أدخل سبب الزيارة" Me.XTarget.SetFocus Exit Sub End If Database4.rar Database5.rar

كل الاحترام والتقدير عزيزي استمر تحياتي

اشكركم توصلت للحل

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

وعليكم السلام-تفضل تم عمل المطلوب بمعادلات الصفيف بعد ضبط تسمية صفحات الملف برنامج التنسيق 1.xlsm

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم On Error Resume Next Dim X As Integer mySQL = "Select * From tbl1" ' اذا كان TextBox رقم mySQL = mySQL & " WHERE TName = " & Me.TextBox ' اذا كان TextBox نوعه نصي ' mySQL = mySQL & " WHERE TName ='" & Me.TextBox & "'" Debug.Print mySQL Set rst = CurrentDb.OpenRecordset(mySQL) X = rst!TName If X <> 0 Then MsgBox "OK" Else MsgBox "No" End If تحياتي

في هذه الحالة شيت Source هي شيت المصدر و شيت Salim هي شيت النتيجة الكود اللازم Option Explicit Dim My_rgA As Range, My_rgB As Range Dim r% '++++++++++++++++++++++++++++++++++ Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False Set My_rgA = Sheets("Source").Range("A2", Sheets("Source").Range("A1").End(4)) Set My_rgB = Sheets("Source").Range("B2", Sheets("Source").Range("B1").End(4)) If Target.Cells.Count = 1 Then Select Case Target.Address Case "$E$3": get_valB Case "$F$3": get_valA End Select End If Application.EnableEvents = True End Sub '++++++++++++++++++++++++++++++++++++++ Sub get_valB() If Application.CountIf(My_rgA, Range("E3")) Then r = My_rgA.Find(Range("E3"), lookat:=1).Row If r <> 0 Then Range("F3") = My_rgB.Cells(r - 1) Else Range("F3") = IIf(Range("E3") = "", "", "Not Found") End If End Sub '+++++++++++++++++++++++++++++++++++++ Sub get_valA() If Application.CountIf(My_rgB, Range("F3")) Then r = My_rgB.Find(Range("F3"), lookat:=1).Row If r <> 0 Then Range("E3") = My_rgA.Cells(r - 1) Else Range("E3") = IIf(Range("F3") = "", "", "Not Found") End If End Sub الملف الجديد Double_formula 2 Sheets.xlsm

تفضل اخى الكريم يمكنك استخدام هذه المعادلة =SUM(INT((WEEKDAY(A2-{2,3,4,5,6})+B2-A2)/7))-1 1معادلة لطرح التاريخ والوقت معا مع عدم احتساب ايام الاجازات.xlsx

بالضبط كما تفضلت والقصد من استعلام مؤقت هو تعبير مجازي فقط اي ان الاستعلام غير مرئي هو استعلام عادي جداً

السلام عليكم تفضل ما طلبته... والتعديل بسيط جدا.. بن علية حاجي 22 (2).xlsm

اتفضل استاذى الفاضل استبدل علامه * بـ % تم الحل بواسطه البحث بجوجل عالسريع Though it's not actually listed on official lists of Reserved words (I'd suggest that's an oversight) Alike is indeed a keyword in Jet SQL. It's the ANSI Like - which can be used in either mode of compatibility. In other words - when you're using Alike you would use the ANSI wildcard (%) instead of Jet's default (*). So WHERE FieldName Like 'Smith*' would be WHERE FieldName ALike 'Smith%' The behaviour you're seeing (Like automatically changed to Alike in the QBE - I presume it's the QBE - it wouldn't happen in SQL view.. the parser isn't that pushy) implies that you have your application in ANSI mode. (Whereby it assumes you want to use Alike). In fact - in that mode WHERE FieldName Like 'Smith%' would be valid syntax anyway. It's just going for maximum compatilbility in query writing. To remove it: Tools > Options > Tables/Queries > SQL Server Compatible Syntax (ANSI 92) Knock off the checkbox. Cheers. ALike "%" & [Forms]![نموذج1]![texs] & "%" تقبل تحياتى طبتم واهتديتم Database7.rar

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

جزيت خيرا ..

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

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

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

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

تفضل ملفك .... Library.rar

ا/ خالد سيسكو الف الف شكر هو ده فعلا نفس الطريقه تمام الله ينور

أستاذ الارجواني أين الضغط على الإعجاب ؟!!

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

جزيت خيرا تسلم

وعليكم السلام , اهلا بك فى المنتدى -تفضل سلسلة علمنى كيف اصطاد ( الفورم ) Forms

شكرا لك استاد خالد هادا طلبي بتمااااااااااااام كما عرفتك سباق للمساعده ومحب للخدمه بدون كلل ولا ملل كثر الله من امثالك عزيزي

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

السلام عليكم اخى الكريم فوزى اولا : انت لم تحدد فى طلبك ان الطباعة لاكثر من شيت ثالثا : وهو الاهم اليك فورم طباعة لماتريد لعله يفى بطلبك Ahmed1.xlsm

أخي الحبيب ربيع المنتدي وربيع الاوقات الجميلة // شوقي ربيع طبعا واكيد العمل ممتاز كعادة اعمالك ولا يحتاج لتقييم الفرحة والسعادة في عودتك مرة اخرى واطلالك من وقت لاخر اشتقانا جمعيا للحوار البناء ومشاركة الخبرات وتبادل الاراء عودا محمودا اخا عزيزا وغالي تقبل تحياتي

العفو اخى هو ليس استعلام مؤقت بل هو نفس الاستعلام ولكن تم حذف الاستعلام وجعل جمله sql مصدر للنموذج مباشره هل تقصد هل يؤثر فى حركه سير عمل البرنامج ام لا مثل الا ستعلام العادى قبل الحذف ؟ ان كان هذا قصدك فلا يؤثر باذن الله تعالى ان كان قصدك غير ذلك فوضح اكثر تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق طبتم واهتديتم

تحت أمرك وكلنا نتعلم في هذا المنتدى تم التعديل Entry form (2).xlsb

في حدث Class_Initialize للكلاص المسمى ClsConnctionDB ضع رابط قاعدة البيانات امام المتغير strDBPath

بارك الله فيك أستاذنا الفاضل حسين مأمون وبعد إذنك تم التعديل على التكست بوكس التكست بوكس عند الكتابة لا يزيد عن 10 أرقام وتم عمل شرط لو كُتِبَ رقم أقل من 10 أرقام بعد الانتقال منه يتم حذف الأرقام التي كانت خطأ وبالتالي يتم كتابة الرقم من جديد Entry form (2).xlsb

جرب هذا الكود Private Sub CommandButton1_Click() Me.TextBox1.Value = "G" & _ Evaluate("=MAX(IF(ISNUMBER(--(SUBSTITUTE($A$2:$A$100,""G"",""""))),--(SUBSTITUTE($A$2:$A$100,""G"","""")),0))") + 1 End Sub الملف مرفق Max.xlsm

جرب هنا http://support.ricoh.com/bb/html/dr_ut_e/nrg1/model/p410a/p410a.htm?lang=gr

السلام عليكم AhmedEmam ارفق لنا ملف للتصحيح بيكون افضل هذا ملف لاحد الاخوه اظهار كلمة المرور.rar

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

هذه هى النتيجة 03:00 pm وليست 02:30 لا يوجد خطوات فقط اجعل تنسيق خلية الناتج كوقت وذلك كما بالصورة جمع ساعات 1العمل.xlsx

أحسنت استاذ شوقى عمل ممتاز بارك الله فيك وزادك الله من فضله

اخى الفاضل الامير هشام ارجو منك فضلا لا امرا بعد ذلك وضع مثال لما لديك من مشكله وشرح ما تريد حتى يتثنى لاخوانك واساتذتنا رؤيه المشكله وحلها ارفق لك مثال من مكتبتى وجزاه الله خيرا ابو هاجر وربنا يجعله فى موازين حسناته ان شاء الله ارجو ان لا تغضب من كلام اخيك المبتدأ احمد تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق طبتم واهتديتم Calendar2K.mdb وهذا مثال اخر لااذكر من اين قمت بتحميله ولكنه محكوم بداخل النموذج ادراج تاريخ من calender.rar

بارك الله فيك انت عرضت السؤال وانت وضعت الحل ايضا بالطريقة التي ذكرتها يتم تحقيق ذلك If Dir(CurrentProject.Path & "\Pic", vbDirectory) <> "" Then SetAttr (CurrentProject.Path & "\Pic"), vbHidden ElseIf Dir(CurrentProject.Path & "\Pic", vbDirectory) = "" Then MsgBox "لا يوجد ملف حتى يتم التطبيق " SetAttr (CurrentProject.Path & "\Pic"), vbNormal

استبدل المعادلة بهذه

وعليكم السلام تقدر تستخدم هذا الكود: Private Sub Command1_Click() TerminateProcess ("calc.exe") End Sub Private Sub TerminateProcess(app_exe As String) Dim Process As Object For Each Process In GetObject("winmgmts:").ExecQuery("Select Name from Win32_Process Where Name = '" & app_exe & "'") Process.Terminate Next End Sub واذا ما فادك ، استعمل الكود من هنا: http://www.vbforums.com/showthread.php?318582-Terminating-Running-EXE&p=1878673#post1878673 جعفر