abouelhassan

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

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

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

الف مبروك اخى الكريم تستاهل كل خير والله احترامى

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

بميزان حسناتك يارب احترامى

ممكن توضيح بمثال استاذى بارك الله فيك اخي الكريم

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

زادكم الله من فضله

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

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

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

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

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

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

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

ها هى استاذى د حسين حبيبى زادك الله من فضله يارب النسخة تعمل على اجهزة واجهزة لاالدائن و المدين.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 بعد فتح باسورد الفجوال بيزاك ماذا افعل لكى يعمل استاذنامع الشكر والتقدير

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