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

هل يمكن عمل استعلام في الاكسس مثل هذا الاكسل

عندي فاتورة بيع وفاتورة مرتد

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