ضع هذه الاسطر مكان الوحدة النمطية
Dim x, xx
x = Mid([ProductID], 6, 3)
xx = Mid([ProductID], 9, 5)
SQty = x
SalesPrice = xx
طبعا هذا الكود حسب تقسيمك للارقام واهملنا الرقم الاول لانه موجود كما ذكرت
اظن الكود واضح ولا يحتاج تفسير
وعليكم السلام ورحمة الله وبركاته
بقي عليك ان تلتقط هذين الكودين بين اصبعين اقصد في زرين
لان صاحبها لا يريد ان يحرمك لذة العمل .
ارتباط وفك ارتباط بأكسل.rar
السلام عليكم
انت تطلب برنامج مكتمل للحضور والانصراف باستخدام قارىء الباركود
وهذا المنتدى تعليمي
يمكنك البدء بصنع برنامجك وعرض ما يواجهك من الصعوبات وستجد الجميع بخدمتك ان شاء الله
لدوال الاكسس انظر هنا
https://www.google.com/url?q=http://www.officena.net/ib/index.php%3Fshowtopic%3D30660&sa=U&ei=RdICUMDaCoGb1AW2rf2tBw&ved=0CAUQFjAA&client=internal-uds-cse&usg=AFQjCNF_-pykoxAbqs0aiv7Xpu-_CGrS_g
ولاختصار الكائنات احناج لبعض الوقت وذكرني ان نسيت
الطرق متعددة وهذا أحدها
Dim rst As Recordset
Set rst = Me.RecordsetClone
rst.MoveFirst
Do Until rst.EOF
If rst![بطاقة تعريف] = Me![بطاقة تعريف] Then
MsgBox " رقم بطاقة التعريف تم إدخاله سابقا ", vbExclamation + vbMsgBoxRight + vbMsgBoxRtlReading, " تنبيه"
Me.Undo
DoCmd.CancelEvent
Exit Do
End If
rst.MoveNext
Loop
rst.Close
db1.rar
السلام عليكم المطلوب يحتاج الى زيادة توضيح
لانه لا يمكن تصور ان نعمل على نموذج وتظهر نتيجة ما على نموذج آخر والتركيز على غيره
علما انه يمكن تطبيق الفكرة ورؤية التغير ولكن بعد الرجوع الى النموذج الاول
تم عمل اللازم باستخدام الدالة Dlookup
اما كبر حجم الملف فسببه الصور المضمنة الموجودة في التقارير ، يمكنك استخدام صورة واحدة ووضعها في مجلد البرنامج ويتم عرضها في التقارير او النماذج بطريقة الارتباط .
ملحوظة للفائدة :
يمكنك اختصار النماذج الاربعة والتقارير الاربعة في نموذج واحد وتقرير واحد لاستخراج النتيجة نفسها
Ali2.rar
استخدم هذا السطر في حدث فتح نموذج البداية
DoCmd.RunCommand acCmdDocMinimize
ثم افتح خصائص النموذج على لسان التبويب "غير ذلك" واجعل القيمتين : "منبثق" ، "شكلي أومشروط" = نعم
لتسلسل الارقام :
انقر بزر بالفأرة الايمن على حقل الرقم / خصائص / بيانات
غير مصدر البيانات الى = 1
ومجموع تراكمي الى شامل
انظر الصورة
اما بالنسبة للتقارير حسب الجنسية فجدول البيانات عندك لا يحتوي على جنسيات بل وافد ومواطن
عدل البيانات فتظهر لك النتيجة
هذا شرح لطريقة البحث بين تاريخين
اما عدد الفواتير فيمكن استخراجه بتحويل الاستعلام المذكور الى مجاميع واستخدام count في حقل المعرف
http://www.officena.net/ib/index.php?showtopic=42084&hl=%2B%D8%B4%D8%B1%D8%AD+%2B%D9%81%D9%8A%D8%AF%D9%8A%D9%88+%2B%D9%84%D8%B7%D8%B1%D9%8A%D9%82%D8%A9+%2B%D8%B9%D9%85%D9%84+%2B%D8%A8%D8%AD%D8%AB+%2B%D8%A8%D9%8A%D9%86+%2B%D8%AA%D8%A7%D8%B1%D9%8A%D8%AE%D9%8A%D9%86