صالح حمادي

نعم أخي حسين أنا أيضا أستعمل هذا النوع من الخط. لكن أسأل إن كان هناك إمكانية لكتابة الباركود بنفس تنسيق Ean-8 و Ean-13

هذا النوع من الخط مخصص لأن نكتب به 7 أرقام و الرقم الأخير يكمله وحده حسب سلسلة عمليات رياضية تعتمد على الأرقام 7 الأولى. و للتأكد من ذلك نأخذ أحد المنتجات التي بها باركود و نجرب إدخال 7 أرقام الأولى سوف نرى أنه يكمل الرقم الأخير وحده و إذا كان المنتج به 13 رقم نغير نوع الخط إلى Ean-13 و نجرب إدخال 12 رقم الأولى سوف نلاحظ أنه يكمل الرقم الأخير وحده. يعني لا نقاش في هذا الخط و هو ليس مشكل بل خاصية وضعت من أجل التحقق من أخطاء الطباعة أو حتى تزوير الباركود. و المطلوب الذي أريده أنا هو : هل يوجد نوع آخر من الخط يشبه هذا الخط من حيث التنسيق الأعمدة الأولى و الأخيرة و الوسطى طويلة. ذلك لأنني أجريت مجموعة مقارنات بين أنواع الخطوط و قراءتها بالجهاز فوجدة أن هذا النوع أفضل و أسهل نوع يستطيع الجهاز قراءته حتى لو كان حجم الباركود صغير.

السلام عليكم لقد قمت بإنشاء باركود الموضح بالصورة التالية: لكن المشكلة أنه يطبع الرقم الأخير تلقائيا كما توضح الصورة في مربع النص الرقم الأخير هو 2 و في الباركود الرقم الأخير هو 4 هل توجد طريقة لطباعة الباركود بهذا الشكل لكن الأرقام 8 كلها أضعها أنا؟ مع العلم أنني إستعملت أداة ocx و نوع الخط Ean-8 إنشاء باركود.rar

تابع الملاحظات الموجودة في الصورة التالية: أما بالنسبة للإشكالية الثانية استعمل الكود التالي لفتح التقرير: DoCmd.OpenReport "تقرير_بيانات_التلميذ", acViewPreview, , "الإدارة=" & Me.الإدارة1 و هذا هو المرفق بعد التعديل: تحت انشاء.rar

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

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

السلام عليكم تفضل التعديل به الطلب 1 و 2 أما رقم 3 فهو لا يخص هذا الموضوع و الأفضل فتح موضوع جديد خاص به موفق إن شاء الله أخي وائل. البحث بالحقل.rar

تقبل الله منا و منكم صالح الأعمال إنشاء الله

السلام عليكم كل عام و أنتم و الأمة الإسلامية بألف خير استعمل هذا الكود: Dim sql_search As String Dim fild_sear As String Select Case Me.fild_search Case "الموضوع" fild_sear = "Object" Case "عنوان الفائدة" fild_sear = "FaedaTitle" Case "المرجع" fild_sear = "Mraj3Name" Case "القائل" fild_sear = "KaeelName" Case "فائدة طويلة" fild_sear = "FaedaNass" Case "فائدة قصيرة" fild_sear = "FaedaNass1" Case "الكل" fild_sear = "tout" Case Else fild_sear = "Object" End Select If fild_sear = "tout" Then sql_search = "SELECT * FROM Foaid where " & "(((Object) LIKE ""*" & Me.iSearch & "*""))" & "Or (((FaedaTitle) LIKE ""*" & Me.iSearch & "*""))" & "Or (((KaeelName) LIKE ""*" & Me.iSearch & "*""))" & "Or (((Mraj3Name) LIKE ""*" & Me.iSearch & "*""))" & "Or (((FaedaNass) LIKE ""*" & Me.iSearch & "*""))" & "Or (((FaedaNass1) LIKE ""*" & Me.iSearch & "*""));" Me.RecordSource = sql_search ElseIf IsNull(Me.iSearch) Then sql_search = "SELECT * FROM Foaid" Me.RecordSource = sql_search Else sql_search = "SELECT * FROM Foaid WHERE " & fild_sear & " LIKE ""*" & Me.iSearch & "*""" Me.RecordSource = sql_search End If و هذا هو التعديل على مرفقك: البحث بالحقل.rar

و كل عام و الأمة الإسلامية بألف خير إن شاء الله. تفضل هذا التعديل الذي طلبته: البحث بالحقل.rar

