ممكن توضيح سبب ظهور هذه الرسالة

[abouelhassan]

السلام عليكم اخوانى الافاضل

برجاء التكرم بتوضيح سبب ظهور هذه الرسالة عند العمل على جهاز كمبيوتر اخر بخلاف جهازى

عندوضع قاعدة البيانات على جوجل درايف واستخدام جهاز اخر عليه اوفيس 2013 لفتح القاعدة من خلاله ظهرت هذه الرسالة

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

تم تعديل يناير 29, 2022 بواسطه abouelhassan

[Amr Ashraf]

الvba محتاج يتفتح وتعمل compile تانى عن تجربة.. طبعا عارف لو مفتوح هيجيبلك رسالة تفصيلية بالخطأ ويدخلك على السطر اللى فيه مشكلة لكنه محمى وبالتالى مش عارف يظهرلك السطر المعيب. 

واحيان كتير مش هتلاقى مشكلة فقط اعمل compile وهيشتغل عادى بعد كده. 

[abouelhassan]

1 دقيقه مضت, Amr Ashraf said:

الvba محتاج يتفتح وتعمل compile تانى عن تجربة.. طبعا عارف لو مفتوح هيجيبلك رسالة تفصيلية بالخطأ ويدخلك على السطر اللى فيه مشكلة لكنه محمى وبالتالى مش عارف يظهرلك السطر المعيب. 

واحيان كتير مش هتلاقى مشكلة فقط اعمل compile وهيشتغل عادى بعد كده. 

بارك الله فيك اخي الكريم

ممكن انا مش فاهم اعمل compile 

ممكن تشرح عالى لو امكن اخى بارك الله فيك

[Amr Ashraf]

1 دقيقه مضت, abouelhassan said:

ممكن تشرح

انا مش على جهاز كمبيوتر هشرحهالك نظرى.. 

افتح الvba هتلاقى قائمة اسمها Debug اختار اول اختيار فيها Compile Database وبالتالى البرنامج هيختبر الاكواد ولو فيه مشكلة هيظهرهالك لو مفيش مشاكل مش هيطلع رسايل تانى وهيشتغل تمام لو نقلته. 

[Hamdi Edlbi-khalf]

السلام عليكم

من الوارد أن الكود متوافق مع نواة دون أخرى

64 بت أو 32 بت

[abouelhassan]

28 دقائق مضت, Khalf said:

السلام عليكم

من الوارد أن الكود متوافق مع نواة دون أخرى

64 بت أو 32 بت

اشكرك استاذي الكريم

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

 

 

 

[Hamdi Edlbi-khalf]

مرحباً أخي @abouelhassan

لا أستطيع وصف الحل فالمشكلة غير واضحة، ولا أعلم المكتبة المطلوبة أما عن الإضافة بصورة عامة فمن

[abouelhassan]

بارك الله فيك اخي الكريم بس المشكلة قائمة لا اعرف اسم المكتبه لإضافتها احترامى وتقدير وفائق الاحترام

 

[abouelhassan]

في ٣٠‏/١‏/٢٠٢٢ at 10:02, Khalf said:

السلام عليكم

من الوارد أن الكود متوافق مع نواة دون أخرى

64 بت أو 32 بت

اشكرك استاذي الكريم

الكود يتوقف عند كلمة conect بعد فتح باسورد الفجوال بيزاك ماذا افعل لكى يعمل استاذنامع الشكر والتقدير

 

 

 

[Hamdi Edlbi-khalf]

5 دقائق مضت, abouelhassan said:

اشكرك استاذي الكريم

الكود يتوقف عند كلمة conect بعد فتح باسورد الفجوال بيزاك ماذا افعل لكى يعمل استاذنامع الشكر والتقدير

 

 

 

سأحاول على قدر معرفتي ..

هل من الممكن إلصاق الكود كاملاً؟

مع أني لا أعدك بالحل ... لكنها محاولة 

[abouelhassan]

43 دقائق مضت, Khalf said:

سأحاول على قدر معرفتي ..

هل من الممكن إلصاق الكود كاملاً؟

مع أني لا أعدك بالحل ... لكنها محاولة 

اكثر الله خيرك

ها هو الكود

