يوسف أحمد

و عليكم السلام و رحمة الله و بركاته
اخي الكريم ابو الحسن
مرفق مثال لما طلبت  : في حال كان جهازك متصل بالانترنت يعمل زر الاغلاق و في حال عدم الاتصال لا يعمل الزر و تظهر لك رسالة تفيد بذلك
ارجو ان يكون هو المطلوب
 
بالتوفيق
internet Check.rar

السلام عليكم و رحمة الله و بركاته
اخواني و اساتذتي الاعزاء رواد منتدانا الغالي 
 
اضع بين يديكم مثال لارسال ايميل مع مرفق لمستلمين يتم اختيار سجلاتهم . هذه الطريقه تعتمد على الاوتلوك و قد رأيت امثله جميله من الاساتذه في هذا المنتدى و احببت ان اشارك بمثالي عسى ان يكون به فائده لمن يحتاجه .
ليعمل البرنامج يحتاج الى اضافة مرجع للاوتلوك من محرر الفيجوال بيسك ثم اختيار القائمه Tools
 
محبكم يوسف أحمدSend Email.rar
 
 
 

اذا لم يكن هو المطلوب فاعتقد بأن التعبير ادناه يؤدي الغرض
 
Not Like "[*<<*]" And Not Like "*@*" And Not Like "*$*" And Not Like "*'*'*" And Not Like "*^*" And Not Like "[*+*]" And Not Like "*=*" And Not Like "*!*" And Not Like "*%*" And Not Like "[*#*]" And Not Like "*|*" And Not Like "*<*" And Not Like "*؟*"  

لا شكر على واجب اخي العزيز حسين
اهلا بك اكثر استاذنا الغالي شيفان  .. بارك الله فيك و جعل ما تقدمه في موازين حسناتك 
تفضل الكود بحدث عند مفتاح للاسفل للنموذج
Select Case KeyCode Case 37 ' Key left Me.asdl.SetFocus KeyCode = 0 Case 38 'Key up Me.t1.SetFocus KeyCode = 0 Case 39 ' Key right Me.ubdet.SetFocus KeyCode = 0 Case 40 ' Key down Me.barc.SetFocus KeyCode = 0 End Select بالتوفيق

و عليكم السلام و رحمة الله و بركاته
 
تفضل المرفق بعد التعديل  .. تم انشاء الاستعلام qry1
 
بالتوفيق
Company.rar

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

و عليكم السلام و رحمة الله و بركاته
 
اخي العزيز
 
تفضل تصحيح الخطأ
 
=DCount("التسلسل";"[المراجعين]";"[اسماء الموظفين]='سالم' and [المدرسة]='الاولى'")  
و انصحك بعدم استخدام اللغة العربية لاسماء الحقول و الجداول و جميع كائنات الاكسس الاخرى .
 
تفضل المرفق بعد التعديل
 
بالتوفيق
عدد تكرار بين حقلين.rar

لا شكر على واجب اخي العزيز محمد
 
استبدل الاجراء بالتالي : 
 
Select Case Me.TabCtl0 Case 0 Me.Cmdaaa.Visible = True Me.cmdbbb.Visible = flase Me.cmdccc.Visible = flase MsgBox "aaa" Case 1 Me.cmdbbb.Visible = True Me.Cmdaaa.Visible = flase Me.cmdccc.Visible = flase MsgBox "bbb" Case 2 Me.cmdccc.Visible = True Me.Cmdaaa.Visible = flase Me.cmdbbb.Visible = flase MsgBox "ccc" End Select  
تفضل المرفق بعد التعديل
 
بالتوفيق
 
 
Tapages.rar

و عليكم السلام
 
ممكن عمل ذلك بالكود التالي
 
If IsNull(Combo_a) And IsNull(Combo_a) Then txt_confirm = 1 If Not IsNull(Combo_a) And IsNull(txt_s) Then txt_confirm = 2 If Not IsNull(txt_s) And IsNull(Combo_a) Then txt_confirm = 3 If Not IsNull(Combo_a) And Not IsNull(txt_s) Then txt_confirm = 4  
بالتوفيق

بارك الله فيك اخي العزيز ابو عبد الله  و جزاك خير الجزاء
 
اضع لك مثال بطريقة اخرى .. لاحظ استخدام الخاصية ZoomControl بالوحدة النمطية 
 
ضع قيمة للزوم الذي تريده ما بين 25 و 200  فقط بمربع النص الخاص بالزوم قبل عرض التقرير ثم اعرض التقرير .
 
 
ارجو ان يكون هو المطلوب
 
 
بالتوفيق للجميع
zoom .rar

بارك الله فيك اخي العزيز عبد الرحمن هاشم و جزاك خير الجزاء
 
اود اضافة حل آخر بإستخدام خاصية RecordCount  لمجموعة السجلات
 
مرفق الملف بعد التعديل
 
بالتوفيق للجميع
USER.rar