السلام عليكم تستعمل هذا الكود خلف زر البحث If IsNull(Me.iSearch) Then Me.FilterOn = False Me.iSearch.SetFocus Else Me.Filter = Nz(Me.fild_search, "IDfoaid") & "='" & Me.iSearch & "'" Me.FilterOn = True End If و هذا التعديل على الملف عمل كمبوبوكس لأختيار حقل البحث.rar

السلام عليكم تصفح صور المرفق من خلال الأزرار الموجودة تحت الصورة ثم أضغط على زر معاينة الصور ستلاحظ أن الصورة الموجودة في النموذج هي التي تظهر في التقرير. image.rar

السلام عليكم تستخدم الدالة currentproject لتعامل مع خصائص البرنامج الحالي من بينها استخراج مسار البرنامج الحالي: CurrentProject.Path أو استخراج اسم ملف الأكسس الحالي: CurrentProject.name

السلام عليكم استعمل هذا الكود في حدث عند النقر على الزر: If DCount("*", "asnsdat", "rajmasand='" & Me.n1 & "'") = 0 Then MsgBox "áÇíæÌÏ ÚÞÏ ÈåÏÇ ÇáÑÞã" Exit Sub ElseIf [ÊÇÈÚ4].Form![nahatalajd] < Date Then MsgBox "ÇáÚÞÏ ãäÊåí áÇíÓãÍ ÈãÑÏæÏ" Exit Sub ElseIf DCount("*", "ass", "rajmasand='" & Me.n1 & "'") > 0 Then MsgBox "ÓÈÞ æÚãáÊ ãÑÏæÏ ÈåÏÇ ÇáÚÞÏ" Exit Sub End If و هذا هو التعديل على المرفق رساله.rar

السلام عليكم أضف هذا الكود في حدث بعد التحديث لمربع النص: Dim x As Integer, x1 As Integer, x2 As Integer x = DateDiff("n", "7:30", Time()) x1 = Int(x / 60) x2 = (x - x1 * 60) Me.نص24 = x1 & IIf(x1 > 2, " ساعات و ", " ساعة و ") & x2 & IIf(x2 > 2 And x2 < 11, " دقائق", " دقيقة") و هذا المرفق بعد التعديل: سجل 1.rar

يا أخي الكريم لو لاحظت الصورة الأولى ( شكل شريط الأدوات ) لعرفت أن إصدار هذا الأوفيس هو 2010 و ليس 2007 . أما فيما يخص العبارة الموجودة في الأعلى (Access 2007) فهي تخص صيغة الملف و ليس إصدار الأوفيس.

السلام عليكم يمكن إدراج هذا العنصر من خلال قائمة عناصر تحكم ActiveX بإتباع الخطوات التالية: 1- نفتح النموذج في وضع التصميم 2- نضغط على القائمة عناصر تحكم ActiveX 3- تظهر نافذة بها مجموعة كبيرة من العناصر نختار منها العنصر Microsoft ProgressBar control, version 6.0 ثم نضغط على موافق كما توضح الصور التالية: 2- 3-

إن شاء الله أجمعين

السلام عليكم هذه أحد الحلول حسب الطريقة التي تستعملها ضع هذا الكود في حدث عند التحميل للنموذج DoCmd.GoToRecord , , acNewRec

السلام عليكم : استعمل هذا الكود في حدث عند التحميل لنموذج لمنع التعديل على السجلات السابقة: Me.AllowEdits = False و استعمل هذا الكود خلف زر أمر لسماح بالتعديل على سجلات النموذج: Dim x As Integer x = InputBox("ادخل كلمة السر", "السماح بالتعديل") If x = 1988 Then Me.AllowEdits = True End If

المرفق معمول بأكسس 2010

السلام عليكم: اتبع الخطوات الموجودة بالصور التالية: 1- 2- 3-

680.3.الاجازات - Copy.rar

السلام عليكم أكتب العبارة المطلوبة في خانة القيمة الإفتراضية بإحدى الطريقتين في الصور التالية: 1- 2-

السلام عليكم: أولا: يجب عليك إختيار عنوان مناسب للموضوع كما تنص قوانين المنتدى: 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف لذلك فقد قمت بتغيير عنوان الموضوع. ثانيا: بالنسبة لسؤالك يمكنك حساب الوقت بهذا الكود: Me.time_rottar = DateDiff("n", Me.time_entre, Time()) بحيث: time_rottar هو مربع النص الذي ستظهر به النتيجة time_entre هو مربع النص الذي يحتوي على توقيت الدوام. "n" من أجل حساب الفارق بالدقائق و يمكن تغييرها من بـــ "h" من أجل حساب الفارق بالساعات