أبوبسمله

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

جزاك الله خيرا اخى محمد عالتوضيح طبتم واهتديتم

السلام عليكم مشاركه لاخى محمد حل اخر باستخدام Dsum =DSum("[ratb]";"[t1]") تقبلوا تحياتى وتمنياتى لكم وللجميع بالتوفيق طبتم واهتديتم جمع الرواتب.rar اخى محمد جزاك الله كل خير هو مينفعش استخدم sum فالرئيسى مباشره من غير استخدام الحقل الاضافى بالفرعى ؟

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

اتفضل اخى ان شاء الله يكون ما تريد تقبل تحياتى طبتم واهتديتم Library.rar

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

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

السلام عليكم اخى الفاضل ابسط حل بتحويله لقوائم منسدله كالتالى وطبعا فى حلول اخرى تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق طبتم واهتديتم 2.accdb

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

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

جزاك الله خيرا أخى خالد مثال جميل اخى خالد باستخدام داله المقارنه strcomp تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق طبتم واهتديتم

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

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

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

وايضا هنا فى قسم الاكسيس من 2015

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

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

اتفضل استاذى الفاضل استبدل علامه * بـ % تم الحل بواسطه البحث بجوجل عالسريع Though it's not actually listed on official lists of Reserved words (I'd suggest that's an oversight) Alike is indeed a keyword in Jet SQL. It's the ANSI Like - which can be used in either mode of compatibility. In other words - when you're using Alike you would use the ANSI wildcard (%) instead of Jet's default (*). So WHERE FieldName Like 'Smith*' would be WHERE FieldName ALike 'Smith%' The behaviour you're seeing (Like automatically changed to Alike in the QBE - I presume it's the QBE - it wouldn't happen in SQL view.. the parser isn't that pushy) implies that you have your application in ANSI mode. (Whereby it assumes you want to use Alike). In fact - in that mode WHERE FieldName Like 'Smith%' would be valid syntax anyway. It's just going for maximum compatilbility in query writing. To remove it: Tools > Options > Tables/Queries > SQL Server Compatible Syntax (ANSI 92) Knock off the checkbox. Cheers. ALike "%" & [Forms]![نموذج1]![texs] & "%" تقبل تحياتى طبتم واهتديتم Database7.rar

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

السلام عليكم بعد اذن الاستاذ sandanet وجزاك الله خيرا على البرنامج الجميل لابو ساره جزاه الله خيرا كل مثال وطريقه لها وضعها الخاص يعنى مثلا الاستعلام المرفق بمثالك قمت بادراجه فى مصدر السجلات بالنموذج وحذف الاستعلام ودون تحويله بالبرنامج المرفق والاستغناء عن الاستعلام انظر للمثال وافتح النموذج فى وضع التصميم مثال.accdb

تسلم اخى واستاذى اها تمام فهمت ما تقصده الان ان شاء الله تتيسر الامور ولعل سؤال فى قسم الويب سوف يساعد تقبلوا تحياتى طبتم واهتديتم

