king5star

السلام عليكم مشكلتى تتلخص فى شرط لداله if يوجد به متغير والمتغير هذا يعبر عن حقل بنموذج اخر فقكت بعمل الاتى ولكنه لم يفلح معي dim Creta_V_Money as string Creta_V_Money = "[Forms]![Cus_Sub]![Y2017]![" + Boxname + "] = [Forms]![Cus_Sub]![Cus_Bayed_V]" If Not Creta_V_Money Then endif ويظهر الاكسس شاشة خطأ ويكون شكل الشرط كالتالي : "[Forms]![Cus_Sub]![Y2017]![ِApr] = [Forms]![Cus_Sub]![Cus_Bayed_V]" فاريد ازالة علامات التنصيص هل من حل !

ألا يوجد حل لديكم اخوانى ؟

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

اخى ممكن تجد مبتغاك هنا واذا كان لديك استفسار اترك رد

الحمد لله وجدت الحل وها هو ذا لمن اراد الافاده . وتم بعباره sql الاتيه : DELETE FROM [Names] WHERE Names.Num IN (SELECT Name_Nodata.Num FROM Name_Nodata); Delete No Data.zip

ستجد مبتغاك هنا لاستاذنا القدير جعفر

اى مساعده اخوانى او اقتراح .

السلام عليكم اخوانى لدى مشكلة ان شاء الله تكون بسيطة لدى جدولين احدهم يوجد به اسم العامل وجدول اخر بالوظيفة وبينعهم علاقة راس باطراف وهنا تكمن المشكلة بان يوجد اسم لعامل ولا يوجد وظيفة له بالجدول الاخر فقمت بعمل استعلام لتحديد الاسماء التى لا تحمل وظائف ما اريده حذف هذه الاسماء بنائاً على التى تظهر بالاستعلام ؟ فهل يوجد حل ؟ Delete No Data.zip Delete No Data.zip

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

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

نعم تم تجربته ، نعم إلى حجم اكبر بكثير من الاكسس ممكن تصل إلى 20 جيجا و فى حاله النسخ المدفوعه من الممكن ال 200 جيجا ويمكن تحميل الصور بها ايضا ومن الساهل مشاركتها على الانترنت وايضا تصوير برنامج اندرويد متصل بها

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

مثال تطبيقي db1.zip

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

اعانك الله وعفا عن الوالد وشفاه ووفقك فى كل عملك واعمالك .

تم حل الجزء الثاني هنا من قبل الاستاذ @صالح حمادي

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

السلام عليكم السؤال هو اننى اريد اضافة حدث لكل النماذج فى حدث عن التحميل اضافة كود فى بى فى حدث عند التحميل والكود هو call Color_V(me) وللتسهيل لقد وجدت كود اضافة استاذى @صالح حمادي ببرنامج انشاء شريط القوائم ولم اتمكن من تديلة وكان هذا هو الكود : DoCmd.OpenForm new_name, acDesign For i1 = 1 To nombre_subliste t = 0 + (453.5433070866) * (i1 - 1) ' الأعلى L = 0 ' اليسار Set crt = CreateControl(new_name, acCommandButton, acDetail, , , L, t, "1700.787401575", "453.5433070866") With crt .Caption = DLookup("[name_button]", "[tbl_sublist]", "[id_button]=" & i1 & "And[id_list]=" & i) .BackColor = 15918812 .BorderColor = 15918812 .name = "B" & i1 End With str_code = "Private Sub " & "B" & i1 & "_Click()" & vbCrLf & _ "forms!" & form_name & "!sublist" & i & ".Height = 0" & vbCrLf & _ DLookup("[code_button]", "tbl_sublist", "[id_button]=" & i1 & "And[id_list]=" & i) & vbCrLf & _ "End Sub" Forms(new_name).Module.AddFromString str_code str_code = "Private Sub " & "B" & i1 & "_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)" & vbCrLf & _ "if me.B" & i1 & ".BackColor = 15918812 then" & vbCrLf & _ "" For i2 = 1 To nombre_subliste If i2 = i1 Then str_code = str_code & "me.B" & i2 & ".BackColor=15849926" & vbCrLf & _ "" Else str_code = str_code & "me.B" & i2 & ".BackColor=15918812" & vbCrLf & _ "" End If Next i2 str_code = str_code & "end if" & vbCrLf & _ "end sub" Forms(new_name).Module.AddFromString str_code Next i1 DoCmd.close acForm, new_name, acSaveYes فهل من مساعده ؟

شكراً استاذى شيفان وسوف اقوم بوضع موضوع جيد لهذا الجزء .

شكراً أخى @أبو إبراهيم الغامدي لمشاركتك الطيبه انظر لدى هذه الداله وقد قام بوضعها استاذى صالح حمادى فى برنامج انشاء شريط القوائم وتقريباً تفى بالغرض ولكن لم استطيع تعديلها فها هى : DoCmd.OpenForm new_name, acDesign For i1 = 1 To nombre_subliste t = 0 + (453.5433070866) * (i1 - 1) ' الأعلى L = 0 ' اليسار Set crt = CreateControl(new_name, acCommandButton, acDetail, , , L, t, "1700.787401575", "453.5433070866") With crt .Caption = DLookup("[name_button]", "[tbl_sublist]", "[id_button]=" & i1 & "And[id_list]=" & i) .BackColor = 15918812 .BorderColor = 15918812 .name = "B" & i1 End With str_code = "Private Sub " & "B" & i1 & "_Click()" & vbCrLf & _ "forms!" & form_name & "!sublist" & i & ".Height = 0" & vbCrLf & _ DLookup("[code_button]", "tbl_sublist", "[id_button]=" & i1 & "And[id_list]=" & i) & vbCrLf & _ "End Sub" Forms(new_name).Module.AddFromString str_code str_code = "Private Sub " & "B" & i1 & "_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)" & vbCrLf & _ "if me.B" & i1 & ".BackColor = 15918812 then" & vbCrLf & _ "" For i2 = 1 To nombre_subliste If i2 = i1 Then str_code = str_code & "me.B" & i2 & ".BackColor=15849926" & vbCrLf & _ "" Else str_code = str_code & "me.B" & i2 & ".BackColor=15918812" & vbCrLf & _ "" End If Next i2 str_code = str_code & "end if" & vbCrLf & _ "end sub" Forms(new_name).Module.AddFromString str_code Next i1 DoCmd.close acForm, new_name, acSaveYes

تمام هذا هو المطلوب . وفى انتظارك . شكراً استاذى @ابو خليل على المشاركو الطيبة وقد توصلت مع استاذى @Gama.saad لهذا النتيجة وتبقى الجزء الثانى وهو وضع حدث لكل النماذج .

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

للرفع

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

تمام اخى اشتغل تمام الجزء الثانى من سؤالي اضافى حدث فى النموذج عند فى حدث عند التحميل اضافة كود call Test(Me) لكل النماذج