Private Sub LogIN_Click()
On Error Resume Next
MyUserName = Me.MyUser_Name
MyPassword = Me.MyPassword

Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim qr As QueryDef
Dim sql As String
    Set db = CurrentDb
        sql = "select * from [users] where User_Name=[MyUserName] and User_Password=[MyPassword]"
    Set qr = db.CreateQueryDef(vbNullString, sql)
        With qr
            .Parameters("MyUserName") = MyUserName
            .Parameters("MyPassword") = MyPassword
            .ReturnsRecords = True
    Set rs = .OpenRecordset()
        End With
If Not rs.EOF Then
         conect = True
         If rs.Fields("User_Active") = 0 Or DateFormat(rs.Fields("DateEnd")) < DateFormat(Now) Then
                MsgBox "انتهى تنشيط هذا المستخدم", vbExclamation + vbOKOnly + vbMsgBoxRight, "تنبيه"
        Else
               MyUser_NO = rs.Fields("User_NO")
               MyUserName = rs.Fields("User_Name")
               
               DoCmd.Close acForm, "LogIn", acSaveYes
               DoCmd.OpenForm "Form1"
        End If

Else
        conect = False
        MsgBox "معلومات دخول غير صحيحة", vbCritical + vbOKOnly + vbMsgBoxRight, "تنبيه"

End If

End Sub

بارك الله فيك احترامى وتقديرى

[Amr Ashraf]

15 دقائق مضت, abouelhassan said:

         conect = True

اظن المشكلة فى هذا السطر .. ماهى Conect ؟ مش متعرفة كمتغير و مش شايف لها استخدم فى الكود الحالى اظنها Function يتم استدعاءها بشرط صحة بيانات الدخول ؟

عامة الغيها حاليا من الكود ليصبح هكذا وجرب

Private Sub LogIN_Click()
On Error Resume Next
MyUserName = Me.MyUser_Name
MyPassword = Me.MyPassword

Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim qr As QueryDef
Dim sql As String
    Set db = CurrentDb
        sql = "select * from [users] where User_Name=[MyUserName] and User_Password=[MyPassword]"
    Set qr = db.CreateQueryDef(vbNullString, sql)
        With qr
            .Parameters("MyUserName") = MyUserName
            .Parameters("MyPassword") = MyPassword
            .ReturnsRecords = True
    Set rs = .OpenRecordset()
        End With
If Not rs.EOF Then
         'conect = True
         If rs.Fields("User_Active") = 0 Or DateFormat(rs.Fields("DateEnd")) < DateFormat(Now) Then
                MsgBox "انتهى تنشيط هذا المستخدم", vbExclamation + vbOKOnly + vbMsgBoxRight, "تنبيه"
        Else
               MyUser_NO = rs.Fields("User_NO")
               MyUserName = rs.Fields("User_Name")
               
               DoCmd.Close acForm, "LogIn", acSaveYes
               DoCmd.OpenForm "Form1"
        End If

Else
        'conect = False
        MsgBox "معلومات دخول غير صحيحة", vbCritical + vbOKOnly + vbMsgBoxRight, "تنبيه"

End If

End Sub

 

[abouelhassan]

18 ساعات مضت, Amr Ashraf said:

اظن المشكلة فى هذا السطر .. ماهى Conect ؟ مش متعرفة كمتغير و مش شايف لها استخدم فى الكود الحالى اظنها Function يتم استدعاءها بشرط صحة بيانات الدخول ؟

عامة الغيها حاليا من الكود ليصبح هكذا وجرب

Private Sub LogIN_Click()
On Error Resume Next
MyUserName = Me.MyUser_Name
MyPassword = Me.MyPassword

Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim qr As QueryDef
Dim sql As String
    Set db = CurrentDb
        sql = "select * from [users] where User_Name=[MyUserName] and User_Password=[MyPassword]"
    Set qr = db.CreateQueryDef(vbNullString, sql)
        With qr
            .Parameters("MyUserName") = MyUserName
            .Parameters("MyPassword") = MyPassword
            .ReturnsRecords = True
    Set rs = .OpenRecordset()
        End With
If Not rs.EOF Then
         'conect = True
         If rs.Fields("User_Active") = 0 Or DateFormat(rs.Fields("DateEnd")) < DateFormat(Now) Then
                MsgBox "انتهى تنشيط هذا المستخدم", vbExclamation + vbOKOnly + vbMsgBoxRight, "تنبيه"
        Else
               MyUser_NO = rs.Fields("User_NO")
               MyUserName = rs.Fields("User_Name")
               
               DoCmd.Close acForm, "LogIn", acSaveYes
               DoCmd.OpenForm "Form1"
        End If

