الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

كيف أقلل من تضايق مستخدم البرنامج

بدأه lug في 9 فبراير 2010 · 9 رد · 620 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

اخوتي الكرام

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

أيضاً عندي سؤال آخر، عندما أقوم بتصميم واجهة (واجهة الدخول للنماذج مثلاً) سيكون عندي مجموعة من الأزرار أريد تلوين هذه الأزرار، عندما بحثت في قسم الخصائص لم أجد خاصية تلوين خلفية الزر، هل يمكنني ذلك ، إن أمكن فكيف؟

لكم مني جزيل الشكر

#2

بالنسبة للموضوع الاول

ما افعله هو ان اجعل التيكست بوكس الذى اكتب فيه غير مرتبط unbound

و هكذا باقى الفورم

ثم اضيف كل ما اريده بعد ذلك عن طريق الادو

--

الموضوع الثانى

اعتقد كان هناك بالمنتدى موضوع عن هذا سابقا و لكن لا اتذكرة

و ان كان من الممكن ان تتغلب عليه بطريقه اخرى

ان تدرج صورة "اى صورة سواء مصمته اى لون واحد او اكثر من لون و تتعامل مع حدث عند الضغط

هذا فى حدود ما اعرفه

كيميائى / محمد طه

#3

إذا سمح لى أخى mtak33

أخى الكريم ..

بالنسبة للشق الثانى من السؤال ..

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

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

/index.php?showtopic=192348

تحياتى

محمد ندا

... بقمة السعادة .. أعود بإذن الله لصحبتكم الرائعة قريباً ...

#4

السلام عليكم

في البداية أوجه شكري للعضو mtak33 كما أوجه شكري أيضاً للعضو محمد ندا

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

اقتباس

بالنسبة للموضوع الاول

ما افعله هو ان اجعل التيكست بوكس الذى اكتب فيه غير مرتبط unbound

و هكذا باقى الفورم

ثم اضيف كل ما اريده بعد ذلك عن طريق الادو

واذا كان جميع النماذج قد تم تصميمها، هل يجب العمل من البداية

ايضاً عفواً أخي ماذا تقصد عن طريق الادو (كيف) ممكن تشرح لي

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

#5

أخى الكريم lug

أنت فى كل الأحوال ستمر على كل الأزرار مرة أخرى حتى تستبدلها أو تلونها.

على العموم الأمر متروك لك .. فهذا برنامجك وأنت صاحب القرار إلى أى مدى تريد أن تصل به من التجميل أو التنوع.

تحياتى

محمد ندا

1

... بقمة السعادة .. أعود بإذن الله لصحبتكم الرائعة قريباً ...

#6

شكراً لك أخي محمد ندا

#7
Mohamed Nada كتب:

إذا سمح لى أخى mtak33

محمد ندا

يا خبر يا اتاذ محمد

تستأذن منى انا

يا استاذ محمد ما انا الا تلميذ اصغر من اصغر تلميذ استفاد منك

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

-------------------------------

اما بخصوص الادو

فانا تعلمت "من معلمتنا الجليلة ام عهود" كود اكتبه فى حالة اضافة ما هو موجود بفورم الى الجدول المراد

 Private Sub but_save_Click()
On Error GoTo Err_but_save_Click

    Dim strMsg As String

Set conn = New ADODB.Connection
        conn.Open CurrentProject.AccessConnection
' open table
Set rsrecord = New ADODB.Recordset
    rsrecord.CursorType = adOpenKeyset
    rsrecord.LockType = adLockOptimistic
            rsrecord.Open "اسم الجدول", conn, , , adCmdTable
' ensure to save
strMsg = "Do you want to save the changes"
If MsgBox(strMsg, vbYesNo, "") = vbYes Then
' adding data
rsrecord.AddNew
    rsrecord!dd = dd
    rsrecord!mm = mm

    '//////////

rsrecord.Close
conn.Close
'/////////
MsgBox "Data have been saved", vbOKOnly

End If

Exit_but_save_Click:
    Exit Sub

Err_but_save_Click:
    MsgBox Err.Description
    Resume Exit_but_save_Click
End Sub

و اعتقد انه يجب تعديل النماذج لكى يتم ذلك

ارجو ان اكون قد افدتك

1

كيميائى / محمد طه

#8

اشكرك اخي mtak33 على الرد

#9

تفضل اخي

ازار بالوان مختلفة

عملتها لك قدر الامكان و سعه الوقت

و بامكانك العمل الكثير منها

ملاحظة بعد الفتح : اختر النموذج 2

اذا استفدت منها لا تنسانا من الدعاااااء

db18.rar

تم تعديل هذه المشاركة بواسطة مسترعربي في 13 فبراير 2010 في 13:01

1

post-157080-12622582839684.jpg

#10

أشكرك أخ مستر عربي

وفق الله الجميع لكل خير

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…