.Azhar

يقوم هذا الكود بحذف السجل من الجدول الاساسي لكن يقوم كود SQL بتخزين هذا السجل في الجدول الاخر بدل ان يرمي هذا السجل في سلة المحذوفات . 

نعم تستطيع ذلك 

من خلال وضع زر على النموذج الذي يستند الى الجدول الاساسي . وهو KK 

وتضع هذا الكود لحدث عند النقر للزر 

Private Sub cmdDelete_Click()
Dim intSeat As Integer
If MsgBox("Click ""Yes"" هل انت متاكد بنقل هذا القيد الى الارشيف", vbYesNo, "نقل البيانات") = vbYes Then
    intSeat = Me.Seat
    CurrentDb.Execute "Insert into Kol (School, Seat, Total) SELECT  School, Seat, Total FROM KK WHERE Seat = " & intSeat
    CurrentDb.Execute "Delete * FROM KK WHERE Seat = " & intSeat
    Me.Requery
End If
End Sub

الكلمات School, Seat, Total والتي تظهر لك في الكود هي اسماء حقول الجدول 

هذه طريقة احترافية 

http://www.youtube.com/watch?v=Hp6EPNF1xpY

تنسيق التاريخ بالمظهر المطلوب

عند كتابة شيء ما مثل 2/2 في خلية، فإن Excel يتعرّف على أنك تكتب تاريخاً ويقوم بتنسيقه استناداً إلى إعداد التاريخ الموجود في "لوحة التحكم". لذلك على سبيل المثال، قد يقوم Excel بتنسيقه كـ 2 - فبراير. إذا قمت بتغيير إعداد التاريخ الموجود في "لوحة التحكم"، فسيتم تغيير تنسيق التاريخ الافتراضي الموجود في Excel أيضاً. إذا لم يعجبك تنسيق التاريخ الافتراضي، فبإمكانك اختيار تنسيق آخر في Excel، مثل 2 فبراير، 2012 أو 2‏/2‏/12. تستطيع أيضاً إنشاء التنسيق المخصص الخاص بك في Excel.

ماذا تريد أن تفعل؟

الاختيار من قائمة تنسيقات التاريخ

1. حدد الخلايا التي تريد تنسيقها.

2. اضغط على CTRL+1.

3. انقر فوق علامة التبويب رقم في المربع تنسيق الخلايا.

4. انقر فوق التاريخ في القائمة الفئة.

1. اختر تنسيق تاريخ ضمن النوع. ستتم معاينة التنسيق في المربع النموذج الذي يتضمن التاريخ الأول في بياناتك.

ملاحظة    سيتم تغيير تنسيقات التاريخ التي تبدأ بعلامة النجمة (*) إذا قمت بتغيير الإعدادات الإقليمية للتاريخ والوقت في "لوحة التحكم". لن يتم تغيير التنسيقات التي لا تتضمن أية علامة نجمة.

1. إذا أردت استخدام تنسيق تاريخ استناداً إلى كيفية عرض لغة أخرى للتواريخ، فاختر اللغة ضمن الإعدادات المحلية (الموقع)،

   تلميح    هل لديك أرقام يتم عرضها في الخلايا كـ #####؟ يعني هذا على الأرجح أن عرض الخلية ليس كافياً لإظهار الرقم بالكامل. جرّب النقر المزدوج فوق الحد الأيسر للعمود الذي يحتوي على الخلايا التي تتضمن #####. سيؤدي ذلك إلى تغيير حجم العمود لاحتواء الرقم. يمكنك أيضاً سحب الحد الأيسر للعمود لتغييره إلى أي حجم تريده.

إنشاء تنسيق تاريخ مخصص

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

1. حدد الخلايا التي تريد تنسيقها.

2. اضغط على CTRL+1.

3. انقر فوق علامة التبويب رقم في المربع تنسيق الخلايا.

4. في القائمة الفئة، انقر فوق التاريخ، ثم ضمن النوع، اختر تنسيق تاريخ قريب من التنسيق الذي تريده.

1. عُد إلى القائمة الفئة، ثم اختر مخصص. سيتم عرض رمز تنسيق التاريخ الذي اخترته في الخطوة 4 ضمن النوع. لا يمكن تغيير تنسيق التاريخ المضمّن، لذلك لا تقلق بشأن أي عبث به. سيتم تطبيق التغييرات التي تجريها على التنسيق المخصص الذي تنشئه فقط.

2. في المربع النوع، قم بإجراء التغييرات التي تريدها باستخدام الرمز من الجدول الموجود أدناه.

لعرض

استخدم هذا الرمز

الأشهر بصيغة 1–12

m

الأشهر بصيغة 01–12

mm

الأشهر بصيغة يناير - ديسمبر

mmm

الأشهر بصيغة يناير - ديسمبر

mmmm

الأشهر بصيغة الحرف الأول من الشهر

mmmmm

الأيام بصيغة 1–31

d

الأيام بصيغة 01–31

dd

الأيام بصيغة الأحد - السبت

ddd

الأيام بصيغة الأحد - السبت

dddd

السنوات بصيغة 00–99

yy

السنوات بصيغة 1900–9999

yyyy

إذا كنت تقوم بتعديل تنسيق يتضمن قيم وقت واستخدمت "m" بعد الرمز "h" أو "hh" مباشرةً أو قبل الرمز "ss" مباشرةً، فسيعرض Excel الدقائق بدلاً من الشهر.

تلميحات حول عرض التواريخ

• لاستخدام تنسيق التاريخ الافتراضي سريعاً، انقر فوق الخلية التي تحتوي على التاريخ، ثم اضغط على CTRL+SHIFT+#.

