kanory

استخدم هذا الكود ...... Private Sub Text0_Change() On Error Resume Next Dim L As Integer L = Val(Len(Text0.Text) - 1) If Not Trim(Text0.Text) = "" Then If IsNumeric(Text0.Text) = False Then Text0.Text = Mid(Text0.Text, 1, L): Text0.SelStart = Len(Text0.Text) End If End If End Sub Private Sub Text2_KeyPress(KeyAscii As Integer) On Error Resume Next Select Case KeyAscii Case 48 To 57, 32 '(لإلغاء SPACE) KeyAscii = 0 End Select End Sub

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

تفضل .... القسمة على غير العدد.accdb

ضع عند حدث التحديث لمربع النص A هذا الكود If IsNumeric(A) And IsNumeric(B) Then Me.نص4 = [A] / [B] Else Me.نص4 =0 End If

شرح وافي ... ماشاء الله تبارك الله

بارك الله فيك اخي @أبو إبراهيم الغامدي متابع ....

ممكن عينة من برنامجك بالمسارات

الكود ليس ليه مشكلة لاحظ هذا objWorkbook.Sheets(SHEET%).range("c5").CopyFromRecordset RS_STUDENTS SHEET% = SHEET% + 2

مشاركة مع استاذي محمد استخدمنا هذا الكود Kill (Me.txt1 & "*.*") تفضل --------->>>>>> حذف محتويات مجلد.accdb

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

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

بشرط اذا وجدت القاموس تدرجة هنا مع هذا المثال ..... طبعا موافق .... طيب انظر المرفق .... names.mdb

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

بارك الله فيك ..... الحمد لله رب العالمين

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

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

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

انشأ استعلام تحديث وطبق كما في الصورة

نعم ..... ولكن اين الفرز في مثالك .... ممكن تدرج لنا مثال حتى يمكن ارشادك للطريقة الممكنه ' هذا الكود لاخفاء القائمة ChangeProperty "AllowShortcutMenus", DB_Boolean, False 'وهذا لاظهارة مرة اخرى ChangeProperty "AllowShortcutMenus", DB_Boolean, True ولكي يعمل الكود يجب اعادة تشغيل القاعدة مرة اخرى

ممكن مثال مبسط لما تريد

طبق من خيارات الاكسس وازل العلامة من السماح بالقوائم المختصرة الافتراضية

هناك علاقة موجودة بين الجدولين هي تمنع التحديث لذلك طبق حسب الصورة ثم اعد تلك العلاقة بعد الترحيل مرة اخرى احذف العلاقة رقم 1 كون العلاقة رقم 2 انشأ التحديث رقم 3 شغل الاستعلام ليتم تحديث بيانات الجدول istimaraall ثم اعد العلاقة رقم 1 مرة اخرى

ماهي الرسالة التي تظهر صور لنا تلك الرسالة

اكتب هذا الكود If IsNull(Texte8) Or Me.Texte8 = "" Then " اكتب الاسم "MsgBox DoCmd.CancelEvent Else DoCmd.OpenReport "mouv", acViewReport End If

لا يوجد لدي جهاز حاليا فيه 64 بت ولكن جرب هذا ..... Kan.accdb