jjafferr

قد يكون الكمبيوتر الآخر فيه تحديث وندوز مال الفترة الماضية : جعفر

شكرا اخوي عبدالفتاح على مشاركتك 🙂 وكلما ابتعدت عن استعلام المجاميع ، كلما كان استعلامك اسرع 🙂 جعفر

تفضل ، استعلام يمكن تحديثه 🙂 ولكن ليس بأستعلام واحد !! كان ممكن نختصر هذه الاستعلامات ، ولكنك اردت الحل عن طريق الاستعلام الفرعي ، وليس وحدة نمطية !! الاستعلام 4 هو مطلبك 🙂 . . جعفر 1167.1.mdb.zip

صدقني انا بطيئ في ادخال البيانات ، فيا ريت ترفق لنا هذه البيانات 🙂 يا اخي ، قول لي من بياناتك شو اللي تريد اظهاره بالاستعلام ، وما فهمت اي سجل تريد جعفر

السلام عليكم اخي محمد 🙂 صار لي يومين اضرب اخماس في اسداس ، وما عرفت المطلوب رجاء تشرح لي بالتفصيل لو سمحت 🙂 جعفر

شكرا جزيلا اخي صالح 🙂 لطالما ظل هذا الموضوع غامض ، وهو تحت اعيننا 🙂 جعفر

وعليكم السلام اخي ابراهيم 🙂 اهلا وسهلا بك في المنتدى 🙂 رجاء عدم الرد في المواضيع القديمة ، فقد لا تحصل على رد ، وانما اعمل موضوع جديد لسؤالك ، وارفق رابط الموضوع لطرح طلبك 🙂 ردا على سؤالك ، تفضل هذا الرابط : جعفر

اعطنا مثال لوسمحت ، وياريت شوية بيانات

الحمدلله 🙂 وشكرا على المعلومة 🙂 جعفر

عفوا ، انا لم افهم شيء !!

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

اسمحوا لي ان اشرح فائدة الطريقة اللي اشرت لها انا 🙂 الفائدة هي محاكاة البرنامج الاخر ، وارسال بيانات له ، واستيراد بيانات منه ، وهذا لا يقتصر على قاعدة البيانات التي فتحت البرنامج الآخر ، وانما يعتمد على اي عدد من قواعد البيانات التي فتحتها عن طريق المتغير 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

اختي الفاضله علياء 🙂 اذا رأيتي ان المشاركة كانت ذو فائدة ، فرجاء تشجيع العضو بإختيارك: . ورجاء اختيار الاجابة التي كانت مناسبة لكي ، وقمتي بإستعمالها ، حتى يستفيد منها الذين عندهم نفس سؤالك : . جعفر

السلام عليكم 🙂 وهذا من قديم الصوف 🙂 جعفر

استعمل TOP 3 بدلا عن TOP 1 جعفر