noor_99

38 minutes ago, د.كاف يار said:

نعم صحيح بيانات قاعدة البيانات في سيرفر SOMEE

لا الموضوع فقط كمثال للإتصال لأن بطبيعة الحال بيانات الدخول ستكون ضمن الكود 

فعند الاتصال للتعديل او الإضافة أو الحذف أو الإستعلام أو عرض البيانات

يتم الاتصال بالسيرفر من خلال الكود دون تدخل المستخدم

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

كذلك يمكن الإكتفاء بربط قاعدة بيانات اكسس بالسيرفر بشكل مباشر لكني لم اجرب التعديل و الإضافة بشكل مباشر للأسف

طيب حطيت البيانات وتصل بالسيرفير 

لكن شلون اطبق في  شغلي 

لان لما حطيت الكود 

الي رسلته قبل في زر جلب البيانات 

واستبدلت اسم العنوان واسودت نيم والباس بالبيانات الحقيقيه لهم 

ورسلت الملف الى جاهز ثاني عشان اشوف يشتغل او لا اطلع هذي المشكله 

12 minutes ago, د.كاف يار said:

تفضل هذا المثال 

اكمالي البيانات و جربي الاتصال بجدول

 

16 minutes ago, د.كاف يار said:

تفضل هذا المثال 

اكمالي البيانات و جربي الاتصال بجدول

يعطيك العافيه

معليش تحملني

اش تقصد با اكملي البيانات يعني احط بيانات الي سجلتها في  somee

في المثل الى رسلته 

وهل لازم اعمل مثل هذي الطريقه للاتصل

يعني هل المستخدم الثاني لازم يحط الباس واسم المستخد واسم السيرفر 

لان الي فهمته قبل غير

يعني فهمت اني احط كود  في محرر الاكود في المودل

بعدها حطيت شاشه فيها زر وكتب عليها ادخل وخليت فيه الكود الي  قلت انه لجلب البيانات

12 minutes ago, د.كاف يار said:

16 minutes ago, د.كاف يار said:

MyData.zip 24.99 kB · 0 downloads

MyData.zip 24.99 kB · 0 downloads

5 hours ago, د.كاف يار said:

هذا الكود فقط كمثال يجب ان تضعي المعطيات للكود للحصول على نتيجة

ServerAddress=عنوان السيرفر
ServerUserName = اسم المستخدم الخاص بالسيرفر
ServerPassword = كلمة المرور الخاصة بالسيرفر
Call SQL_String("ServerAddress", "ServerUserName", "ServerPassword")

كما يجب اضافة المكتبة الخاصة بالإتصال البعيد

او ارفقي مثال لكي يتم التعديل عليه

طيب حتى بعد ما ضفت المكتبه

تطلع لي نفس المشكله 

كتبت الكود بهذا الشكل 

مثال من عندي 

Call SQL_String ( “test.somee.com”,”testLogin”,”7ghjk6”)

ولما حذفت 

private sub & end sub

راح الخطا 

لكن لما رسلت ملف الاكسس الي فيه فورم الى لابتوب ثاني عشان اجرب

طلعت لي رساله ان الباث غلط طبعا لان اشار الى باث الجداول الموجود في الجهاز الثاني 

سوري ادري ازعجتك كثير 😓

8 hours ago, د.كاف يار said:

لجلب البيانات من السيرفر استخدمي الرابط التالي

الصقي الكود التالي في آخر محرر الأكواد

Private Function SQL_String(ServerAddress As String, ServerUserName As String, ServerPassword As String) As String

    Dim conn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim strConnString As String
        strConnString = "Provider=SQLOLEDB;Data Source=" & ServerAddress & _
        ";Persist Security Info=True;User ID=" & ServerUserName & ";Password=" & ServerPassword & ";"
        
        Set conn = New ADODB.Connection
        conn.Open strConnString

        Set rs = conn.Execute("SELECT * FROM aqsam111")
                
           If Not rs.BOF And Not rs.EOF Then
                rs.MoveFirst
                While (Not rs.EOF)
                 [TextBox1] = rs.Fields(0).Value
                 [TextBox2] = rs.Fields(1).Value
                 [TextBox3] = rs.Fields(2).Value
                 [TextBox4] = rs.Fields(3).Value
                 [TextBox5] = rs.Fields(4).Value
                    rs.MoveNext
                Wend
            End If
            rs.Close
            Set rs = Nothing

End Function

و في ازرار جلب البيانات

Call SQL_String("ServerAddress", "ServerUserName", "ServerPassword")

 

يعطيك العافيه 

الحين انا طبقت كل الي في الشرح