السلام عليكم ورحمه الله وبركاته ممكن اشارك معكم اخوانى اساتذتى لا اعلم ان كان هذا ما تقد اخى واستاذى @صالح حمادي عسى ان يكون ما تريد ان شاء الله MS Access VBA للحصول على بيانات من محتوى عنصر تحكم مستعرض الويب هذه ترجمه الاجابه هذا الصباح ، أنا حل المشكلة. لقد كنت مرتبكًا جدًا بسبب عدم عرض مستعرض الكائنات خاصية مستندات لعنصر تحكم مستعرض الويب الذي أضفته إلى نموذج Access الخاص بي. اتضح لي أنني قد قرأت في منشور آخر في مكان ما هناك أن الشخص قد بذل جهودًا كبيرة لذكر أنه لم يضف عنصر تحكم مستعرض ويب من مربع أدوات التحكم على شريط الشريط ، ولكنه أضاف مستعرض ويب ActiveX مراقبة. بمجرد حذف عنصر تحكم مستعرض الويب Access وإضافة عنصر تحكم مستعرض ويب ActiveX بدلاً من ذلك ، بدأت الأمور تعمل كما هو متوقع! كان عنصر تحكم مستعرض ActiveX خاصية .document وكنت قادراً على قراءة المعلومات من عنصر تحكم المستعرض في نموذج Access الخاص بي. إليك ما فعلته للحصول على هذا العمل: لإدراج عنصر تحكم مستعرض ويب ActiveX في نموذج MS Access: حدد "عناصر تحكم ActiveX" من القائمة المنسدلة "عناصر التحكم" في علامة التبويب "أدوات تصميم النموذج" / MS "أدوات الوصول إلى MS Access" على الشريط مرر القائمة لأسفل خلال القائمة وحدد "مستعرض ويب Microsoft" ثم انقر فوق [موافق] ثم ضع عنصر التحكم في النموذج في الحدث Form_Open ، أضف الكود المطلوب للانتقال إلى صفحة الويب المطلوبة ، على سبيل المثال ، باستخدام كائن مستعرض الويب ActiveX المسمى webView: Me.webView.Object.Navigate "http://www.yoururl.com لقراءة البيانات من صفحة الويب ، قمت بتعيين TimerInterval للنموذج على 100 (لكل 100 مللي ثانية) وأضع الكود هناك لجمع البيانات المطلوبة في متغيرات لاستخدامها لاحقًا ؛ بمجرد تشغيل حدث Timer ، قمت بتعيين TimerInterval على 0 بحيث لن يتم تشغيله مرة أخرى. على سبيل المثال ، في الحدث Form_Timer ومع متصفح الويب ActiveX المسمى webView: مع Me.webView.Object With Me.webView.Object While .Busy Or .ReadyState <> 4 'thanks to @ErikvonAsmuth for .ReadyState <> 4 DoEvents Wend SDate = .Document.getElementByID("SDate").innerText Omega = .Document.getElementByID("Omega").innerText End With Me.TimerInterval = 0 'turn off timer since we've got the data needed بعد ما سبق ، تمكنت من التحقق من قيم SDate و Omega في رمز VBA. بالطبع ، تحتاج إلى معرفة قيم معرّف العناصر ، ولكن يمكن للمنتديات الأخرى أن تعلمك كيفية العثور على قيم المعرف هذه. آمل أن يساعد هذا شخص آخر! طبتم واهتديتم

مرحبا اخى واستاذى @أبو عبدالله الحلوانى حمدالله على السلامه نورت المنتدى جزاك الله خيرا اخى خالد بارك الله فيها اختنا زهره ام عهود وجزاها الله عنا خيرا الجزاء لى ملحوظه لم يظهر لى A5 فى اختيارات المثال هل تم برمجته على اعدادات معينه ؟ طبتم واهتديتم

السلام عليكم ورحمه الله وبركاته قمت بالتحسين بالمثال شويه على سبيل التجريب والتعليم لا استغنى عن تعديلاتكم واقتراحتكم وارشادتكم اخوانى واساتذتى فى سبيل التعلم الصحيح قمت باضافه حقل Kwmy بالجدول قمت باضافه مديول لاستدعائه فى اى حقل وبه الكود التالى Function chkNum(CNum As String, x As Byte) Dim Cancel As Boolean If Not IsNumeric(CNum) Then MsgBox " ÝÜÖÜáÇð ÃÏÎÜá ÃÑÞÜÇã ÝÜÞÜØ æáÜíÜÓ ÍÜÑ æ Ý ", vbInformation, " : ÎÜØÜÇÁ " Cancel = True 'åÐÇÇáÓØÑ æÇáÇ ÊÍÊå íÚíÏ ÇáÊÑßíÒ áäÝÓ ÇáÍÞá' DoCmd.CancelEvent ElseIf Len(CNum) <> x Then MsgBox " ÝÜÖÜáÇð ÃÏÎÜá " & x & " ÑÞã ÝÞØ ", vbExclamation, " : ÎÜØÜÇÁ " Cancel = True 'åÐÇÇáÓØÑ æÇáÇ ÊÍÊå íÚíÏ ÇáÊÑßíÒ áäÝÓ ÇáÍÞá' DoCmd.CancelEvent End If End Function وتم استدعائهم بالحقول كالتالى حقل قومى Private Sub Kwmy_BeforeUpdate(Cancel As Integer) Call chkNum(Kwmy, 14) End Sub حقل تليفون Private Sub Tel_BeforeUpdate(Cancel As Integer) Call chkNum(Tel, 11) End Sub والمثال المرفق بعد التعديل تقبلوا تحياتى وتمنياتى لكم وللجميع بالتوفيق طبتم واهتديتم ex_up.mdb

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