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

Me.LabelNameText = Me.LabelNameA.ControlTipText LabelName.rar

الزر النشط اي المستخدم حاليا والفكرة باختصار في عالم البرمجة نتجنب تكرار الامر كلما امكن ذلك

مشاركة مع الاستاذ ابو خليل الفكرة ان نستغني عن تكرار الامر بعدد الازرار وبدون الحاجة لكتابة اسم زر الامر عن طريق عمل اجراء نعلى النحو التالي Sub x() LabelNameText = ActiveControl.ControlTipText End Sub ثم في زر الامر نشير لاسم الاجراء فقط x الملف مرفق اخونا الشايب LabelName.accdb

استبدل هذا السطر folderPath = CurrentProject.Path & "\" & folderName & "\" بما يشبه هذا folderPath = "E:\" & folderName & "\"

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

الأخوة الأعضاء لو حد عنده حل لا يبخل عينا به وشكرا جزيلا

Private Sub TextBox7_Change() If IsDate(Me.TextBox7) And IsNumeric(Me.TextBox4) Then Me.TextBox8 = Format(CDate(Me.TextBox7) + CDbl(Me.TextBox4) - 1, "yyyy/mm/dd") Else Me.TextBox8 = "" End If End Sub تنسيق التاريخ و اظافة و تعديل.xlsb

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

و عليكم السلام و رحمة الله ضع الكود التالى فى حدث الفورم Private Sub CommandButton1_Click() Dim Arr, Cond1, Cond2, Cond3 Dim Tmp, p Arr = Range("A2:B9") Cond1 = Me.TextBox1.Value Cond2 = Me.TextBox2.Value Cond3 = Me.TextBox3.Value If Cond1 = "" Or Cond2 = "" Or Cond3 = "" Then MsgBox "asdfghjkl" Exit Sub End If ReDim Tmp(1 To UBound(Arr, 1), 1 To UBound(Arr, 2)) For i = 1 To UBound(Arr, 1) If Arr(i, 2) = Cond1 Or Arr(i, 2) = Cond2 Or Arr(i, 2) = Cond3 Then p = p + 1 For j = 1 To 2 Tmp(p, j) = Arr(i, j) Next End If Next With Me.ListBox1 .Clear .AddItem .List = Tmp End With End Sub

الان انتبهت انك غيرت طلبك . هذا طلبك الاول : وقد رايت كود الاستاذ @AlwaZeeR وهو يعمل بكفاءه. وهدا طلبك الثاني : هل هو المطلوب ام ان هناك تغير ثالث؟ أخي الكريم انت عضو فضي وتعرف قوانين المنتدى . على العموم قمت بتغير الكود للتالي فقط الغي الكود السابق وضع هذا الكود Private Sub Form_Current() Dim Psh As String Dim fileName As String Dim folderPath As String Dim folderName As Variant On Error GoTo Err fileName = [ID] Dim folders() As String folders = Split("picto,picto1,Picto2", ",") For Each folderName In folders folderPath = CurrentProject.Path & "\" & folderName & "\" If Dir(folderPath & fileName & ".jpg") <> "" Then Psh = folderPath & fileName & ".jpg" Exit For ' Exit loop once file is found ElseIf Dir(folderPath & fileName & ".png") <> "" Then Psh = folderPath & fileName & ".png" Exit For End If Next folderName pic.Picture = Psh Exit Sub Err: pic.Picture = "" Exit Sub End Sub تحياتي

وعليكم السلام مشاركة مع الاساتذة بازك الله فيهم هل هذا هو المطلوب ؟ Private Sub Form_Current() Dim Psh As String Dim filePath As String Dim fileName As String On Error GoTo Err fileName = [ID] filePath = CurrentProject.Path & "\picto\" & fileName If Dir(filePath & ".jpg") <> "" Then Psh = filePath & ".jpg" ElseIf Dir(filePath & ".png") <> "" Then Psh = filePath & ".png" Else Psh = "" End If pic.Picture = Psh Exit Sub Err: pic.Picture = "" Exit Sub End Sub والملف بعد التعديل التعامل مع الصور 2.rar

صراحة لم افهم ما تقصده ارفق صورة اذا تكرمت

جزاكم الله خيراً استاذنا الاستاذ حسونة وبارك الله لك وهذا تعديل أخر على الكود ايضاً ترحيل بالتاريخ بالكود.xlsb