هذي ملف الاكسس الي فيه فورم والكويري صارو الجداول بهذا الشكل 

اما الملف الي فيه الجدول فقط 

صار كذا بعد وضع قاعده البيانات في  somee

اما بنسبه للكود حطيته هنا صح ؟؟؟ في المودل 

واضفت زر لجلب البيانات  وحطيت الكود الزر بس طلع هذا😓

On 11/4/2021 at 4:43 PM, د.كاف يار said:

راجعي هذا الموضوع

 

اذا خليكي معايا خطوة بخطوة

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

و انصحك بسيرفر SOMEE كما هو موضع في المشاركة اعلاه 

١-هل الاستضافة المجانيه لها وقت وتنتهي ؟؟؟

٢- انا الحين رفعت الجداول على الموقع شلون اتعامل مع الفورم والتقارير او شلون اخليهم متصلين؟ بالقاعدة البيانات

٣- اقدر الحين مثلا استخدم واجهة الاكسس وبعدها استخدم واجهة VB.Net او ASP.Net

يعني بعد فترة من تجربه 

ادري اسالتي كثير بس لان اول مره اعمل هذا الشغل ☺️

2 minutes ago, د.كاف يار said:

ممتاز

اذا نبدء اول خطوة في تهيئة البرنامج للعمل عن بعد

قبل البدء يجب فصل قاعدة البيانات عن الواجهات هل قمتي بهذه الخطوة فعلاً ؟

ايوا فصلت الجداول

11 minutes ago, د.كاف يار said:

ماهو الهدف من نشر قاعدة البيانات على الانترنت ؟

ما الذي تنوي فعله ؟

لان رح يستخدم البرنامج اشخاص من مدن مختلفه

طبعا عند التحويل تطلع لي هذي المشكله

ولما جربت ب 

SQL migration 

احد عنده فكرة

3 hours ago, د.كاف يار said:

الافضل تقسيم قاعدة البيانات 

و تحويل القاعدة الى SQL

طيب انا الحين فصلت قاعدة البيانات

بس بنسبة الى مشاركتها عSQL 

بس عندي كم سؤال 

هل احولها (mdb)

قبل فصل القاعدة او بعد 

mdbالقاعدة مو راضية تتحول الى 

مو الطريقة اما من الاوبشن او حفظ كـ

2003

وبنسبة الى ربط القاعدة في SQL

السلام عليكم

ايش افضل طريقه لنشر الاكسس ع الانترنت

On 10/30/2021 at 12:12 PM, د.كاف يار said:

تم انشاء نسخة مماثلة من الجدول المرتبط بالنموذج الفرعي

و تم ربط النسخة mainData_NonSave بالنموذج الفرعي

و تم انشاء استعلام الحاقي 

لكي يتم اخذ جميع السجلات من النسخة الجديدة و الحاقها بالجدول الرئيسي و افراغ الجدول بعد الإلحاق

If DCount("*", "mainData_NonSave") = 0 Then
    MsgBox "لا توجد بيانات لترحيلها", vbCritical + vbMsgBoxRight, "تنبيه"
Else
    If MsgBox("هل تريد حفظ البيانات و ترحيلها ؟", vbExclamation + vbYesNo + vbMsgBoxRight, "تأكيد الحفظ") = vbYes Then
            DoCmd.SetWarnings False
                    DoCmd.OpenQuery "AddNew_minData"  '================ تشغيل الاستعلام الإلحاقي ===============
                    DoCmd.RunSQL "DELETE FROM mainData_NonSave;"  '============== افراغ الجدول المؤقت من البيانات بعد تشغيل الاستعلام الالحاقي ==========
            DoCmd.SetWarnings True
        mainData.Requery
        MsgBox "تم حفظ البيانات و ترحيلها بنجاح", vbInformation + vbMsgBoxRight, "تأكيد"
    End If
End If

 

مشكور الله يعطيك الف العافيه 

على مجهودك الجبار

من جد الكلمات ماتوفي 

شكري لك

19 hours ago, د.كاف يار said:

هذا الكود لا يتناسب السجلات المتعددة

فقط للسجلات الفردية

لكني تفضلي هذا الإسلوب في تخزين و ترحيل البيانات بين الجداول

حيث تم انشاء نسخة مطابقة للجدول لحفظ البيانات المؤقته فيه و من ثم يتم ترحيلها للجدول الأساسي

تفضلي التعديل

 

test.zip 78.49 kB · 3 downloads

يعطيك العافيه 

بس ممكن تشرح لي😅

22 hours ago, د.كاف يار said:

لإيقاف الحفظ التلقائي في التموذج اتبعي التالي

