ابوخليل

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

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

الحلول كثيرة هذا واحد منها
استخدمت هذه الوحدة النمطية عبر الماكرو  ويمكنك توظيفها في حدث زر على الفورم
Public Function fncTrteeb() 'by Abu klil On Error Resume Next Dim rst As DAO.Recordset Dim rsm As DAO.Recordset Dim trb, trbx As String Dim i, mjmo As Integer DoCmd.RunSQL "update Q_top10 set trteeb=null" Set rst = CurrentDb.OpenRecordset("tblTrteeb") Set rsm = CurrentDb.OpenRecordset("Q_top10") rst.MoveLast rst.MoveFirst rsm.MoveFirst trb = rst!trteb mjmo = 0 For i = 1 To rst.RecordCount - 1 If rsm!total <> mjmo Then rsm.Edit rsm!trteeb = trb mjmo = rsm!total rsm.Update trbx = rst!trteb rsm.MoveNext rst.MoveNext trb = rst!trteb Else rsm.Edit rsm!trteeb = trbx & " " & "مكرر" mjmo = rsm!total rsm.Update rsm.MoveNext End If Next End Function  
ترتيب الأوائل ماكرو.rar

عليكم السلام
تفضل 
استخدم  top في الاستعلام  مع الترتيب التنازلي
HQ2.accdb

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

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

Dim qryd As QueryDef Dim strSQL As String strSQL = "SELECT TblItems.* FROM TblItems WHERE (((TblItems.Wh)=[forms]![stores]![store]))" Set qryd = CurrentDb.CreateQueryDef("qryTemp", strSQL) DoCmd.OpenQuery qryd.Name CurrentDb.QueryDefs.Delete qryd.Name  
test2.rar

يا هلا الف ابو احمد 
لا شك الانقطاع عن اصحابك واحبابك  جعلك تنسى اكسس وأهله 
كما ذكر ابو حسان استخدم  تكبير  النموذج في حدث الفتح  DoCmd.Maximize
وايضا في خصائص النموذج / تنسيق : اجعل السماح لعرض ورقة البيانات = نعم فقط  ، اما السماح بعرض النموذج فاجعلها = لا
نأتي لحدث الزر  لفتح النموذج اعلاه ، يجب ان يكون هكذا :
DoCmd.OpenForm "yourForm", acFormDS سيفتح نموذج ورقة البيانات بملء الشاشة ومع ذلك يمكنك سحبه والتحكم بحجمه ، والمثال خير شاهد
Database2.rar

تفضل
=[Forms]![تلاميذ محددين]![Head_1].[Column](1)  
إظهار رأس الحقل في التقرير بالعربي كما هو بالنموذج2.rar

اجعل مصدر التقرير استعلام  واعمل في الاستعلام  هذه الحقول والدوال
هذا اذا كنت تريد تنتقي من الاعمدة للتصدير ، والا انت مضطر لتصدير التقرير كاملا

تفضل
2APE.rar

تفضل حسب طلبك
حقل في تذييل الصفحة يظهر رقم النسخة
Dim i As Integer countPrint = 1 Do Until i = Me.[pallet order].Value i = i + 1 DoCmd.OpenReport "master card query", acViewNormal countPrint = countPrint + 1 Loop  
master card2.rar

اسمح بالتعديل من خصائص الحقل ، او من خصائص الفورم .. اذا كان التعديل في الخصائص = لا .. اجعلها = نعم
تجدها في : الخصائص / لسان التبويب بيانات
المفترض وجود فورم خاص لتعديل الاسعار العامة والخاصة

تفضل
جمع مدد الخدمة بالنموذج2.rar

تفضل
جمع مدد الخدمة بالنموذج2.rar

عليكم السلام
في خانة : تحديث الى ضع الصيغة التالية :
IIf([t2.total]=0;[t1.ram];[t2.total])  
 
استعلام تحديث2.rar

كنت اعتقد انك تقصد بالمستخدم  هو العميل
الآن خرجت لنا بفكرة جديدة
والحل حسب رأيي ان يكون الترقيم للمستخدم حسب تاريخ اليوم  يستمر في الترقيم  حسب المستخدم طوال اليوم وفي الغد يبدأ الترقيم من جديد
وهنا لا يلزم ادخال المعرف لانه سوف يظهر في النموذج بمجرد دخوله ، ومع هذا يجب رصده في الجدول مع كل عملية
ليصبح الكود مثل هذا :
Dim i As Integer i = DCount("usr_id", "voice", "usr_id=" & usr_id & " and voicedate=#" & Date & "#") voiceno = i + 1  

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

تم اصلاح الحجم ، ورفعه هنا 
الصادروالوارد .rar

شكرا لاخي جعفر للشرح والتوضيح
بالنسبة لحذف بيانات الجدول في الموضوع هناك
انه لدينا جدولين tbl1 و  tbl2
الجدول1 يحتوي على بيانات المشروع  والجدول2 هو الجدول الذي سوف تنسخ اليه نتيجة الإهلاك
فلما ننقر على الزر لتنفيذ الكود تظهر النتيجة في جدول2  ، ولكن حين ننقر مرة اخرى يتم تكرار النسخ  وهكذا ... الى مالا نهاية
فالحل هو عند كل نقرة على الزر يتم تفريغ الجدول2

Me.text1 = Int(x1) + Int(x2)  
D2.rar

تفضل 
قاعدة البيانات ومجلد الحفظ
اجعل المجلد بجوار القاعدة
 
Downloads.rar

قبل تشغيل الزر خذ جولة على الجدول والاستعلام للتأكد من البيانات
نقل المعلومات2.rar

واذا نظام الوندز عندك 64 بت
جرب استبدال الجملة في اعلى المحرر
Private Declare Function SHChangeNotify Lib "Shell32.dll" (ByVal wEventID As Long, _ ByVal uFlags As Long, ByVal dwItem1 As Long, ByVal dwItem2 As Long) As Long بهذه
Private Declare PtrSafe Function SHChangeNotify Lib "Shell32.dll" (ByVal wEventID As Long, _ ByVal uFlags As Long, ByVal dwItem1 As Long, ByVal dwItem2 As Long) As Long التغير هو فقط باضافة  PtrSafe

واذا نظام الوندز عندك 64 بت
جرب استبدال الجملة في اعلى المحرر
Private Declare Function SHChangeNotify Lib "Shell32.dll" (ByVal wEventID As Long, _ ByVal uFlags As Long, ByVal dwItem1 As Long, ByVal dwItem2 As Long) As Long بهذه
Private Declare PtrSafe Function SHChangeNotify Lib "Shell32.dll" (ByVal wEventID As Long, _ ByVal uFlags As Long, ByVal dwItem1 As Long, ByVal dwItem2 As Long) As Long التغير هو فقط باضافة  PtrSafe