تفضل اخي العزيز خالد 
Dim rs As Recordset Set rs = Me.Recordset With rs  .MoveFirst   Do Until .EOF    If [TEXT2] = "MOBINIL" And [TEXT3] = "TOPUP" Then       TEXT5 = [TEXT4] * 0.026    Else       If [TEXT2] = "MOBINIL" And [TEXT3] = "BILLPAYMENT" Then          TEXT5 = 1.6 * 1       Else          If [TEXT2] = "VODAFONE" And [TEXT3] = "TOPUP" Then              TEXT5 = [TEXT4] * 0.038          Else             If [TEXT2] = "VODAFONE" And [TEXT3] = "BILLPAYMENT" Then                TEXT5 = 4.8 * 0.038             Else               TEXT5 = [TEXT4] = 0             End If          End If       End If     End If   .MoveNext    Loop .MoveFirst End With Set rs = Nothing بالتوفيق

ان شاء الله لن يطول اكثر من هذا 
 
كلامك صحيح و اشكرك جداً على اختبارك للحل و ملاحظاتك القيمة 
 
و بإذن الله الكود التالي سيحل جميع المشاكل السابقة 
On Error Resume Next Dim rs As Recordset Set rs = Me.Recordset With rs  .MoveFirst   If Me.ok = 0 Then     .MoveNext     DoCmd.OpenReport "report", acViewNormal, , "ok=yes"   Else     DoCmd.OpenReport "report", acViewNormal, , "ok=yes"     .MoveNext   End If End With Set rs = Nothing وهذا الملف بعد التعديل
 
ارجو ان يكون هو المطلوب هذه المرة 
 
 
بالتوفيق اخي العزيز
print4.rar

بارك الله فيك اخي علي
 
ما كنت اقصده هو ما تفضلت به انت في سؤالك 
 
 
الاضافة عن طريق نموذج ادخال افضل من نموذج التحديث .. مع انه يمكن عمل ذلك و لكن يبقى الاسم لابد من ادخاله عن طريق نموذج الادخال... 
 
هناك نقاط اخرى بالمرفق و هي :
 
1: لا بد من تلافي الخطأ عند عدم ادخال الرقم او العمر و اظهار رسالة للمستخدم ( تم التعديل بنفس الكود بحدث عند النقر لزر الامر )
2: بالنسبة لإدخال الرقم عن طريق مربع نص فهذا غير محبذ لأنه قد يوقع المستخدم في خطأ بإدخاله رقم غير موجود بالجدول لذلك يفضل ان يكون الرقم قائمة منسدلة ( مربع تحرير و سرد ) يختار منها المستخدم الرقم المراد العمل عليه مع ملاحظة تغيير خاصية ( الالتزام بالقائمة ) الى نعم لمنع ادخال رقم غير موجود في الاصل.  ( ايضاً هذا تم عمله ) لاحظ خاصية مصدر الصف لمربع التحرير و السرد الخاص بالرقم.
3: عند اختيار الرقم قد ينسى المستخدم لاي اسم هذا الرقم و الافضل هو اظهار الاسم مع الرقم للتأكد من ذلك ( ايضاً تم عمله ) بإضافة مربع نص txtName ليحمل الاسم الخاص بالرقم تلقائياً بعد اختيار الرقم من القائمة و هذه العملية تجدها بالكود في حدث بعد التحديث لمربع التحرير و السرد الخاص بالرقم.
 
بالتوفيق
11.rar

تفضل اخي العزيز ابو ليمونة
 
ارجو ان يكون هو المطلوب
 
 
بالتوفيق
UUU1.rar

و عليكم السلام
 
ارجو ان يكون هو المطلوب
 
 
بالتوفيق
New Microsoft Access Database.rar

بارك الله فيك استاذ مختار و جزاك خير الجزاء
 
اخي احمد
 
انظر المرفق به جدول و به حقل واحد يحمل القيمة صفر و عند فتح النموذج الرئيسي سيضاف واحد الى هذا الحقل   .. لاحظ بالكود حد عدد مرات فتح البرنامج هو 5
 
 
ارجو ان يكون هو المطلوب
 
هناك مشكلة في ارفاق الملف
 
عموماً : الفكرة تتلخص في عمل جدول به حقل واحد و بحدث عند الفتح لنموذج بدء البرنامج تضع الكود التالي :
  DoCmd.RunSQL "UPDATE tblNoOfOpen SET nOfOpen = [nOfOpen]+1;"If Nz(DLookup("nOfOpen", "tblNoOfOpen")) < 5 Then    Exit SubElse    MsgBox "تم تجاوز الحد المسموح به"    DoCmd.QuitEnd If حيث tblNoOfOpen  هو اسم الجدول
 
nOfOpen  هو الحقل و الذي سيضاف اليه واحد
 
 
 
بالتوفيق 

بارك الله فيكم اخواني جميعاً
 
اخي علي
 