في محرر الأكواد و في اعلا المحرر بعد الإعلان Option Compare Database

نضع المتغيير و الأحداث التالية

Dim ِ AllwUpdate As Boolean

Private Sub Form_Dirty(Cancel As Integer)
    If AllwUpdate = False Then Cancel = True
End Sub

Private Sub Form_AfterUpdate()
    AllwUpdate = False
End Sub

و في حدث عن الفتح نضع التالي

AllwUpdate = True

و في ازرار الحفظ نضع التالي

DoCmd.RunCommand acCmdSaveRecord
AllwUpdate = True

تفضلي التعديل 

 

test.zip 72.41 kB · 8 downloads

يعطيك العافية

بس ماضبط معاي الكود

Private Sub Form_BeforeUpdate(Cancel As Integer)
If MsgBox("DO you want save records? ", vbInformation + vbYesNo, "Save") = vbNo Then

       Me.Undo
       DoCmd.CancelEvent
   Else
   End If
End Sub

انا الكود الي حطيته قبل ضبط لكن مشكلة لما انتقل  من سجل الى سجل كل شوي يطلب حفظ

2 hours ago, د.كاف يار said:

تفضلي هذا التعديل

البحث

- بــ / أو الرقم أو نطاق الرقم

- بـــ / أو  التاريخ او نطاق التاريخ

test.zip 75.9 kB · 2 downloads

مشكور يعطيك الف عافية 

طيب عندك فكرة عن سؤالي الثاني 

ابي لما احط البيانات وينتقل الى الفورم الثاني 

يطلب هل احفظ البيانات او لا لان ما ابي الحفظ التلقائي يشتغل

عشان كذا حطيت هذا الكود قبل التحديث في الفورم الرئيسي

Private Sub Form_BeforeUpdate(Cancel As Integer)
If MsgBox("DO you want save records? ", vbInformation + vbYesNo, "Save") = vbNo Then

       Me.Undo
       DoCmd.CancelEvent
   Else
   End If

End Sub
 

لكن لما احطة في باقي الفورمس الفرعية تطلع الرسالة 

بعد كل سجل 

 وانا ابيها بس عند الانتقال من فورم الى اخر وهم في الفروم الرئيسي

On 10/24/2021 at 4:01 PM, ابا جودى said:

اتفضل 

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

 

 

Multi Filters.mdb 472 kB · 8 downloads

مرا شكرا بس ابي البحث  في النموذج الرئيسي الي ارفقته 

لان النموذج الرئيسي يكون بين فيه اكثر من فورمtest.zip

On 10/24/2021 at 4:01 PM, د.كاف يار said:

فهلا يجب اضافة مرفق حتى يكون الحل نهائي

On 10/24/2021 at 3:29 PM, alzahrani2014 said:

وجود المرفق يسهل على الجميع الرد .... 

يعطيكم العافية جميعا

ابي لما احط البيانات وينتقل الى الفورم الثاني 

يطلب هل احفظ البيانات او لا لان ما ابي الحفظ التلقائي يشتغل

عشان كذا حطيت هذا الكود قبل التحديث في الفورم الرئيسي

Private Sub Form_BeforeUpdate(Cancel As Integer)
If MsgBox("DO you want save records? ", vbInformation + vbYesNo, "Save") = vbNo Then

       Me.Undo
       DoCmd.CancelEvent
   Else
   End If

End Sub
 

لكن لما احطة في باقي الفورمس الفرعية تطلع الرسالة 

بعد كل سجل 

وانا ابيها بس عند الانتقال من فورم الى اخر

السلام عليكم ورحمة الله وبركاته 

ابي اعمل فورم للبحث 

اكثر من حقل 

يعني احط من تاريخ الى تاريخ 

او رقم الفاتوره مثلا

او من اسم الموظف الي الي دخل البيانات

يعني مو شرط احطهم كلهم للبحث ممكن استخدم بس حقل 

انا اعرف اخليه يعمل بحث بحقل واحد لكن

لما ادخل المعيار في الحقل الثاني 

يطبق الثاني بس وما يطبق الاول

يعني كنت بس حاطة معيار للبحث برقم 

لكن لما احطمعيار في التاريخ 

يطبق بس على التاريخ 

ولما احط رقم من غير تاريخ او مع تاريخ مايسوي شي

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

المشكله الثالثه

لما اعمل import للبيانات من الاكسل

يخلي لي ٣ خانات فاضيه 😓

34 minutes ago, د.كاف يار said:

تفضلي هذي اضافة و حذف المواد

 

Project 1-1.zip 104.93 kB · 3 downloads

مررررررره شكراً يعطيكم الف العافيه 

جميعاً 

