Shivan Kurdi - شڤان کوردی

لا اللون راح يكون في نفس اللون واذا تريد ان يغير اللون راح اعمل لك باذن الله

ثلاثين يوم اخي شوف الصورة

اللهم امين

اهلا بك في المنتدى ممكن تتوضح اكثر ما تريد إضافة جميع الموظفين من جدول الموظفين إلى جدول الحضور والغياب أوتوماتيكيا في اي وقت تريد او في اي حالة مع تقدير

شوف جرب ووافيني بالنتيجة برنامج الجمعية 2017 (1).rar

اخي الكريم في الحقيقة انا ما جربت هذا الحل لاني ما عندي اجهزة متاحة لكي اجرب عليها لذا هل من الممكن ان تجرب ووافيني بالنتيجة حين تضغط على زر نيو بينطيك رقم لسجل جديد فورا و بيخلي لكومبوبوكس باسم importername = "" وبعدين بيحفظه اتمنى ان تجربه ووافيني بالنتيجة مع تقدير وهذا هو الكود لزر سجل جديد Private Sub NEW_Click() On Error GoTo Err_NEW_Click DoCmd.GoToRecord , , acNewRec Me!ID = Nz(DMax("[ID]", "[importationtable]"), 0) + 1 Me.importername = "" DoCmd.Save Exit_NEW_Click: Exit Sub Err_NEW_Click: MsgBox Err.Description Resume Exit_NEW_Click End Sub DMax (1).rar

اتفضل كما تريد وتكدر تفتح اي اسم المستبعدين اللي في جدول شو المستبعدين في جدول المستبعدين بواسطة دبل كليك على اسمه او اي دي خاص له مع تقدير برنامج الجمعية 2017 (1).rar

اسف على قلة شرحي الاول العجب كله يرجع لهذه وحدة نمطية اللي بها فانكشن باسم ConvertColumnToRow وفي الاستعلام راح نستخدم هذا الاسم Public Function ConvertColumnToRow(strField As String, _ strTable As String, _ Optional strWhere As String, _ Optional strOrderBy As String, _ Optional strSeparator = ", ") As Variant On Error GoTo Err_Handler Dim rs As DAO.Recordset Dim rsMV As DAO.Recordset Dim strSql As String Dim strOut As String Dim lngLen As Long Dim bIsMultiValue As Boolean ConvertColumnToRow = Null strSql = "SELECT " & strField & " FROM " & strTable If strWhere <> vbNullString Then strSql = strSql & " WHERE " & strWhere End If If strOrderBy <> vbNullString Then strSql = strSql & " ORDER BY " & strOrderBy End If Set rs = DBEngine(0)(0).OpenRecordset(strSql, dbOpenDynaset) bIsMultiValue = (rs(0).Type > 100) Do While Not rs.EOF If bIsMultiValue Then Set rsMV = rs(0).Value Do While Not rsMV.EOF If Not IsNull(rsMV(0)) Then strOut = strOut & rsMV(0) & strSeparator End If rsMV.MoveNext Loop Set rsMV = Nothing ElseIf Not IsNull(rs(0)) Then strOut = strOut & rs(0) & strSeparator End If rs.MoveNext Loop rs.Close lngLen = Len(strOut) - Len(strSeparator) If lngLen > 0 Then ConvertColumnToRow = Left(strOut, lngLen) End If Exit_Handler: Set rsMV = Nothing Set rs = Nothing Exit Function Err_Handler: MsgBox "Error " & Err.Number & ": " & Err.Description, vbExclamation, "ConvertColumnToRow()" Resume Exit_Handler End Function وبعدين عملنا استعلام كما مبينة بالصور وبعدين عملنا تقرير على هذا الاستعلام وحفظنا التقرير باسم Query1 وبعد عملنا تقرير على هذا الاستعلام اي يعني مصدر هذا التقرير هو استعلام Query1 كما مبينة في الصورة وفي النهاية النتيجة طلعت هكذا مع تقدير

اتفضل استاذي ابو الخليل الحبيب اصدار 2003 مع تحياتي DLookAll.rar

اخي الكريم هسة انا بستخدم موبايل وان شاء الله في يوم السبت راح اشرح لك اذا ما يكفي هذه الكلما الاسفل العجب كله بيرجع للوحدة النمطية وبعد احنا عملنا استعلام واضفنا حقل اي دي و في حقل اخر كتبنا هذه الجملة Sn:Convertcolumntorow("[sn]";"sn"؛"]sn]![id]="&[id]) وعملنا تجميع اي كروب للاستعلام

لا داعي للشكر احنا في الخدمة ان شاء الله وشوف الاكواد لكي تعلم

كما قلت سابقا برأيي هذا الكود احسن من الاخرين

لا بل من النهاية

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

شوف هذا هل هذا هو طلبك شوفه ووافيني بالنتيجة Item.zip

الله يرضى عليك استاذي جعفر هل اكو شي اجمل من هذا الكود اوبدات يعمل بسرعة اكبر

ما رأيت ذاك النموذج هل تريد ان نعمل نموذج مستمر وبها كل الاسماء المستبعدين وفي امام كل اسم زر باسم اختر وحين تضغطه ان يفتح في نموذج ستاف المستبعدين صحيح ؟

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

تفضل كما تريد برنامج الجمعية 2017.rar

بكل سرور اتفضل الباب مفتوح لكل اعضاء

امين اجمعين

لا تشكرني اخي لا الشكر كله لله وحده بل ادعيلي ولعائلتي بالفردوس الاعلى

شيء جديد بالنسبة لي الله يبارك فيك

احنا اخوة من ينطي الجواب مش مهم بل المهم هو ان المسأل يوصل المطلوب ولا داعي للشكر علواجب وشكرا لك

تم الجواب عليه من هنا