جرب وضع التعبير التالي في مصدر مربع النص n
=Val(Left((1*[f]/360),5)) ارجو ان يكون هو المطلوب
 
 
بالتوفيق للجميع

السلام عليكم
 
استاذ رضوان اشتقنا اليك وانا سعيد جداً برؤيتك فأنت ممن تعلمنا منه الكثير فجزاك عنا خير الجزاء
 
اتفق مع الحلول المقدمة من الاستاذ علي و الاستاذ رضوان .
 
ولي مشاركة ان سمحتوا لي :
 
ربما يكون القصد من السؤال هو فقط طريقة الالحاق بدون تكرار على مثال لا يمثل البنية الحقيقة للبرنامج لأنه كما ذكر استاذ رضوان بأن التكرار غير مقبول عند تصميم البرامج.
 
ايضاً رأيت بأن استعلام الالحاق به حقلين و واحد منهم حقل رقم تلقائي و هو يدرج كتسلسل بمجرد الحاق الاسم .. فلماذا نلحقه ؟ و قد يتسبب هذا في خطأ بسبب التكرار.
 
 
عموماً : لتفادي التكرار  يمكن استخدام استعلام فرعي كمعيار لحقل الاسم  بالاستعلام الالحاقي كالتالي :
Not In (select cus_name from tb1 where cus_name=cus) مرفق الملف بعد التعديل مع ملاحظة ازالة حقل الترقيم التلقائي .
 
بالتوفيق للجميع
منع التكرار باستخدام استعلام الحاق.rar

بارك الله فيكم اخواني جميعاً
 
اشارككم الحل
=Sum(IIf([acc_type]="مدين",[SumOfprice_uds],0)) هذا للمدين فقط  و بنفس الطريقة مع تغيير كلمة مدين لباقي مربعات النصوص
 
مرفق الملف بعد التعديل
 
 
بالتوفيق للجميع
حساب مجموع نص معين.rar

بارك الله فيك اخي العزيز
 
لا يوجد سؤال ساذج اخي فرب سؤال بسيط قد يفوت على ذوي الخبرة و رب سؤال صعب يسهل على المبتدئين امثالي و امثالك و لكن بالبحث و الاجتهاد بإذن الله سنجد ما نريده ... كل ما تحتاجه معرّف بالوحدة النمطية ....
 
ايضاً اضع لك مثال اخر وجدته بالبحث في النت و هو يوضح موقع مؤشر الماوس باي موقع ( بتفصيل النموذج ) على النموذج و ايضاً هذا المثال كل شئ معرف بداخل القسم العام لوحدة النموذج
 
 
بالتوفيق
CursorMovement2000.rar

وعليكم السلام ورحمة الله وبركاته


اخي FTHI1974


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


نصيحة : حاول ان تستخدم الاسماء الانجليزية لجميع الكائنات لديك مع تجنب الفراغات فيما بين الاسماء



اليك المرفق



بالتوفيق
db1.rar

السلام عليكم

اخي الكريم



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


بالتوفيق

وعليكم السلام ورحمة الله وبركاته .. وكل عام والجيمع بخير وعافية

اخي / المسلم

لعمل ذلك اتبع الآتي :

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

واضبط خصائص المستطيل كما يلي:-

ــ لون الخلفية او ( BackColor ) غيره ليصبح مثل لون خلفية النموذج.

ــ نمط الخلفية او ( BackStyle ) اجعله عادي ( Normal ) وهذه هي القيمة الافتراضية لهذه الخاصية .... اتركها كما هي.

ــ نمط الحدود او ( BorderStyle ) اجعله شفاف ( Transparent ).

بهذا فان سهم مربع التحرير والسرد لن يظهر سوى عند التركيز عليه فقط وغير ذلك سيظهر كمربع نص.

واليك مثال على ذلك

بالتوفيق
dbHideComboboxArrow.rar

بعد اذن اخي منذر

اخي رامي


1: - من قائمة ابدأ اختر الامر تشغيل سيظهر مربع الادخال الخاص بامر التشغيل .

2 : - اكتب اسم الملف الآتي gpedit.msc في الخانة المخصصة للفتح اضغط Ok

ستظهر الشاشة الخاصة بـ Group Policy

من الناحية اليسرى للشاشة . اتبع الأتي

1: افتح المجلد User Configration

2: افتح المجلد Administrative Template

3: افتح المجلد Windows Components

4: افتح المجلد Attachment manager

من الناحية اليمنى للشاشة اضغط دبل كليك على Inclution List For Low File Types


بالضغط المزدوج ستظهر الشاشة الخاصة بالاختيار

من التبويب Setting قم بتفعيل الخيار Enabled وقم بكتابة اسم قاعدة البيانات مع امتدادها مثل db1.mdb

ثم اضغط موافق ( Ok )


ملاحظة : - يتم كتابة اسم قاعدة البيانات مع امتدادها .

ارجو ان يكون هو المطلوب