عمر ضاحى

كل سنه وانتم طيبين ويتقبل الله منا ومنك صالح الاعمال وعيد مبارك للجميع

ممكن ترجمه للسطر ده ^_^

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

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

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

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

هذه الصيغه مهمتها انها تنظر الى اعلى رقم موجود فى جدول tblEmpInfo فى الحقل IDemp ثم يتم اضافة اليها رقم +1 الغرض منها هو عمل التسلسل للحقل نرجع الى اين تضعها ضعها فى القيمة الافتراضيه للحقل (اسمه رقم فى اخر صوره ) انظر هنا انه اخذ رقم "1"

اول شئ اين جدول الاحرف وما هى الاليه التى تريد ان تتحول بها مثل عند كتابة ا "حرف واحد" يكتب الف يعنى حرف حرف او واذا كتبت ا ب ث يكتب الف باء ثاء (مجموعة احرف معا) ممكن تشرح اكثر (ولا تنسي عمل الجدول)

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

ارفع ملف لتنفيذ ما تريد

ممكن تنظر الى هذا المرفق 123.rar

طبعا لعمل ذلك محتاج ان تضع * بين الكلمه او المقطع الاول والمقطع الثاني او ممكن تستخدم هذا الكود Dim TxTss As String TxTss = Trim(Me.txtSSSS.Text) Me.TXTSsS = Replace(TxTss, " ", "*") لعمل ذلك طبعا هنا هتحتاج يكون فى 2 حقل واحد ظاهر لك والاخر مختفى وهذا المختفي هو ما سوف يكون مرتبط بالاستعلام انظر الى هذا

اكيد يوجد حل استخدم دالة like Like "*" & [Forms]![Step1]![Step2].[Text] & "*" ضع هذا فى المعاير للاستعلام استبدل Step1 باسم الفورم وايضا Step2 باسم مربع النص الذى يبحث فيه ايضا يمكنك مراجعه هذا التعليق قد تجد ما تريده فيه

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

هذا ما كنت اريد عمله من البدايه لكن معرفتش اعملها ازاى فسهلتها على نفسي بدالة if & like ثم جاء لنا استاذي @ابو جوديبتحفه اعجبتني كثيرا ثم انت الان اتيت بالذى كان يشغل تفكيري كيف يمكن فعلها بارك الله فيك وجزاك الله عنا كل خير

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

قد يفيدك هذا الموضوع

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

الله يحفظك ويكرمك ويعطيك الف الف عافيه كود ممتاز ورائع من حضرتك الله يحرم وجهك عن النار ويبارك له فى علمك ومالك وصحتك

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

لقد اخطأت فى شئ وتم تداركه الان يمكنك ان تجرب الكود

Dim i As Integer DoCmd.GoToRecord , , acFirst For i = 1 To Me.Recordset.RecordCount If Me.text1 Like "*" & "مصر" & "*" Then Me.text2 = "جمهورية مصر العربيه" ElseIf Me.text1 Like "*" & "السعودية" & "*" Then Me.text2 = "المملكة العربيه السعودية" ElseIf Me.text1 Like "*" & "الامريكية" & "*" Then Me.text2 = "الولايات المتحده الامريكيه" ElseIf Me.text1 Like "*" & "الاردنية" & "*" Then Me.text2 = "المملكة العربيه الهاشمية" End If DoCmd.GoToRecord , , acNext GoTo nxfor DoCmd.GoToRecord , , acNext nxfor: Next i جرب هذا الحل كده

مبدئيا هيكون هنا الشروط If Me.text1 Like "*" & "مصر" & "*" Then Me.text2 = "جمهورية مصر العربيه" ElseIf Me.text1 Like "*" & "السعودية" & "*" Then Me.text2 = "المملكة العربيه السعودية" ElseIf Me.text1 Like "*" & "الامريكية" & "*" Then Me.text2 = "الولايات المتحده الامريكيه" ElseIf Me.text1 Like "*" & "الاردنية" & "*" Then Me.text2 = "المملكة العربيه الهاشمية" End If باقى نعملها فى دائرة علشان تتنفذ فى كل سجل

انا فاهم حضرتك لكن ما تريده كانك بتطلب من شخص ان يبني احتمالات لجميع دول العالم ^_^ لكن ممكن نبدأ الفكره باستخدام دالة Like ويكون هناك دالة شرطيه طويييييله لجميع دول العالم خلينى اجرب شئ وارجعلك

طيب ايه المعيار هنا ؟ يعنى مصدر الكلمة التى سوف تضاف اين وايه معيار الاختيار هنا ؟