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

تفضل Dim x As Date x = Nz(DLookup("dat", "tabl", "dat=[dd]"), 0) If x = Me.dd Then Me.t4.Requery Me.t4.Visible = True Else Me.t4.Requery Me.t4.Visible = False MsgBox " التاريخ الذي اخترته غير موجود", , "تنبيه" End If 122024.rar

حبيبي حبيبي حبيبي حبيبي يا استاذى الغالى @ابوخليل اشرقت الانوار بمرورك الكريم العطر اخى فى الله

اهلا ابا حسان كنت احسب انك انت السائل ولم انتبه ان مشاركتك هي حل للمطلوب لذا لما رأيت تسميات الحقول بالحروف العربية استغربت كثيرا !!!

هذا الجزء الخاص باخفاء الحقل If Me.comb1 = "نعم" Then Me.تاريخ_الميلاد.Visible = False Else Me.تاريخ_الميلاد.Visible = True End If وهذ السطر المعدل من اجل يقبل الحفظ عندما يكون حقل التاريخ فارغ If TypeName(ctl) = "TextBox" And ctl.Name <> "تاريخ الميلاد" Then الافواج2.rar

@abouelhassan ممكن صورة لقطة من الشاشة بقرا الرسالة !وما طلعتلي الرسالة ؟ بحاولة مساعدة وانا كنت مشغولة وايد 😇 ========================== 1- تأكد ان الاكسس من الاعدادة ان تنسيق محتفظ وانك ماحددة تنسيق 2003 والبرنامج من غير جداول !! هل تقصد تحكم الرسالة بنقل قيمة للحقل ؟!

ألاحظ (كثير) ممن يستخدمون أكواد آخرين القيام بـ "تنظيم" الكود على هواه وهذا تعد على "صناعة" هذا المبرمج فالبرمجة كالصناعة لها بصمتها وكثير من الأحيان يمكن التعرف على المبرمج من طريقة كتابته للأكواد. الأدهى أنه يتجرأ ويقوم بالتعديل على هذه الأكواد وغالبا سيتسبب في حصول إخفاقات وفشل في إعطاء مخرجات صحيحة ستنسب لصانعها بعد تناقلها وكثرة التعديلات والمعدلين على الكود هذا إذا كان أمينا وأبقى على اسم المبرمج أعلى الكود. الحل والنصيحة: عليك أن تفتح موديولا خاصا بالأصل ولا تلمسه البتة ثم افتح موديولا آخرا يحمل اسمك وتذكر فيه المصدر وتستطيع استخدام نفس الدوال بتعديل اسم الدالة ولو بإضافة رقم 2 على نهاية الاسم. واختصارا للوقت لا تقوم بالتعديل على كامل الدالة بل استدعيها في دالتك الجديدة وقم بالتعديل على مخرجاتها بما يناسبك ولا تنسى في موديول مستقل خاص بك. ما دعاني لكتابة هذا الموضوع اطلاعي على شفرة للتفقيط من عمل أحد عمالقة المبرمجين شوهت تشويها كبيرا جدا لدرجة أني كرهت المواصلة في رؤية تلك الحالة من الفوضى والتشويه مع إزالة اسم كاتب صانع الشفرة الأصل. الآن توجد قوانين بيئية تخالف المتسببين في أي تشويه بصري، فاعملوا بقوانينهم لشفراتكم أيضا.

أظن أنه يجب عليك التحقق من تطابق أو وجود أسماء الأوراق المحددة بالكود على المصنف

Private Sub TextBox1_change() Dim n As Range, J As Long, i As Long Dim Search As String Dim MyArray() As Variant SearchColumn = "A" Search = Me.TextBox1 MyArray = Array("Sheet1", "Sheet2") For i = LBound(MyArray) To UBound(MyArray) With Worksheets(MyArray(i)) Set n = .Columns(SearchColumn).Find(Search, LookIn:=xlValues, lookat:=xlWhole) If Not n Is Nothing Then J = n.Row: Me.TextBox2 = .Range("B" & J) Exit For Else Me.TextBox2 = "" End If End With Next i End Sub

وعليكم السلام ورحمة الله و بركاته Private Sub TextBox1_change() Dim WS As Worksheet Dim n As Range, J As Long Dim Search As String Dim SearchColumn As Variant For Each WS In ThisWorkbook.Worksheets Search = Me.TextBox1 SearchColumn = "A" With WS Set n = .Columns(SearchColumn).Find(Search, LookIn:=xlValues, lookat:=xlWhole) If Not n Is Nothing Then J = n.Row: Me.TextBox2 = .Range("B" & J) Exit For Else Me.TextBox2 = "" End If End With Next WS End Sub

تم اعداد الفكرة على النحو التالي : 1- اعادة صياغة الجداول 2- جدول حالة المنصب تحصيل حاصل .. ومسبب زحمة لا حاجة لها .. لأن الحالة ستظهر من واقع البيانات المدخلة .. لذا تم حذفه 3- تم انشاء جدول جديد باسم tblMain وهو جدول الحركة وهو الاساس في الاستعلامات بمعنى يجب ان تبني عليه نموذج الادخال .. وهو جدول بسيط ولكنه يخفي خلفه الكثير من البيانات كل ما عليك هو اختيار الاسم الكامل / اسم المنصب / رقم الأمر / تاريخه .. فقط كنت اريد ان اعمل لك هذا النموذج ولكنك تعمل على 2003 لذا لن يعمل معك ........................................ عملت لك استعلامات وكتبت عناوينها بالعربي من اجل تقريب الفهم علما انه يمكن اختصار هذه الاستعلامات باستعلام .. واختلاف النتيجة يتم بواسطة المعايير من خلال النموذج مثال (5).rar

Private Sub UserForm_Initialize() Label5.Caption = [j1] End Su '******************* Private Sub TextBox1_Change() Dim n As Range, J As Long, f As Long Set WS = Worksheets("Sheet1") Cnt = Me.TextBox1.Value: WS.[W1] = Cnt f = WS.Cells(WS.Rows.Count, 2).End(xlUp).Row If Cnt <> "" Then With WS Set n = .Range("A2:A" & f).Find(What:=Cnt, LookIn:=xlValues, LookAt:=xlWhole, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False) If Not n Is Nothing Then J = n.Row Me.TextBox2 = .Range("B" & J) Me.TextBox3 = Evaluate("=SUMPRODUCT((D2:D10000) * (A2:A10000=W1) * (C2:C10000<>j1))") End If End With Else Me.TextBox3 = "": Me.TextBox2 = "" End If End Sub 'OR============================================================= Public Property Get WS() As Worksheet: Set WS = Worksheets("Sheet1") End Property Private Sub UserForm_Initialize() Set J = CreateObject("Scripting.Dictionary") a = WS.Range("A2:A" & WS.[A65000].End(xlUp).Row) For i = LBound(a) To UBound(a) If a(i, 1) <> "" Then J(a(i, 1)) = "" Next i n = J.keys Me.ComboBox1.List = n Label5.Caption = [j1] End Sub Private Sub ComboBox1_Change() Dim n As Range, J As Long, f As Long Cnt = Me.ComboBox1.Value: WS.[W1] = Cnt '''Code..... Else Me.TextBox3 = "": Me.TextBox2 = "" End If End Sub Sumif v2.xlsm

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

اتفضل اخى اذا وجدت طلبك فى المرفق لا تنسى تقييم اجابتي 17 june_1.rar