mrnooo2000

كما ذكر الاخ محمد الموضوع تم الاجابه عنه كثيرا و أخى العزيز كل ما تحتاج اليه هو تعديل بسيط بالكود Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged ComboBox2.Items.Clea…

غير مصدر مربع النص الى =FrenchMonth(Month([DiscountStartDate])) & ' ' & Year([DiscountStartDate]) و =FrenchMonth(Month([[DiscountEndDate]])) & ' ' & Year([[DiscountEndDate]])

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

db.Open "provider=microsoft.jet.oledb.4.0;jet oledb:database password=1230;data source=" & txtpath txtpath هو اسم مربع النص الذى يتم كتابة مسار قاعدة البيانات به

تفضل اخى المرفق به التعديل المطلوب تم اضافة دالة فى الموديول module1 لارجاع الشهر و هناك كومبو مخفى به الاشهر يمكن استخدامه ( ليس له استخدام الان ) كتابة الشهر في التقرير.rar

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

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

ما تريده غير واضح و غير مفهوم اشرح طلبك بشكل مفصل و ضع مثالا يكون اكثر تمثيلا لما عندك

نعم يمكن أخى الكريم و لكن ضع مثالك ليتضح ما تريد

عود أحمد أم عهود وفقك الله الى ما فيه الخير

ما فعلته صحيح أخى الكريم انظر المرفق بعد تعديلات بسيطه عليه almoahad.rar

للفائدة هذه الدالة تعطيك نفس النتيجة بطريقة أخرى Public Function NSplit(Str As String) As String Dim gg() As String, i As Integer gg = Split(Str, " ") If UBound(gg) = 0 Then NSplit = "" Exit Function End If For i = 1 To UBound(gg) NSplit = NSplit & " " & Trim(…

تفضل أخى Aziz.rar

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

أخى السائل الحل يتوقف على مصدر مربع النص فمثلا اذا كان عبارة عن معادلة مثل = [Text10] + [Text20] عدل الكود ليكون بهذا الشكل = Nz([Text10],0) + Nz([Text20],0) أما اذا كان مصدر مربع النص من مربع نص اخر فى نموذج فرعى مثلا استخدم الدالة IsError بهذا الشكل =IIf(IsE…

لا تنسى اعادة التشغيل بعد انتهاء الكود لان هذه الرسائل مهمه جدا فى أشياء أخرى docmd.setwarning False'codedocmd.setwarning True

/index.php/topic/218045-%D9%85%D8%AD%D8%A7%D8%B0%D8%A7%D8%A9-%D8%A7%D9%84%D9%86%D8%B5-%D9%81%D9%89-%D8%A7%D9%84%D9%82%D8%A7%D8%A6%D9%85%D8%A9-listbox/ لكن ربما لا يعمل مع النسخ أعلى من 2003

تفضل أخى calendar.rar

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

أضف زر للنموذج و فى حدث عند الضغط للزر أضف هذا الكود Dim strMsg As String With Me.List6 For lngRow = 0 To .ListCount - 1 If .Selected(lngRow) Then strMsg = strMsg & ", " & .Column(1, lngRow) End If Next lngRow End With DoCmd.OpenReport "Report1", acViewPreview…