رمهان

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

عدل قيمة المتغير التالي وفي السطرين كما يلي ImageFilename = nz(Me!picno,0) + 1 & ".png" Else ImageFilename = nz(Me!picno,0) + 1 & ".jpg" وذلك بادخال الدالة nz في السطرين ولاتنسى اعادة اخفاء المربع picno بضبط الخاصية مرئي=لا بالتوفيق

Private Sub BankDeposit_Click() On Error Resume Next DoCmd.Save DoCmd.OpenForm "BankDeposit",acNormal , , "[Receipt Date]=" & "#" & [Receipt Date] & "#", , acWindowNormal docmd.Close acform,"form1" End Sub وطبعا يتم استبدال form1 باسم النموذج المعني بالتوفيق

جرب التالي وبعد مناداة الدالة ولا اعلم هل سيعمل على mdb حيث جربته على accdb وتمام Call zAutoLink1 DoCmd.NavigateTo "acNavigationCategoryObjectType" DoCmd.RunCommand acCmdWindowHide بالتوفيق هنا يمكن ل mdb DoCmd.SelectObject acTable, , True RunCommand acCmdWindowHide

جرب التعديل في زر الحفظ DoCmd.RunCommand acCmdRecordsGoToNew بدلا من DoCmd.RunCommand acCmdSaveRecord بالتوفيق

جرب zaCaptureWebCam2008.rar

جربت وتمام ولا مشكله انظر المرفق zoozo.rar

للرفع

جرب zaCaptureWebCam2008.rar

تمام جرب اذهب للعنصر piclist مربع النص وغير مصدر بياناته ( التعبير ) الى =[Forms]![frmarchive].[piclist].[column]([piclist].[ListCount]-1,2) هذا سيحل مشكلة التكرار ان شاء الله . وجرب كذلك هل تم حل مشكلة التسلسل والتي اعتقد انه لسا ولكن جرب . وستلاحظ ان التسلسل بزيادة وان الرقم المحذوف لا يعود . تحياتي

العكس هو الصحيح . اذا وضعت a على الحصري فهناك فرصة فتح لمرة واحدة فقط سواء من السيرفر مباشره او من خلال الاجهزة الاخرى ممثلة بالنسخ الموزعه. يمكن لم تظهر لك جلية لانك تستخدم استراتيجية تقسيم القاعدة . لكي تظهر للتجربه اتبع التالي ضع a حصريا ثم افتح احد الجداول واتركه مفتوحا . حاول تفتح b سواء والتي مربوطه ب a ستجد رساله تفيد بان a بوضع حصري. الى هنا حسب مثالك ولكن خلينا نشرح اساس المسالة اتى الاكسس بميزة تشغيله على مجلد مشاركة زيه زي مشاركة ملف وورد او اكسل ولكن الميزة هي قدرته على التحكم في تعدد المستخدمين . بمعنى لعمل الاكسس على الشبكة لديك استراتيجيتين او طريقتين للمشاركة 1. تقسيم القاعدة الجداول على السيرفر والشاشات على الاجهزة العميلة الاخرى . وهذا انت متبعه 2. وضع الملف كامل بجداوله وشاشاته على مجلد بالسيرفر ثم عمل مشاركه له وتحديد المستخدمين من الويندوز ثم وضع اختصار على اجهزة العميل لفتح الملف كامل اي المساله شبيهه بمشاركة ملف وور او اكسل على الشبكة. هنا كل مستخدم سيفتح الملف كامل كانه محلي ويتعامل معه باستقلالية في الكائنات ومشاركة في البيانات . يعني تفتح البرنامج كانه ملف مستقل محلي ولكن البيانات ستتشارك لان جميع المستخدمين فاتحين نفس الملف . وهنا اتى الخيار افتراضي للمشاركة في الاكسس لهذه الاستراتيجيه . وهنا في هذه الاستراتيجيه لو تم فتح الملف حصري من احد المستخدمين فانه لن يستطيع احد فتح الملف وهذا منطقي بل وضروري في الحالات التاليه 1. لو حبيت اعدل في تصميم احد الجداول . هل معقوله وانا جالس اعدل في الجدول يكون هناك مستخدم اخر يدخل بيانات وعلى التصميم القديم . ابدا فالاولى ان افتح القاعده بشكل حصري حتى اتاكد انه لن يستطيع المستخدمين الاخري فتح املف حتى انتهي ثم اغير الخيار الى مشترك . والحالات التي تظهر ضرورة الحصري ذكرتها سابقا في المشاركة السابقة وهي ليست حصرا اتمنى حصلت الفائدة وتقبل تحياتي

