AlwaZeeR

تفضل Lab 2019Nz.rar

تفضل Lab 2019N.rar

للأسف كما ذكر الأخ خالد الإصدار 64

تفضل TEST - Copy1.rar

اسمح لي بمداخلة بسيطة لعل وعسى تكون النصف الاخر اخي العزيز أبا جودي تعديل بسيط على الوحدة الخاصة بك: Public Function ExtractIDs(ByVal varInput As Variant) As String On Error Resume Next Dim strSplit() As String, strResult As String Dim intIndex As Integer If IsNull(varInput) Then Exit Function strSplit = Split(CStr(varInput), " ") For intIndex = 0 To UBound(strSplit) '''' If IsNumeric(Left(strSplit(intIndex), 1)) Then strResult = strResult & strSplit(intIndex) & ";" If IsNumeric(Left(strSplit(intIndex), 1)) Then strResult = strResult & strSplit(intIndex) & "|" Next If Len(strResult) > 0 Then 'Remove final semi-colon and pass back result. ''''' ExtractIDs = Mid(strResult, 1, Len(strResult) - 1) ExtractIDs = Mid(strResult, InStr(1, strResult, "009")) End If End Function :: تحياتي

بالتوفيق اخي عصام وااعانك الله على هذه المسؤولية :: تحياتي

مبارك أبا جودي تستحق كل الاحترام والتقدير فطيبة قلبك ظاهرة في مشاركاتك بالتوفيق

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

تفضل عزيزي استخدم الوحدة النمطية التالية في النموذج الخاص بك Public Function CheckFocusCtrl() On Error Resume Next If Screen.PreviousControl.Name = "a" Or Screen.PreviousControl.Name = "b" Then MsgBox ("مع اطيب التحايا ،،،المؤشر على (A) او (B)") Else End If End Function ثم قم باستدعائها تحت زر الامر الذي تريد هكذا: CheckFocusCtrl مع ملاحظة حقول: A , b هي الحقول التي على أحدها المؤشر فقم بتغييرها بمسميات حقولك

تفضل: باستخدام الوحدة النمطية التالية: Public Function DBFormat(SField As String) As Integer Dim DbCount As Integer DBFormat = 0 DbCount = DCount("[num]", "table1", "[num] = " & SField) If DbCount > 1 Then DBFormat = 1 End Function واستدعائها ضمن التنسيق الشرطي للحقل هكذا: DBFormat([num])>0 مع تغيير التنسيق الى احمر كما في الصورة New Microsoft Access Databasewazzzz.accdb

وعليكم السلام ورحمة الله وبركاته تفضل: =Day(DateSerial(Year([datex]),Month([datex])+1,0))

السلام عليكم ورحمة الله وبركاته احذف إشارة اكبر Case Is = dtEnd

وعليكم السلام ورحمة الله وبركاته ضع هذا الكود في حدث الحالي للنموذج: Dim dtBgn Dim dtEnd dtBgn = DateSerial(Year(Date), 4, 1) dtEnd = DateSerial(Year(Date), 3, 31) Select Case Date Case Is >= dtEnd acc_year = Year(Date) & "/" & Year(Date) + 1 Case Else acc_year = Year(Date) & "/" & Year(Date) - 1 End Select Acc_YearN.accdb

أستاذ حربي تم عمل التنسيقات على اوفيس اعلى من الاوفيس لديك تحتاج اوفيس اعلى من 2007

جميل اخي الكريم في ميزان حسناتك ان شاء الله

تفضل تم التعديل Entharat.rar

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

انت تستخدم اسم Date كتسمية لحقل وهذا خطأ لان DAte من الأسماء المحجوزة استخدمها مع التاريخ بهذه الطريقة Me.txtDate.DefaultValue = "#" & Date - 1 & "#"

واضافة الى ما تفضل الأستاذ شيفان يتم تغيير القيمة الافتراضية برمجياً بهذا الكود: Me.YourTxt.DefaultValue = """القاهرة"""

وعليكم السلام ورحمة الله وبركاته تفضل: مع تغيير اسم الكومبو الى Snf ضع هذا الكود في حدث بعد التحديث للكمبو السابق For i = 1 To 5 Select Case Me.Snf Case "ضابط" Me("m" & i).Visible = False Me("d" & i).Visible = True Case Else Me("d" & i).Visible = False Me("m" & i).Visible = True End Select Next i

اعذرني اخي لضيق الوقت: تفضل =Day(DateSerial(Year(Date()),Month(Date())+1,0)) Dim iloop As Integer For iloop = 1 To 31 With Me Me.Controls("d" & iloop).ColumnHidden = True End With Next For iloop = 1 To DateNo ' الحلقة تنتهي بعدد ايام الشهر كما تم في المعادلة السابقة With Me Me.Controls("d" & iloop).ColumnHidden = False End With Next ProgEmp.rar

وعليكم السلام ورحمة الله وبركاته تفضل اخي حربي هذه المعادلة تحضر لك أيام الشهر حسب الشهر في الحاسوب ضعها في النص الذي تريد اظهارها فيه =Day(DateSerial(Year(Date()),Month(Date())+1,0))

احسنت اخي الكريم معلومة مفيدة جدا اللهم صلِّ الله على سيدنا محمد صلى الله عليه وسلم

وعليكم السلام ورحمة الله وبركاته تفضل: فقط اضف في التقرير تجميع لـ: EmployeeID وانقل التقرير الفرعي داخله newQ.mdb

العفو ... السبب: - التعامل مع حقل نصي على أنه حقل رقمي - عدم تحديد عمود الحقل الأساسي في مربع القائمة ::