cocacola7

شكرا لك اخي سوف يتم تجربة الكود المرسل منك , ثم سوف اعود اليكم و اخباركم بما سيحدث معي

السلام عليكم جميعا لدي ملف اكسل و اريد عدم سرقته و فتحه في اي جهاز اخر . استخدمت الكود التالي لكنه في كل مرة تظهر لي رسالة التنبه الموجودة في الكود بالرغم من وجود الملف في المسار المحدد له في الكود ارجو منكم ( من اصحاب الخبرة والفكر النير ) مساعدتي في حل هذه المشلكة اما تصحيح الكود او التكرم ببرمجة كود اخر يمنع فتح ملف الاكسل المحدد الا بوجود ملف معين في مسار معين , ولكم من جزيل الشكر والتقدير هذا هو الكود الذي معي في الوقت الحالي لكنه لا يعمل بشكل صحيح: Private Sub Workbook_Open() Dim requiredFile As String Dim filePath As String ' حدد المسار والملف المطلوبين filePath = "C:\Program Files\new\officeteam.txt" requiredFile = "officeteam.txt" ' تحقق من وجود الملف If Dir(filePath & "\" & requiredFile) = "" Then MsgBox "ليس لديك الاذن في الاستخدام, يرجى التواصل مع مالك النظام . تنبيه.", vbCritical ThisWorkbook.Close SaveChanges:=False End If End Sub

شكرا لك اخي ازهر 🙂🙂🙂 ممتاز و لكن تظهر لي الرسالة التالية , اريد عدم ظهور هذه الرسالة اذا تكرمت

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

السلام عليكم ورحمة الله وبركاته لدي الكود التالي : numberfield = Me.fash Dim A A = DLookup("[INVOICENO]", "اشعار شحن بضاعة", "[INVOICENO]=" & Me.INVOICENO & " AND [invoicekind]= '" & Me.INVOICEKIND & "'AND [brnchNo]= '" & Me.brnchNo & "' ") If Not (IsNull(A)) Then MsgBox "هذا الفسح موجود من سابق وللتاكد سيتم عرض بياناته الان", vbCritical, "رسالة تحـــزيرية" Cancel = True Me.Undo DoCmd.FindRecord numberfield End If End Sub وظيفة الكود هي التاكد من عدم وجود القيمة المدخلة في الحقل , فاذا كانت موجودة فانه يعرض رسالة تاكد انه تم تسجيل هذه القيمة من قبل ويعرض لك السجل الخاص بها. ما اريده هو عند وجود قيمة معينة مسجلة من قبل ان يعرض لي رسالة فيها زر موافق او الغاء الامر بحيث عند الضغط على زر موافق الموجود في الرسالة يعرض السجل وعند الضغط على زر الغاء الامر لا يتم عرض بيانات السجل ويتيح للمستخدم اكمال بياناته. شكرا لكم مقدما اعتذر منكم الكود في الرسالة السابقة لم يتم تنسيقه بشكل صحيح بسبب اللغة في الرسالة هذا هو الكود الذي لدي numberfield = Me.fash Dim A A = DLookup("[INVOICENO]", "اشعار شحن بضاعة", "[INVOICENO]=" & Me.INVOICENO & " AND [invoicekind]= '" & Me.INVOICEKIND & "'AND [brnchNo]= '" & Me.brnchNo & "' ") If Not (IsNull(A)) Then MsgBox "هذا الفسح موجود من سابق وللتاكد سيتم عرض بياناته الان", vbCritical, "رسالة تحـــزيرية" Cancel = True Me.Undo DoCmd.FindRecord numberfield End If End Sub

شكرا لك اخي حسين . وفقك الله , هذا هو المطلوب

السلام عليكم اتمنا لكم جميعا موفور الصحة والعافية عندي نموذج حتوي على مربع نص باسم(Remark ) اريد عند الطباعة ان يتم طباعة التقرير متظمنا مربع النص هذا في حالة ان يكون بداخله ممتلى وليس فارغ . بمعنى اخر عند وجود كتابة في النموذج في مربع النص ( Remark ) يتم طباعة التقرير وفيه كل الحقول وعندما يكون مربع النص المذكور ( Remark ) فارغا يتم طباعة التقرير بدون مبرع النص هذا ( Remark ). وتقبلوا خالص تحياتي وتقديري اخيكم محمد اليافعي مرفق لكم نموذج NEW FROM NUM (2).rar

شكرا لك من كل اعماق قلبي . انت مبدع , ونفسي اجلس معك لنستفيد منك . وفقك الله واتمنا لك مزيدا من التقدم والتطور.......

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

لسلام عليكم ورحمة الله وبركاته كيفم اخواني جميعا اتمنا ان تكون في صحة جيدة . اريد على المثال السابق ان يكون هناك حقل نصف لكتابة ملاحظة معينة في الصفحة الاولى من التقرير فقط . فهل ممكن ذلك ؟ وكيف ؟ طبعا حقل الملاحظات موجود في النموذج وعند الطباعة اريدة ان يكون مكتوب في النسخة الاولى فقط. شكرا لكم مقدما . NEW FROM NUM.accdb

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

فعلا خبير وتستاهل اكثر من ذلك الاسم , وفقك الله وشكرا لك مرة اخرى

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

اشكرك اخي الاستاذ اشرف الطباعة للسجل الحالي تمام ولكن باقي ان يكون مكتوب على النسخة الاولى 1 من كذا والثانية 2 من كذا وهكذا استنادا على عد الطرود .