Else
        'conect = False
        MsgBox "معلومات دخول غير صحيحة", vbCritical + vbOKOnly + vbMsgBoxRight, "تنبيه"

End If

End Sub

 

اشكرك اخي الكريم

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

مش عارف ايه السبب

احترامى

 

[د.كاف يار]

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

[Amr Ashraf]

13 دقائق مضت, abouelhassan said:

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

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

[abouelhassan]

10 دقائق مضت, د.كاف يار said:

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

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

اشكرك استاذى بارك الله فيك اخي الكريم

 

 

1 دقيقه مضت, Amr Ashraf said:

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

بارك الله فيك اخي الكريم

[Amr Ashraf]

في ٣٠‏/١‏/٢٠٢٢ at 00:12, abouelhassan said:

عندوضع قاعدة البيانات على جوجل درايف واستخدام جهاز اخر عليه اوفيس 2013 لفتح القاعدة من خلاله ظهرت هذه الرسالة

سؤال آخر لو سمحت .. عندك جهازين واحد القاعدة مقسمة وموجودة على الجهاز وهذه القاعدة تعمل بدون مشاكل ؟

والآخر بالعمل والقاعدة مقسمة ولكن الجداول على جووجل درايف وهذه النسخة اللى بتظهر الخطأ الموجود بالصورة ؟

لو صح الكلام فيه احتمال بعيد ولكن على سبيل التجربة لن يضر .. هل تأكدت ان مجلد جووجل درايف صلاحياته Read And Write ؟ ممكن يكون Read Only ولذلك عملية الاتصال بالقاعدة لا تتم وبسببه بيطلع مشكلة بالكود انه مش قادر يتصل ؟

مجرد احتمال فقط وفى انتظار قاعدتك للتجربة واختبار الاكواد بها .. بالتوفيق

[abouelhassan]

اشكرك استاذي لا لا يوجد تقسيم للقاعدة 

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

 

 

 

 

 

[abouelhassan]

في ١‏/٢‏/٢٠٢٢ at 15:37, د.كاف يار said:

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

ها هى استاذى د حسين حبيبى 

زادك الله من فضله يارب

النسخة تعمل على اجهزة واجهزة لاالدائن و المدين.zip

[Amr Ashraf]

9 ساعات مضت, abouelhassan said:

ها هى

المرفق يعمل جيدا عندى ولا يوجد مشاكل فى الاكواد

[abouelhassan]

8 ساعات مضت, Amr Ashraf said:

المرفق يعمل جيدا عندى ولا يوجد مشاكل فى الاكواد

بارك الله فيك اخي الكريم انا كمان يعمل عندى على جهاز أما الجهاز الآخر لا يعمل عليه ويظهر الرسالة السابقة هل للاوفيس دخل فى ذلك احترامى وتقديرى

 

 

[Amr Ashraf]

43 دقائق مضت, abouelhassan said:

لا يعمل عليه ويظهر الرسالة السابقة هل للاوفيس دخل فى ذلك احترامى وتقديرى

اه بالشكل ده ليه دخل وهقولك الاحتمال الاكبر.. المرفق الخاص بيك فيه مديولات وبالتالى لو جهاز اوفيس 32 بيت هيشتغل طبيعى ولكن لو الاوفيس 64 بيت هيطلعلك مشكلة وهيا ان الاكواد غير متوافقة وبما ان مشروع vba مغلق بباسوورد الرسالة دى هتطلعلك.. 

اذن جهازك الذى لا يعمل عليه البرنامج اوفيس 64 بيت امامك حلين 

الاول ازالة الاوفيس وتنزيل نسخة مشابهة للجهاز الآخر 32 بيت. 

الثانى تعديل الاكواد لتعمل على النواتين ولن تظهر معك المشكلة حينها.. بالتوفيق 

[abouelhassan]

في ٢‏/٢‏/٢٠٢٢ at 23:17, abouelhassan said:

ها هى استاذى د حسين حبيبى 

زادك الله من فضله يارب

النسخة تعمل على اجهزة واجهزة لاالدائن و المدين.zip 243.9 kB · 2 downloads

للرفع رفع الله قدركم

[Amr Ashraf]

18 دقائق مضت, abouelhassan said:

للرفع رفع الله قدركم

انا اعطيتك الحل بالفعل اخى الكريم.. عليك فقط بالتجربة

[abouelhassan]

2 ساعات مضت, Amr Ashraf said:

انا اعطيتك الحل بالفعل اخى الكريم.. عليك فقط بالتجربة

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