تمام هل ممكن صورة للخطأ او مالذي يحدث لاني لا استطيع التجربه تحياتي

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

اخينا سروك لن استطيع تحميل ااداة والتسجيل ولكن القيت نظره واتوقع هناك مشكلة بسيطة ستحدث غير مشكلة التسلسل اريك ان تجرب الملف المرفق وعند فتح النموذج يظهر اول سجل بالرئيسي ويظهر في القائمة اسفل ثلاث صور 1 2 3 . تمام ؟ الان جرب ان تحذف من القائمة الصوره 2 . ثم اضف صوره او مستند جديد . هنا حسب قراءتي البرنامج راح ياخذ تسلسل 3 للجديد والتسلسل 3 اصلا موجود بالقائمة ؟ فهل سيحدث مشكله ام لا ؟ تحياتي

Private Sub com_Click() For i = Me.From To Me.to DoCmd.RunSQL "insert into tb_l_2 values(" & Me.Cood_Name1 & "," & i & ")" Next End Sub

دائما هو الخيار الافتراضي ولا داعي لتغييره . يدعو التغيرر اذا كان الرغبه في الفتح حصري وللاجابة هذا احد الطرق لوضع الخيار على مشترك وهو الرقم 0 والوضع الحصري 1 Application.SetOption "Default Open Mode for Databases", 1 كما انني اريد ان اضيف بعض الاسباب التي قد تجعل الرساله تظهر 1. الخيار حصري للقاعدة الخلفية a وتم ذكره سابقا 2. قد يكون احد الجداول مفتوح على وضع التصميم 3. قد يكون الخيار حصري مضبوط بالقاعده b فعندما تتصل b وهي بوضع حصري بالقاعده a تاخذ الخيار ضمنيا القاعده a . وينطبق على c تستطيع قراء الخيار قبل تغييره ب getoption Application.getOption "Default Open Mode for Databases" بالتوفيق

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

شكرا استاذ سليم اللي انا عايز اوصل له وللعلم فقط وربما ياتي لك الحل لاحقا اذهب للخلية a1 وضع التنسيق تاريخ هجري ثم ضع علامة صح على الخيار اسفل والذي يقول اعتماد التاريخ المدخل حسب التقويم المحدد هنا راح يتعرف عليه كتاريخ ويذهب لليمين . السؤال : تمت العمليه يدوية . فكيف تتم من خلال الكود ويتعرف عليه زي الحاله اليدويه اعلاه ؟ تحياتي

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

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

اعزائي واحبتي بمنتدى الاكسل المحترمين نحن نعلم انه عند ادخال قيمة بخلية معينة ثم الضغط على انتر (زر الادخال ) يتم تطبيق التنسيق على القيمة وتراه ظاهر . فلو مثلا تاريخ ستتم المحاذاه يمين او رقم . السؤال : لو تم اضافة القيمة من خلال الكود ومثلا تاريخ اريد محاكاة كانك ادخلت القيمة ثم انتر لترى التنسيق المطبق ؟ باختصار كيف ترى لحظيا تطبيق التنسيق على الخلية بعد ادخال القيمة من خلال الكود وليكن الكود التالي sub abc range("a1")="1/1/2017" end sub وهناك تنسيق مطبق على الخلية السابقة . اريد ان ارى التنسيق مباشرة بعد تشغيل الكود السابق والذي يقوم بادخال القيمة برمجيا هذا ولكم الشكر مقدما

لتحديد اكثر وحسب فهمي لديك قاعدة a على السيرفر وبها الجداول . لديك قاعدة b على نفس السيرفر بها النماذج ومربوطه مع a لديك قاعدة c على جهاز اخر على الشبكة مربوطة مع a هل المشكلة تحدث عندما تفتح b ؟ ام فقط عند فتح c ؟ وانت ذكرت لماذ تفتح القاعدة الجداول اصلا ؟ اخيرا : تاكد ان الوضع للقاعدة الرئيسية هو مشترك وليس حصري وذلك من خيارات اعدادات العميل متقدم بالتوفيق

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

ضع الصور اخي الكريم وابشر لو مر علي عميل مناسب لك ساقدمه لك بالتوفيق

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