• إذا قامت الخلية بعرض ##### بعد تطبيق تنسيق التاريخ عليها، فقد يكون عرض الخلية ليس كافياً لإظهار الرقم بالكامل. جرّب النقر المزدوج فوق الحد الأيسر للعمود الذي يحتوي على الخلايا التي تتضمن #####. سيؤدي ذلك إلى تغيير حجم العمود لاحتواء الرقم. يمكنك أيضاً سحب الحد الأيسر للعمود لتغييره إلى أي حجم تريده.

• لإدخال التاريخ الحالي في ورقة العمل سريعاً، حدد أية خلية فارغة، واضغط على CTRL+; (فاصلة منقوطة) ثم على ENTER، عند الضرورة.

• لإدخال تاريخ سيتم تحديثه إلى التاريخ الحالي في كل مرة تقوم فيها بإعادة فتح ورقة عمل أو إعادة حساب صيغة، اكتب ‎=TODAY()‎ في خلية فارغة، ثم اضغط على ENTER.

راجع هذا الرابط هل تم تضليل العمود في الاكسل واتباع التعليمات التالية 

https://support.office.com/en-us/article/Format-a-date-the-way-you-want-8e10019e-d5d8-47a1-ba95-db95123d273e

ماهي نسخة الاكسس التي تعمل عليها

اخي العزيز علي 

لاحظ المرفق ولاحظ الصور شيت 1 التاريخ فيه هو (12/1/2023) وشيت 2 التاريخ يختلف .

Database.rar

اهلا بك اخ علي 

تفضل هذا مثال مرفق تم تحويله الى اكسس

Database4.rar

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

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

بالضبط كالبرامج التي تباع بالانترنيت تستطيع فتحها لمدة مرتين فقط . 

لكن هنا في الكود جعلت عدد مرات فتح البرنامج 100 مرة . 

Private Sub Form_Current()
retvalue = GetSetting("A", "0", "Runcount")
GD$ = Val(retvalue) + 1
SaveSetting "A", "0", "RunCount", GD$
If GD$ > 100 Then
MsgBox ("انتهت مدة تشغيل البرنامج عليك بشراء البرنامج او الاتصال بالمطور"), , ("AZHAR ALIraqy")
DoCmd.Quit
End If

End Sub

اخ كريم هل من الممكن ارفاق القاعدة هنا 

سعداء جداً لمساعدتك اخي العزيز syrian

كما انني اخوك ازهر وليس ازهار .

راجع هذا الرابط

http://www.ctimls.com/Support/KB/How%20To/Register_dll.htm

هههههه سبقني الاستاذ ابو خليل . 

بالنسبة لطلبك الاول يمكن ذلك . 

من خلال انشاء وحدة نمطية وكما مبين لك ادناه واستدعائها من خلال النموذج الرئيسي او الفرعي لحدث (Current event) في الحالي .

Public Function LimitRecords( _
                    frm As Access.Form, _
                    Optional RecLimit As Integer = 1)

    '  وضع حد لعدد السجلات في النموذج 

    With frm.RecordsetClone
        If .RecordCount <> 0 Then .MoveLast
        frm.AllowAdditions = (.RecordCount < RecLimit)
    End With

End Function

استدعاء الدالة 

Private Sub Form_Current()

    LimitRecords Me   ' اذا تريد فقط سجل واحد
    LimitRecords Me, 5   ' اذا تريد 5 سجلات . وهكذا 

End Sub

لا يمكن عمل ذلك في الجداول لكن تستطيع عمله في التقرير 

اذهب الى الاداة كما اشار لك الاستاذ ابو خليل في مكان وجودها 

C:\WINDOWS\SysWOW64\barcodex.ocx

انقر عليها كلك ايمن بزر الماوس .

شغلها كمسؤول كما في الصورة . 

راجع هذا الرابط

http://forums.techarena.in/vista-help/723579.htm

دائما عند استخدام التاريخ او الوقت استخدم علامة الشباك # 

Like "*" & [forms]![sarch]![n1] & "#"

راجع الرابط التالي 

http://office.microsoft.com/ar-sa/access-help/HA102809751.aspx?CTT=1

انا قلتها سابقاً . الاكسس يصنع لك ما تشاء 

شكرا لك اخي goodfas وتقبل الله صالح دعائكم .

انا هنا لخدمتكم ان شاء الله بقدر استطاعتي .

انا ارفقت لك مثال لبحث متعدد جميل جدا وسهل جدا . 

نضع زر على النموذج الرئيسي ومربع نص .

نكتب الكود التالي في حدث عند النقر للزر . 

Private Sub Command10_Click()
 DoCmd.RunCommand acCmdRemoveFilterSort
End Sub

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

Like "*" & [forms]![sarch]![n1] & "*"

هذا كل شيء 

تحياتي لك اخي ابو عبد الله .

هل من الممكن ارفاق مثال 

لاحظ هذا المثال 

Az.rar

اخي العزيز 

عليك اولا دراسة مشروعك على الورق وانشاء الجداول وعلاقاتها .

حاول عدم تكرار الحقول في جداول متعددة .

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

لا داعي لانشاء جدول للجنس . ذكر - انثى . 

ارفق لك مخططات احترافية لبرنامجين مع توضيح الجداول والعلاقات . 

مرحبا اخي khaled_ksa

تفضل انا استخدمت دالة Case شاهد هذا المرفق لعله يفي بالغرض . 

تغير لون الزر.rar

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

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

ss.rar