اذهب الي المحتوي
أوفيسنا

jjafferr

أوفيسنا
  • Content Count

    6,070
  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    234

jjafferr last won the day on يناير 4

jjafferr had the most liked content!

السمعه بالموقع

5,008 Excellent

عن العضو jjafferr

  • الإسم الفعلي
    جعفر

البيانات الشخصية

  • Gender (Ar)
    ذكر
  • Job Title
    -

اخر الزوار

9,030 زياره للملف الشخصي
  1. قد يكون الكمبيوتر الآخر فيه تحديث وندوز مال الفترة الماضية : جعفر
  2. شكرا اخوي عبدالفتاح على مشاركتك 🙂 وكلما ابتعدت عن استعلام المجاميع ، كلما كان استعلامك اسرع 🙂 جعفر
  3. تفضل ، استعلام يمكن تحديثه 🙂 ولكن ليس بأستعلام واحد !! كان ممكن نختصر هذه الاستعلامات ، ولكنك اردت الحل عن طريق الاستعلام الفرعي ، وليس وحدة نمطية !! الاستعلام 4 هو مطلبك 🙂 . . جعفر 1167.1.mdb.zip
  4. صدقني انا بطيئ في ادخال البيانات ، فيا ريت ترفق لنا هذه البيانات 🙂 يا اخي ، قول لي من بياناتك شو اللي تريد اظهاره بالاستعلام ، وما فهمت اي سجل تريد جعفر
  5. السلام عليكم اخي محمد 🙂 صار لي يومين اضرب اخماس في اسداس ، وما عرفت المطلوب رجاء تشرح لي بالتفصيل لو سمحت 🙂 جعفر
  6. شكرا جزيلا اخي صالح 🙂 لطالما ظل هذا الموضوع غامض ، وهو تحت اعيننا 🙂 جعفر
  7. وعليكم السلام اخي ابراهيم 🙂 اهلا وسهلا بك في المنتدى 🙂 رجاء عدم الرد في المواضيع القديمة ، فقد لا تحصل على رد ، وانما اعمل موضوع جديد لسؤالك ، وارفق رابط الموضوع لطرح طلبك 🙂 ردا على سؤالك ، تفضل هذا الرابط : جعفر
  8. وعليكم السلام اخوي محمد 🙂 اذا ممكن ومن بيانات المرفق اعلاه ، ان تعمل لنا الجواب في ملف اكسل او وورد ، مثال او مثالين لوسمحت ، حتى يتضح المطلوب 🙂 جعفر
  9. اسمحوا لي ان اشرح فائدة الطريقة اللي اشرت لها انا 🙂 الفائدة هي محاكاة البرنامج الاخر ، وارسال بيانات له ، واستيراد بيانات منه ، وهذا لا يقتصر على قاعدة البيانات التي فتحت البرنامج الآخر ، وانما يعتمد على اي عدد من قواعد البيانات التي فتحتها عن طريق المتغير appAccess و appAccess2 و ... وبعد اذن اخي ابو البشر ، فاستخدمت مرفقه ، وبتعديل بسيط على البرنامج Sub بحيث النموذج mark2 لا يُفتح تلقائيا ، واضفت له زر : الكود التالي : يفتح قاعدة البيانات Sub ، 1. يرسل القيمة "c:\abc\abc" الى الحقل txtPath ، 2. ويأخذ المسمى الموجود في حقل التسمية 7 ، ويضعه في برنامجنا : Private Sub cmd_View_Kids_info_Click() On Error GoTo err_cmd_View_Kids_info_Click Dim appAccess As Object Dim DB_Path As String Dim myWhere As String 'if the Remote Application/Form is open, close it first appAccess.DoCmd.Quit 'now open the Form for the new Employee_ID Set appAccess = CreateObject("Access.Application") DB_Path = Application.CurrentProject.Path & "\mark2.mdb" appAccess.OpenCurrentDatabase (DB_Path) appAccess.DoCmd.OpenForm "Mark" appAccess.Visible = True With appAccess.Forms!Mark .txtPath = "c:\abc\abc" Me.lbl2.Caption = .[تسمية7].Caption End With appAccess.UserControl = True 'Set appAccess = Nothing Exit_cmd_View_Kids_info_Click: Exit Sub err_cmd_View_Kids_info_Click: If Err.Number = 91 Or Err.Number = 462 Then 'the application is NOT open, ignore the error Resume Next Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub جعفر fayz.zip
  10. اختي الفاضله علياء 🙂 اذا رأيتي ان المشاركة كانت ذو فائدة ، فرجاء تشجيع العضو بإختيارك: . ورجاء اختيار الاجابة التي كانت مناسبة لكي ، وقمتي بإستعمالها ، حتى يستفيد منها الذين عندهم نفس سؤالك : . جعفر
×
×
  • اضف...