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

مشاركة مع معلمي واستاذي @jjafferr تفضل استاذ @figo82eg محاولتي من خارج الصندوق . اليك الشرح والمرفق . ووافني بالرد DDChangeButtonColor.rar

شكراً لك أختنا الكريمة صفاء على سءالك ،، الحمد لله بخير . وأشكر كل من قام بالسؤال عني ، وربنا يطمنكم على حبايبكم ولا يريكم فيهم مكروه ولا يشغلني عنكم فعلاً سوى العمل للأسف .. متواجد بفترات على الواتس في مجموعة المنتدى

اشكرك واقدر مجهودك من اعماقي مبدع

من باب اثراء الموضوع ومشاركة مع البرف @jjafferr لم اجرب الكود ولكن ضعه في زر النموذج واعلمنا بالنتيجة Dim ws As DAO.Workspace Dim db As DAO.Database Dim LDBFileName As String Dim FileNum As Integer Dim TmpStr As String Dim UserList As String Set ws = DBEngine.Workspaces(0) Set db = ws.Databases(0) LDBFileName = CurrentProject.Path & "\" & Left(CurrentProject.Name, (InStrRev(CurrentProject.Name, ".", -1, vbTextCompare) - 1)) & ".ldb" MsgBox LDBFileName FileNum = FreeFile() Open LDBFileName For Input As #FileNum Do While Not EOF(FileNum) Line Input #FileNum, TmpStr If TmpStr <> "" Then UserList = UserList & TmpStr & vbNewLine End If Loop Close #FileNum MsgBox "Current Users:" & vbNewLine & UserList

نعم ، اعمل الجدول ، والنموذج على اساس الجدول ، والباقي سهل ان شاء الله. ولا ما عندي عمل ممكن ارفقه. الخطوة اعلاه هي اساس العمل كله، والباقي خطوات سهله 🙂 جعفر

فكرة جميلة بارك الله فيك الأستاذ @kkhalifa1960 و ربي يجازيك هذا ما أريد و هذا المطلوب

سيدي الفاضل: بما انه عندك ربط بين جدولين في الاستعلام ، فعلشان تقدر تدخل بيانات في جميع الجداول ، رجاء عمل التغيير على "نوع السجلات" كما هو موضح في الصورة : . وعمل نفس الشئ في النموذج كذلك: . واخيرا ، وبما انه يجب عليك ادخال معلومات معينة في الجدول f2 ، فيجب ان تعمل الحقلين في المربع الاحمر ، وتدخل بياناتهم كذلك : جعفر

وعليكم السلام 🙂 تحصل على النتيجة التالية (لأني الوحيد اللي فاتح البرنامج، فلا ترى الا اسم كمبيوتري) : COMPUTER_NAME LOGIN_NAME CONNECTED SUSPECT_STATE myPC Admin True Null من الكود التالي: Function ShowUserRosterMultipleUsers_Jet_4() Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset Set cn = CurrentProject.Connection ' The user roster is exposed as a provider-specific schema rowset ' in the Jet 4.0 OLE DB provider. You have to use a GUID to ' reference the schema, as provider-specific schemas are not ' listed in ADO's type library for schema rowsets Set rs = cn.OpenSchema(adSchemaProviderSpecific, _ , "{947bb102-5d43-11d1-bdbf-00c04fb92675}") 'Output the list of all users in the current database. Debug.Print rs.Fields(0).Name, "", rs.Fields(1).Name, _ "", rs.Fields(2).Name, rs.Fields(3).Name While Not rs.EOF Debug.Print rs.Fields(0), rs.Fields(1), _ rs.Fields(2), rs.Fields(3) rs.MoveNext Wend rs.Close: Set rs = Nothing cn.Close: Set cn = Nothing End Function . طريقة العمل: اعمل جدول فيه حقل Computer_Name ، واسم المستخدم ، والكود اعلاه يعطيك Computer_Name المتصل بقاعدة البيانات الان ، فمن ذي وذاك ، تتوصل الى معرفة اسم المستخدم اللي فاتح قاعدة البيانات الان 🙂 جعفر

تفضل استاذ @moho58 . basen.rar

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

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

طبق ما في الصورة مع استخدام هذا ......... Me.نص1595 = DCount("[الرقم]", "[مذكرة]", "[الرمز] ='" & [Forms]![memoire]![الرمز] & "'") Me.نص1597 = DMax("[الرقم]", "[مذكرة]", "[الرمز] ='" & [Forms]![memoire]![الرمز] & "'")

