نجوم المشاركات

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

@kkhalifa1960 ولك بالمثل ورمضان كريم عليك وعلى كل الاسرة الكريمة

العفو يا استاذى انا اتعلم منك عموما تضع اشارة @ وهى زر شفت+رقم2 من الكيبورد وبعدها مباشره تكتب حروف الاسم الذى تريد اظهاره وكلما زدت حرفا اخر تزداد الفلترة حتى يظهر الاسم بالكامل مجرد اضغط عليه @kkhalifa1960

تفضل وجرب ووافني بالرد . تفعيل ازرار مشتريات يوم واسبوع وشهر وسنة-1 (2).accdb

اذا اردت الحفاظ على الترقيم التلقائي..اعمل نص غير منظم في النموذج ..من خلال زر الحفظ سيتم البحث عن نفس الاسم او الرقم للطالب في الجدول..فاذا كان مكررا فلن يتم الحفظ ولن يكون هناك ترقيم تلقائي جديد.....استخدم الكود التالي في زر الحفظ Private Sub btnSave_Click() Dim strStudentName As String strStudentName = Me.txtStudent.Value ' معرفة اذا كان اسم الطالب موجود مسبقا If Not IsNull(DLookup("studentName", "tblStudentDetails", "studentName='" & strStudentName & "'")) Then MsgBox "اسم الطالب موجود مسبقا", vbInformation, " تكرار" Me.txtStudent.SetFocus Me.txtStudent.Text = "" Exit Sub Else CurrentDb.Execute "INSERT INTO tblStudentDetails (studentName) VALUES ('" & strStudentName & "')" MsgBox "تم التسجيل بنجاح.", vbInformation, "تسجيل" Me.txtStudent.SetFocus Me.txtStudent.Text = "" End If End Sub

طيب ضع فى النموذج فى وضع التصميم مربع نص باسم txtTimer وضع زر امر فى حدث الوقت للنموذج ضع الكود الاتى txtTimer = txtTimer - 1 If txtTimer = 0 Then 'do your event. MsgBox "end of time" TimerInterval = 0 ' Stop the timer End If وفى حدث زر الامر ضع الكود الاتى If IsNull(Me.txtTimer) Or Me.txtTimer = Empty Or txtTimer = 0 Or Len(Me.txtTimer) = 0 Then Exit Sub TimerInterval = 1000 ' 1 second

شكرا أستاذ بارك الله فيك وجزاك الله خيرا

السلام عليكم جرب الملف كلمة السر 123 الزمن 50 ثانية يمكن تعديلها من الكود توقيت.xlsm

وعليكم السلام استخدام الترقيم التلقائي خاص لل access فقط. وهو غير قابل للتعديل الا في حالة الضغط والاصلاح يجب عليك استخدام حقل رقم إذا كنت تريد الاحتفاظ بالتسلسل.وتكون القيمة الافتراضية : =DMax("[strStudentNumber]","tblStudentDetails")+1

وعليكم السلام ورحمة الله وبركاته طلبك غير واضح بالنسبة لي هل تريد اخفاء الليبل فقط ام يتم معه اخفاء التكست بوكس ايضا علي كل حال اليك ملف اخفاء الليبل فقط اخفاء الليبل.xlsm وهذا اخفاء الليبل مع التكست بوكس الاثنين اخفاء الليبلوالتكست.xlsm واختر ما يخقق طلبك تحياتي

Try Sub Test() Dim lr As Long With ActiveSheet lr = .Cells(Rows.Count, 1).End(xlUp).Row ConvertData .Range("A1:D" & lr), .Range("H1") End With End Sub Public Sub ConvertData(ByVal sourceRange As Range, ByVal targetCell As Range) Const NAME_COL As Long = 2, MONTH_COL As Long = 3 Dim vName, vMonth, outputRange As Range, dicName As Object, dicMonth As Object, i As Long Set dicName = CreateObject("Scripting.Dictionary") Set dicMonth = CreateObject("Scripting.Dictionary") For i = 2 To sourceRange.Rows.Count If Not dicName.Exists(sourceRange(i, NAME_COL).Value) Then dicName.Add sourceRange(i, NAME_COL).Value, dicName.Count + 1 End If If Not dicMonth.Exists(sourceRange(i, MONTH_COL).Value) Then dicMonth.Add sourceRange(i, MONTH_COL).Value, dicMonth.Count + 1 End If Next i Set outputRange = targetCell.Resize(dicName.Count + 1, dicMonth.Count + 2) outputRange.Cells(1, 1).Value = "S" outputRange.Cells(1, 2).Value = "Name" For Each vMonth In dicMonth.Keys outputRange.Cells(1, dicMonth(vMonth) + 2).Value = vMonth Next vMonth For Each vName In dicName.Keys outputRange.Cells(dicName(vName) + 1, 1).Value = dicName(vName) outputRange.Cells(dicName(vName) + 1, 2).Value = vName For Each vMonth In dicMonth.Keys For i = 2 To sourceRange.Rows.Count If sourceRange(i, NAME_COL).Value = vName And sourceRange(i, MONTH_COL).Value = vMonth Then outputRange.Cells(dicName(vName) + 1, dicMonth(vMonth) + 2).Value = sourceRange(i, 4).Value Exit For End If Next i Next vMonth Next vName End Sub

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

RAFAT.xlsm

اضافة لما اشار اليه الاستاذ خليفة ممكن عملها بدون اكواد عن طريقة التنسيق الشرطي بداية نقوم باختيار الحقول التي نرغب في تطبيق الامر عليها ثم تنسيق ثم قاعدة جديد ثم تعبير ونضع فيه التعبير التالي [ss1]="مستمر" ثم اختيار تمكين عدم تمكين الشرح في الصورة المرفقة

لا يوجد خطأ