abouelhassan

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

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

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

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

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

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

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

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

شكر وتقدير واحترام من اخيك

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

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

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

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

اكثر الله خيرك ها هو الكود 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 بارك الله فيك احترامى وتقديرى

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

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

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

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

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

شكر وتقدير واحترام من اخيك

شكر وتقدير واحترام من اخيك استاذنا بس كود التفعيل كيفية الحصول عليه اخى الكريم 3BF7A917-3768-E711-B753-1860241EAB59 وكيفية تغيره اشكرك

تسلم وتعيش يارب استاذى حبيبى كل الشكر وكل الاحترام وكل الدعاء من قلبى استاذى بارك الله لك وبك يارب يارب

ربنا يكرمك استاذى الحبيب jjafferr ذادك الله من فضله بميزان حسناتك ان شاء الله اعذرنى استاذى قمت بالتنفيذ كم تفضلت حضرتك على الفورم Frm_serch باستخدام نموذج الوحدة النمطية وعند التنفيذ يظلل خانة واحدة فقط لا يظلل كامل السطر مش عارف السبب كما انه يظلل دون ان اختار هل يمكن الاطلاع بارك الله فيك استاذى احترامى اخيك DATA1041.mdb

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

شكر وتقدير واحترام من اخيك استاذى الفاضل