ابوخليل

بعد أذن أخي نارت اليك التعديل امل ان يكون كما تحب DATA.rar

ف المثال المرفق تطبيقا لما ذكرته أعلاه وهو يعمل وكلا الزرين يعملان ولكن باستمرار فالواحد منهما يفتح في ضغطة ويقفل في ضغطة اخرى والمطلوب : ان يعمل زر الفتح للفتح فقط مهما تعدد الضغط وينطبق ذلك على زر القفل فلا يعمل الا للقفل فقط آمل من اخواني الاهتمام بهذا الامر وتقبلوا تحياتي ،،، zz.rar

اذا كان انسخ والصق فسيبقى الرصيف رصيف تم التعديل افتح نموذج grv ومن النموذج الفرعي بدل بين أول صنفين طبق ذلك على ما شءت من النماذج مربط الفرس في مربع النص المخفي بجانب الصورة store2011.rar

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

اخواني الكرام السلام عليكم في المرفق ملف avi اريد منع تشغيله من خارج البرنامج أريد ان يتم التشغيل فقط من خلال النموذج شاكرا للجميع المحاولة والمساعدة . Encryption sound file.rar

من شريط الادوات في الاعلى نختار : ادوات / بدء التشغيل ثم من مربع : عرض "النموذج/الصفحة" تختار نموذج البداية ايضا ازل جميع العلامات من مربعات الخيار ، ثم موافق اغلق قاعدة البيانات ثم افتحها من جديد لترى النتيجة تحياتي ،،،

( مكتملا ) لا يعني ارفاق البرناج كاملا بل ترفق من الكائنات ما يفي بالغرض ايضا : اين الصور التي ترغب في اظهارها

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

جزاك الله خيرا

استاذنا نارت لبزو : جزاك الله خيرا هذا الحل اظهر النتيجة ولكن كما ذكرت انها حركة التفافية وهذه الحركة استلزمت زيادة في الخطوات وفقك الله لكل خير وجعله في ميزان حسناتك استاذنا منتصر الآنسي : جزاك الله خيرا حل جميل ومختصر وفقك الله لكل خير

تمت الاضافة الى المكتبة : تقارير / ابداعات / الآنسي2

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

السلام عليكم اخواني يبدو الطلب غريبا في المرفق نموذج يشتمل على عدة حقول غير منظمة ويتم استدعاء الاسماء من الجدول حقلا واحدا من السجل لكل مربع نص بواسطة dlookup وعند النقر على الحقل هناك وحدة نمطية تفتح نموذج آخر و تجلب كامل الاسم ومعلوماته المطلوب : هناك مشكلتان ومطلبان المشكلة الاولى : ان الجلب يتم بدون شرط لذا فان النتيجة ستكون اول اسم مشابه للمطلوب من اعلى الجدول ، وانظر في النموذج ثلاثة اسماء محمد مختلفة ولا يجلب الا الاسم الاول منها لانه اتى بأول محمد صادفه في أول الجدول ( واعتقد ان هذا الشرح واضح ) ستقولون هناك حل : وهو تسمية الحقول بنفس رقم المعرف ثم نضع شرطنا والمطلوب : حيث ان رقم المعرف موجود فعلا في عنص تحكم الحقل ( في جملة dlookup) الا يمكن استنباطه وتطبيق الشرط عليه ومع ذلك فمن لم يتمكن من المطلب الثاني فلا بأس ان يطبق المقترح الأول المشكلة الثانية : كما تلاحظون كل مربع نص له حدث يخصه . المطلوب : عمل حدث واحد عام لكل الحقول نسأل الله التوفيق لنا ولكم ،،، 33.rar

لا نملك لك الا الدعاء احسن الله اليك جزاء احسانك

كل وقتي راح وانا اتأمل التقفيلة هذه يعني محاسب ومصمم وخطاط

ضع مثالك مكتملا لتطبيق الفكرة

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

سلمت أناملك إذا هذه الخاصية AbsolutePosition تعطي رقم السجل الحالي ( يعني :أول سجل رقمه 1)

يا سلام عليك شيء جميل حقا وانما استوقفني هذا السطر وهذا اللفظ اطويل الذي بداخله ، If rs.AbsolutePosition = rs.BOF Then وأيضا عبارتي BOF و EOF يعني بصريح العبارة نريد من فيض علمك كما عودنتا شرح لهذه الوحدة النمطية Public Function Horizontal(tabelle As String, Feld1 As String, Feld2 As String, valFeld1) Dim DB As Database, rs As Recordset Set DB = CurrentDb Set rs = DB.OpenRecordset("select distinct " & Feld2 & " from " & tabelle _ & " where " & Feld1 & "='" & valFeld1 & "' order by " & Feld2) Do If rs.AbsolutePosition = rs.BOF Then Horizontal = rs(Feld2) Else Horizontal = Horizontal & ", " & rs(Feld2) End If rs.MoveNext Loop Until rs.EOF rs.Close DB.Close Set rs = Nothing Set DB = Nothing End Function تكرما وتفضلا وبقدر ما يسمح به وقتك وتقبل تحياتي

جزاكم الله خيرا رفع للفائدة

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

لكن النتيجة صحيحة صحيح ان عملت بالمثل القائل : وين اذنك يا حبشي يعني قفزت الترتيب فلو رأيت الكود لعلمت أني انقصت ماقبله من الرصيد النهائي وعلى كل حال الخطأ أمكن تصليحة فانظر النتيجة الآن الاستاذ القدير نارت : نحن ننتظر ، وليس بنا غنى عن تقييمكم حسابات4.rar

أستاذنا نارت : انت تعشق الليل انظر هذه محاولتي افتح التقرير مباشرة فقد تم التصرف في ارقام المبالغ حتى تتضح الرؤية حسابات2.rar

ولا أتم ولا أكمل .... فقد جمعت الاثنتين جزاك الله خير الجزاء وأسعدك في الدارين

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