جرب هل هدا ما تقصده Sub TEST() Dim WS As Worksheet: Dim F As Worksheet Set WS = Sheets("ورقة2"): Set F = Sheets("ورقة3") Application.ScreenUpdating = False F.Range("B" & F.Rows.Count).End(xlUp).Offset(1).Resize(, _ 26).Value = Application.Index(WS.Range _ ("D5,C7,C9,C11,D13,E15,D17,D19,D21,J7,J9,J11,J13,J15,J17,I19,K19,J21,O7,O9,O11,N13,N15,N17,O19,O21"), _ 1, 1, Array(2, 3, 1, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, _ 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26)) With F.Range("A4:A" & F.Cells(Rows.Count, "B").End(xlUp).Row) .Value = Evaluate("ROW(" & .Address & ")-3") End With Application.ScreenUpdating = True MsgBox "تم ترحيل البيانات بنجاح" End Sub New ورقة عمل Microsoft Excel 2.xlsm

الأمر يسير جدا نحن اغفلنا القيمة الافتراضية لحقلي كمية الوارد وكمية الصادر في الجدول المفروض عند التصميم تكون القيمة الافتراضية = صفر بكذا تكون العمليات الحسابية صحيحة .. ولا نضطر لاستخدام اكواد تحويل الفراغ الى القيمة صفر كل ما عليك هو .. في خصائص جدول التفاصيل اجعل القيمة الافتراضية لحقلي كمية الوارد وكمية الصادر في الجدول = صفر ولتتأكد من صحة النتيجة ضع صفر في الحقول الفارغة التي تم ادراجها

لايسعنى غيرتقديم خالص الشكر على تعبك وسعة صدرك كتر خيرك

تمام .. انت تفكر صح تم التعديل حسب فكرتك طبعا ممكن وهذا الشرط خاص بالمواد الصادرة تم التعديل .. بانشاء استعلام خاص بالارصدة يتم فحص الرصيد منه قبل اجراء العملية stock6.rar

شكرا أخى الكريم

تم الحل جرب اخي تم الحل.xlsx

بارك الله فيك وكتب اجرك آخر استفسار هل تنفع الدالة لجمع الصفوف الرقمية كذلك؟

وعليكم السلام 🙂 في وضع التصميم ، عند النقر على التبويب ، نلاحظ من اعدادات الكائن انه لا يوجد به اي شيء يشير الى اللون ، لهذا السبب لا يمكن تغيير لونه، ولكن ، من الاعدادات هناك امكانية تغيير صورة خلفيته . فعملت ملفين ، لون احمر وآخر رصاصي ، ووضعتهم في مجلد في نفس مسار البرنامج: . والنتيجة: هكذا سيكون النموذج: . وهذا الكود يقوم بعملية تبديل الوان التبويب: Private Sub Form_Load() Call TabCtl0_Click End Sub Private Sub TabCtl0_Click() Dim i As Integer Dim Pic_Path As String ' مسار مجلد الصور Pic_Path = Application.CurrentProject.Path & "\Forms_Tabs_Color_images\" ' التويب الذي تم النقر عليه يتم تغيير لونه الى ملف اللون الاحمر ' واما الباقية، فنغير لونها الى ملف اللون الرصاصي For i = 0 To Me.TabCtl0.Pages.Count - 1 If Me.TabCtl0.Value = i Then Me.TabCtl0.Pages.Item(i).Picture = Pic_Path & "Red.jpg" Else Me.TabCtl0.Pages.Item(i).Picture = Pic_Path & "Gray.jpg" End If Next i End Sub جعفر 1605.Form_Tabs_Color.zip

أخي الفاضل استخدام اللغة العربية لأسماء (الجداول - النماذج - الاستعلامات -........................) وبارامتراها بيلخبط البرمجة فأنصحك باستخدام اللغة الانجليزية . أما البيانات استخدم أي لغة . تم اضافة كل الحقول كما بالمرفق .ووافني بالؤد اذا كان هذا طلبك اضغط أفضل اجابة . المشاركات والوظائف السابقة-3.rar

مرفق للتجربة فقط للتجربة وليس للإضافة الى المكتبة العامرة img.zip