وقواكم الله

7 minutes ago, د.كاف يار said:

تظهر بعد الحفظ 

تم وضع ازرار للحفظ

ايييييي ضبط مره شكرا 

يعطيك الف عافيه

بس عندي سؤال ثاني اقدر اضيف خانة حق اذا يوزر يبي يدخل  مادة مو موجوده 🙈

8 minutes ago, د.كاف يار said:

هذا التعديل

تم تفادي الخطأ

Project 1-1.accdb 1.47 MB · 1 download

 بس البيانات صارت ماتطلع 

1 hour ago, Moosak said:

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

وايد ما اقدر اضيفها

55 minutes ago, د.كاف يار said:

تفضلي هذا التعديل اظنه اقرب للمطلوب

 

Project 1-1.accdb 1.47 MB · 1 download

يطلع لي خطأ

41 minutes ago, د.كاف يار said:

بسبب ربط النموذج مع احد الحقول داخل الفروم

 

Project 1-1.accdb 1.42 MB · 2 downloads

مشكور.  ويعطيك العافيه

امممم بنسبة الى الحل 

شكليا صح 

بس من داخل البياناتا احس انتي تخبطت

يعني انا ابي رقم irp

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

لكن في هذا الفورم تبع المواد صار لازم يدخله 

وشي ثاني انا ابي لما اضغط اضافة بيانات يكون اضافة بيانات تكون الشاشة  تتصفر قيمة  ( هل هو مطلوب ) و( العدد)

———————

لان في الاخير ابي اطلع كويري

يطلع البيانات الرئيسية والمطلوب 

شكلي انا الي جايبه العيد في.شغلي

13 minutes ago, د.كاف يار said:

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

لكن يرجى تجربة هذا التعديل

 

Project 1.accdb 1.81 MB · 0 downloads

ماطلع عندي تعديل  

ممكن توضح

(انا عملت فورم اسمه( النموذج الفرعي

لما تفتحة لحاله رح يكون فيه بيانات

(InputForm )لكان لما اضيفة الى الفورم الرئيسي 

تختفي البيانات

شوفها في الملف

Project 1-1.zip

16 minutes ago, د.كاف يار said:

يبدوا ان الاكسس اصدار 2019 

يرجى حفظ نسخة 2003 لكي نتمكن من تقديم المساعدة

مشكورين

يليت والله

هذي نسخة 2003

Project 1.7z

4 hours ago, سامي الحداد said:

تفضل اخي الكريم

هل هذا هو المطلوب.

وافنا بالنتيجة

تحياتي

 

Project 1.rar 52.53 kB · 1 download

مع الاسف لا

مادري هل الطريقه الي انا ابيها ماتضبط 

بس رح اشرح  الي ابيه عندي امل ان شاءالله يضبط 🥺شفت هذي الصورة هذا النموذج الفرعي الي ابيه يكون موجود في الرئيسي

يعني الاسم انا مدخلته في الجداول من قبل 

فيعني ابي المستخدم يعمل شيك جنب الماده الي يبيها وحط العدد الي يبيه 

يعني ما ابي من المستخدم يدخل الماده 

اما بنسبه الى IRPO فهو عبارة  مفتاح اجنبي

يعني هو رابط بين الصفحة الرئيسيه

يعني هذا الرقم العقد 

ولكل عقد ابي 

ابي يظهر  هذي الخيارات

احس كلامك صح يمكن عندي غلط في الربط😓

10 minutes ago, سامي الحداد said:

لان عندك غلط بربط الحقل بين الرئيسي والفرعي

جرب الحين . ما اعرف طريقة عمل برنامجك شوف اذا هو المطلوب ووافنا بالنتيجة.

الحين عندي الوقت متأخر الساعة 3 الفجر. 

تحياتي

 

Project 1.rar 45.51 kB · 0 downloads

اولا يعطيك العافيه مره

لا مو نفس النتيجة 

ابي تكون الاسامي موجوده  يعني انا 

ابي احط مثلا في قاعده البيانات اسماء المواد 

وهو فقط يحط جنبها شك اذا رح يخذها ويحط القيمة الي رح ياخذها 

وهي رح تكون مربوطه بالبيانات الرئيسيه 

يعني كل رقم قعد من البيانات الرئيسيه عنده اكثر من ماده 

لنفترض اني حطيت البينات الموجده

ونزلت الى المواد 

العقد رح يكون له اكثر من ماده انا ادخلها 

ولان المواد عندي ١٩ ماده 

استخدمت هذي الطريقه 

عشان بعدين افلترهم 

شلون غلط اشرح لي اذا تقدر عشان اقدر اعدلها 

😓