صالح حمادي

لقد تركت ذلك عمدا لتكمله وحدك. لأنني أعطيتك الطريقة في كمبوبكس البحث.لكن لا بأس تفضل استعمل هذا الكود: Dim fiald_classement As String Select Case Me.fsortN Case "الرقم" fiald_classement = "ID" Case "تصنيف رئيسي" fiald_classement = "MainCategory" Case "تصنيف فرعي" fiald_classement = "SubCategory" Case "السؤال" fiald_classement = "Question" Case "الإجابة" fiald_classement = "Answer" Case "المصدر" fiald_classement = "Source" End Select جزاكم الله خيرا.rar

السلام عليكم و رحمة الله تعالى و بركاته: أخي وائل آسف جد جدا لأني أطلت عليك فضغوط العمل و قدوم الوالد من البقاع المقدسة منعني من الدخول إلى الأنترنت لقد قمت بإجراء التعديلات اللازمة على عجالة من أمري. تفضل المرفق به التعديل: جزاكم الله خيرا.rar

و عليكم السلام أخي إبراهيم أين يتم وضع هذه الحروف بالنسبة لطريقة تحديد الرقم الأخير فهي كالتالي: الرقم الأخير يضعه الجهاز تلقائيا من خلال المعادلة الرياضية التالية: 1- نجمع الأعداد ذات الترتيب الفردي: الأول + الثالث + الخامس+ السابع و نضرب المجموع في 7 2- نجمع الأعداد ذات الترتيب الزوجي ماعدى الرقم الأخير : الثاني + الرابع + السادس و نضرب المجموع في 9 3- نجمع المجموع 1 مع المجموع 2 4- الرقم الأخير (رقم الآحاد) من المجموع هو الذي يمثل الرقم الأخير في الباركود. و هذا مثال: للعلم أنا لم أجد هذه المعلومة في أي موقع فقط أجريت العديد من التجارب للوصول إلى الطريقة الصحيحة لحساب الرقم الأخير و هذا ما توصلة إليه و للتأكيد يا ريت تجربوا هذه الطريقة لنتأكد من أنها صحيحة و فعالة فقد طبقتها على العديد من الأمثلة و كلها صحيحة.

نعم أخي حسين أنا أيضا أستعمل هذا النوع من الخط. لكن أسأل إن كان هناك إمكانية لكتابة الباركود بنفس تنسيق 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-