Tamer Murad

الأستاذ الفاضل murady شكرا اخي الكريم وجزاك الله كل خير وجعله في ميزان حسناتك

الأستاذ الفاضل murady شكرا اخي الكريم بس كنت محتاج اعرف طريقة تصميم القائمة وزاي ربطتهم ببعض ممكن الطريقة وياريت بالصور

الأستاذ الفاضل murady مشكور اخي الكريم ما قصرت الموضوع سهل انا محتاج نموذج مثل الي في الصور اختار الكود من القائمة مثل الي في الصور . والكود هذا موجود في جدول tbImport ومربوط بجدول tbCustomsCertif كل ما اضيف باتشة داخل جدول الامبورت بدخل على نموذج 3 الي مربوط بجدول الشاهادات والضرائب واضيف المصروفات لو مش منضافة منضافة خلاص بتظهر المبالغ لو في تعديل بعدل في باتشة انضافت بضيف مصروفاتها

الأستاذ الفاضل murady مشكور اخي الكريم ما قصرت بس المشكلة المثال الاول ممتاز وكنت محتاج اتعلم منك طريقة عمل مربع التحرير لانه نفس المطلوب عند اختيار Code # فان باقي البيانات تظهر

انا عندي جدول باسم tbImpor وحقل باسم ShipmentNoPO وهو عبارة رقم الشحنة انا عامل نموذج باسم نموذج3 مربوط بجدول tbCustomsCertif انا محتاج لما اختار من مربع التحرير والسرد رقم الشحنة ShipmentNoPO واكمل باقي البيانات الضريبية بعد اذن السادة الافاضل انا محتاج في النموذج3 اختار رم الشحنة باقي الخلايا لو فاضية اكمل لو فيها بيانات يجيب البيانات الي فيها لاني لما اختار رقم الشحنة كل مرة يجيب لي البيانات فاضية مش عارف اربطهم ببعض وشكرا Import.rar

السلام عليكم عندي سؤال اخوتي في الله طريقة ربط التقارير في TreeView الكود المرفق هو لفتح الفورم فقط هل من الممكن التعديل عليه بحيث يفتح تقارير وفورم Private Sub Form_Load() Dim OldLong As Long Dim nodX As Node Set nodX = TreeView1.Nodes.ADD(, , "R", "ÃÚÏÇÏÇÊ ÇáäÙÇã", 3) Set nodX = TreeView1.Nodes.ADD(, , "D", "ÇáÊÞÇÑíÑ", 3) Set nodX = TreeView1.Nodes.ADD("R", tvwChild, "C1", "ÈíÇäÇÊ ÇáÔÑßÉ", 2) Set nodX = TreeView1.Nodes.ADD("R", tvwChild, "C2", "ÈíÇäÇÊ ãÓÊÎÏãí ÇáäÙÇã", 5) Set nodX = TreeView1.Nodes.ADD("R", tvwChild, "C3", "ßáãÇÊ ÇáãÑæÑ", 1) Set nodX = TreeView1.Nodes.ADD("R", tvwChild, "C4", "ÈíÇäÇÊ ÇáãØæÑíä", 4) Set nodX = TreeView1.Nodes.ADD("D", tvwChild, "C5", "ÊÞÑíÑ 1", 4) Set nodX = TreeView1.Nodes.ADD("D", tvwChild, "C6", "ÊÞÑíÑ 2", 4) nodX.EnsureVisible OldLong = GetWindowLong(TreeView1.hwnd, GWL_EXSTYLE) SetWindowLong TreeView1.hwnd, GWL_EXSTYLE, OldLong Or WS_EX_LAYOUTRTL InvalidateRect hwnd, 0, False End Sub Private Sub TreeView1_Click() Dim strFormName As String Dim formsDictionary As New Scripting.Dictionary formsDictionary.ADD "ÈíÇäÇÊ ÇáÔÑßÉ", "frmCompany" formsDictionary.ADD "ÈíÇäÇÊ ãÓÊÎÏãí ÇáäÙÇã", "frmSystemUserData" formsDictionary.ADD "ßáãÇÊ ÇáãÑæÑ", "frmPassword" formsDictionary.ADD "ÈíÇäÇÊ ÇáãØæÑíä", "frmDeveloper" strFormName = TreeView1.SelectedItem.Text If formsDictionary.Exists(strFormName) Then DoCmd.OpenForm formsDictionary(strFormName) Else MsgBox "ÚÐÑÇ åÐÇ ÇáäãæÐÌ ÛíÑ ãæÌæÏ", vbExclamation, "ÊäÈíå" End If End Sub MediaSoft.rar

السلام عليكم الايوجد رد واحد ام الموضوع اغلق ام الموضوع صعب

السلام عليكم عندي سؤال اخوتي في الله الكود المرفق هو لفتح الفورم فقط هل من الممكن التعديل عليه بحث يفتح تقارير وفورم DoCmd.OpenReport "EmployeeReport", acViewReport وسؤال ثاني هل لما اضغط على فورم او تقرير يفتح مدمج في الجزء الثاني يعني فورم فرعي Private Sub TreeView1_Click() Dim strFormName As String Dim formsDictionary As New Scripting.Dictionary formsDictionary.ADD "بيانات الشركة", "frmCompany" formsDictionary.ADD "بيانات مستخدمي النظام", "frmSystemUserData" formsDictionary.ADD "كلمات المرور", "frmPassword" formsDictionary.ADD "بيانات المطورين", "frmDeveloper" strFormName = TreeView1.SelectedItem.Text If formsDictionary.Exists(strFormName) Then DoCmd.OpenForm formsDictionary(strFormName) Else MsgBox "عذرا هذا النموذج غير موجود", vbExclamation, "تنبيه" End If End Sub

السلام عليكم اخي العزيز @الحلبيارجو ارفاق الملف الذي تحتاج التعديل عليه وسوف يقوم الزملاء بمساعدتك فورا انشاء الله

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

السلام عليكم كل ماريده هو : Treeview يكون عربي والفورم اسمها يكون انجليزي وليس عربي

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

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

هل يمكن عمل استعلام في الاكسس مثل هذا الاكسل عندي فاتورة بيع وفاتورة مرتد وعاوز اعمل استعلام للمندوب بالاصناف (الكمية المباعة والكمية المرتدة ) لكل صنف اجمالي (وقيمة المباع والمرتد) كل هذا في استعلام واحد