Barna

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

نظام توارد الخواطر .... ههههه ....

حياك الله...

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

وعليكم السلام اولا : تأكد من تغيير بعض الاعدادات في الكود ( بريدك في الجي ميل - الباس ) ثانيا : غير اعدادات بريدك من المتصفح ( وقم بتشغيل الوصول الى التطبيقات الاقل امانا كما في الصورة ) ثم جرب بالتوفيق ......

واليك ... بارك الله فيك

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

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

وايضا .... نسيت اقولك ابتعد عن الكلمات المحجوزة مثل ID وغير الكثير حياك الله ..... بالتوفيق

طيب أخي الكريم : أولا : لايجب أن تربط الصور برقم تلقائي ... لأنك لو حذفت اسم من السجلات الموجودة وسويت ضغط واصلاح للقاعدة سوف تفقد كل ارتباطات الصور لذلك الصحيح ربط الصور برقم فريد ( رقم هوية - رقم جواز - ...... الخ ) ثانيا : قمت بحذف الكود الموجود لربط الصور الموجود وفقط وضعت هذا الكود في مصدر مربع النص الخاص بالصورة في النموذج والتقرير =[CURRENTPROJECT].[PATH] & "\pic\" & [ID] & ".jpg" انظر للمرفق .... ووافيني بالنتيجة !!!!!! SA.rar

الحمد لله رب العالمين

نعم

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

أخي @khasem احذف كود أخي ابا تراب الموجود تحت حدث التايمر showPic فقط اترك الموجود في حدث الحالي

حياك أستاذي @أحمد الفلاحجى واياك .... بارك الله فيك منك نتعلم ... بارك الله فيك استاذي الفاضل @khasem حياك الله

تسلم والشر ما يجيك ..... حفظك الرحمن ...... شوف المرفق وطبق على مثالك visit.accdb

نعم يمكن ذلك ..... ابحث في المنتدى وتجد أمثلة لذلك .... أو أعطني فرصة عند العودة لجهازي لأبحث لك ....

قرأت الموضوع اكثر من مرة ولم افهم ماذا تريد ؟؟؟ ممكن ولطفا زيادة في التوضيح !!!! او حتى لو مثال يكون افضل

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

كل عام وانت بخير أخي أحمد @أحمد الفلاحجى بارك الله فيك ....

أخي لو ارفقت مثال للمطلوب كان اسرع في حصولك للاجابة ... على العموم انت صدرت الجداول وتحتاج تصدير للعلاقات جرب الكود التالي لتصدير العلاقات أو ارفق مثال للتجربة .... Function ExportRelations(DbName As String) As Integer Dim ThisDb As DAO.Database, ThatDB As DAO.Database Dim ThisRel As DAO.Relation, ThatRel As DAO.Relation Dim ThisField As DAO.Field, ThatField As DAO.Field Dim Cr As String, i As Integer, cnt As Integer, RCount As Integer Dim j As Integer Dim ErrBadField As Integer Cr$ = Chr$(13) RCount = 0 Set ThisDb = DBEngine.Workspaces(0).OpenDatabase("C:\mydat.mdb") Set ThatDB = DBEngine.Workspaces(0).OpenDatabase(DbName$) For i = 0 To ThatDB.Relations.Count - 1 Set ThatRel = ThatDB.Relations(i) Set ThisRel = ThisDb.CreateRelation(ThatRel.Name, _ ThatRel.Table, ThatRel.ForeignTable, ThatRel.Attributes) ErrBadField = False For j = 0 To ThatRel.Fields.Count - 1 Set ThatField = ThatRel.Fields(j) Set ThisField = ThisRel.CreateField(ThatField.Name) ThisField.ForeignName = ThatField.ForeignName On Error Resume Next ThisRel.Fields.Append ThisField If Err <> False Then ErrBadField = True On Error GoTo 0 Next j If ErrBadField = True Then Else On Error Resume Next ThisDb.Relations.Append ThisRel If Err <> False Then Else RCount = RCount + 1 End If On Error GoTo 0 End If Next i ThisDb.Close ThatDB.Close ExportRelations = RCount End Function وتستدعيها بالكود التالي ... Call ExportRelations("C:\ExpAndImp.mdb") C:\ExpAndImp.mdb هي مسار القاعدة المصدر منها العلاقات .... جرب وأعلمنا بالنتيجة !!!!!!

معليش فين التكرار نزلت المرفق ولم الحظ التكرار ؟؟؟

وهذه طريقه أخرى .... Rep2: Choose(([Type]);"عربي";"انجليزي";"فرنسي")

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

بارك الله فيك أخي @Khalf >>>>> جاري التجربة