Shivan Rekany

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

تأكد من الجيميل والرقم سري لجيميلك في الاكواد مع ملاحظة الحروف الكبيرة والصغيرة في رقم سري

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

من جديد أستأذن من استاذنا @أ / محمد صالح اخي ميفان السلام عليكم ورحمة الله وبركاته هناك بعض خطوات لاز تعمله .. لا اعلم هل عملته ام لا اولا يجب ان تكتب جيميلك و رقم سري في الكود الارسال شوف الصورة انا كتبت جيميلي و رقم سري تابع جيميلي ... لكن اللي في الصورة ليس رقم سري صحيح لا تفكر ان تحاول تفتح جيميلي وهناك ملاحظة يجب ان تنتبه لحروف الكبيرة والصغيرة لرقم سري تابع جيميلك ثانيا هناك كان نقص في الكود اي اننا نتعامل مع حقل نصي لذا يجب ان نكتب شرط هكذا "[Email]='" & me.txtMail & "'" كما في الصورة والا سيحدث معك الخطأ اللي في مشاركتك السابقة و اخيرا تم ارسال بنجاح شوف الصورة تقبلوا تحياتي اعتذر منك استاذ @أ / محمد صالح انا ما عملت الريفرريش لصفحة لذا ما رأيت ردك .. تقبل تحياتي mas_forgetpassword_email.rar

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

كلا الطريقين يمشي نحو مكان واحد لكن طريقتك اقصر شكرا لك

اتفضل اليك هذا فقط اضفت اسماء المربعات النصية اخرى Private Sub combo1_AfterUpdate() If Me.combo1 = 0 Then Me.A1.Enabled = False Me.A2.Enabled = False Me.A3.Enabled = False Me.A4.Enabled = False Me.A5.Enabled = False Me.A6.Enabled = False Me.FINAL_A.Enabled = False Me.AVR.Enabled = False ElseIf Me.combo1 = 1 Then Me.A1.Enabled = True Me.A2.Enabled = False Me.A3.Enabled = False Me.A4.Enabled = False Me.A5.Enabled = False Me.A6.Enabled = False Me.FINAL_A.Enabled = True Me.AVR.Enabled = True ElseIf Me.combo1 = 2 Then Me.A1.Enabled = True Me.A2.Enabled = True Me.A3.Enabled = False Me.A4.Enabled = False Me.A5.Enabled = False Me.A6.Enabled = False Me.FINAL_A.Enabled = True Me.AVR.Enabled = True ElseIf Me.combo1 = 3 Then Me.A1.Enabled = True Me.A2.Enabled = True Me.A3.Enabled = True Me.A4.Enabled = False Me.A5.Enabled = False Me.A6.Enabled = False Me.FINAL_A.Enabled = True Me.AVR.Enabled = True ElseIf Me.combo1 = 4 Then Me.A1.Enabled = True Me.A2.Enabled = True Me.A3.Enabled = True Me.A4.Enabled = True Me.A5.Enabled = False Me.A6.Enabled = False Me.FINAL_A.Enabled = True Me.AVR.Enabled = True ElseIf Me.combo1 = 5 Then Me.A1.Enabled = True Me.A2.Enabled = True Me.A3.Enabled = True Me.A4.Enabled = True Me.A5.Enabled = True Me.A6.Enabled = False Me.FINAL_A.Enabled = True Me.AVR.Enabled = True ElseIf Me.combo1 = 6 Then Me.A1.Enabled = True Me.A2.Enabled = True Me.A3.Enabled = True Me.A4.Enabled = True Me.A5.Enabled = True Me.A6.Enabled = True Me.FINAL_A.Enabled = True Me.AVR.Enabled = True End If وهذه قاعدة بياناتك A (1).rar

اليك هذا الصورة والنتيجة

في الحقيقة المنتدى مليـــــــــــــــئة بنفس هذا الموضوع لكن يللا اليكي هذا اعمل كوبي باست لهذا فانكشن الى موديول جديد Option Compare Database Public Declare Function ShowWindow Lib "user32.dll" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long Public Sub HideAccess() Call ShowWindow(Access.hWndAccessApp, 0) End Sub Public Sub ShowAccess() Call ShowWindow(Access.hWndAccessApp, 5) End Sub وفي نموذج عند تحميل او عند فتح اكتب HideAccess للاخفاء و ShowAccess للاظهار من جديد

انا افتخر بكم نعم بالطبع وهذا طريقة اسهل بكثير من السابق هذه هو البيانات في الجدول بعض اسماء هم مكرر وواحد منهم هو اسم استاذنا الكبير ابوخليل اولا عملنا هذا الاستعلام .. القي نظرتا الى الصور SELECT First([Copy Of Tbl1].ID) AS FirstOfID, [Copy Of Tbl1].MyName FROM [Copy Of Tbl1] GROUP BY [Copy Of Tbl1].MyName; وبعدين عملنا استعلام اخر هكذا ... القي نظرتا اخرى الى هذه الصور SELECT [Copy Of Tbl1].ID, Query1.MyName, [Copy Of Tbl1].MyPhoneNumber FROM Query1 INNER JOIN [Copy Of Tbl1] ON (Query1.FirstOfID = [Copy Of Tbl1].ID) AND (Query1.MyName = [Copy Of Tbl1].MyName); والنتيجة طلعت هكذا تقبلو تحياتي حذف التكرار حسب الاسم.rar

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

اتفضل ما عملت اي شي عدا بعض تعديلات مثلا انت كان كتبت فونت كولور انا غيرت الى فوركولور وغيرت في حجم النص اتفضل قاعدة بياناتك ولكي يستفيد الجماعة من الاكواد بدون تنزيل الملحق هذه هو الاكواد المستخدمة Public txtScrollStatus As String ' needed for Private Sub Form_Load() ' شريط متحرك باعلى النموذج Me.Caption = "الإدارة المركزية لمنطقة البحر الأحمر.. ترحب بفضيلتكم" ' شريط متحرك بالنموذج Me.lblscrollinglabel.Caption = (b) ' شريط متحرك بأسفل النموذج txtScrollStatus = "التعليم الإبتدائي.. يرحب بفضيلتكم" & Space(30) End Sub Private Sub Form_Timer() ' تنتنج النص المتحرك في شريط عنوان النموذج Me.Caption = Mid(Me.Caption, 2, _ (Len(Me.Caption) - 1)) & Left(Me.Caption, 1) ' تنتنج النص المتحرك في مربع التسمية على النموذج Me.lblscrollinglabel.Caption = Mid(Me.lblscrollinglabel.Caption, 2, _ (Len(Me.lblscrollinglabel.Caption) - 1)) & Left(Me.lblscrollinglabel.Caption, 1) ' تنتنج النص المتحرك في شريط الحالة للأكسس SysCmd acSysCmdSetStatus, txtScrollStatus txtScrollStatus = Mid(txtScrollStatus, 2, (Len(txtScrollStatus) - 1)) & Left(txtScrollStatus, 1) If b.FontSize = 30 Then b.FontSize = 34 b.ForeColor = vbRed ElseIf b.FontSize = 34 Then b.FontSize = 38 b.ForeColor = vbGreen ElseIf b.FontSize = 38 Then b.FontSize = 30 b.ForeColor = vbBlue End If End Sub AB.rar

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

استاذن من استاذنل @محمدنجار هل النماذج مبنية على الاستعلام ؟ احتمال ان هناک حقل او حقول لا یجوز ان تترک فارغة ولا يتم ادخال المعلومات بعد او تدخل بيانات مكررة لحقول لا يجوز التكرار او هناك ربط بين جدولين وانت تريد تدخل البيانات في جدول الفرعي ولا يتم ادخال البيانات في جدول الرئيسي بعد

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

اللهم بلغنا رمضان اللهم بلغنا رمضان اللهم بلغنا رمضان امين امين والحمد لله رب العالمين

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

اتفضل استخدمت هذه الاكواد واحد بعد تحديث حقل الدول والاخر في نموذج عند الحالي Private Sub Combo6_AfterUpdate() Me.Combo8.Requery Me.Combo8 = "" End Sub Private Sub Form_Current() Me.Combo8.RowSource = "SELECT Countries.Country FROM Cities INNER JOIN Countries ON Cities.ID = Countries.ID WHERE (((Cities.City) = [Forms]![Form]![Combo6])) GROUP BY Countries.Country;" End Sub اليك قاعدتك بعد تعديل City.rar

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

كن معي اولا اليك صورة ولا تحكي مع نفسك كن معي النتيجة هو حقل dd 1 / الفرق بين سجل الاول مع الاول اللي ليس موجود هو 2000 لانه ما في اي سجل قبله وقيمته صار صفر 2000 - 0 = 2000 2/ الفرق بين سجل 2000 مع سالب 500 اي 2000 - (-500) = 2500 3/ الفرق بين سالب (-500) و 5000 اي (500-) - 5000 = 5500 4/ الفرق بين 5000 و 6000 اي 5000 - 6000 = -1000 لكن انا استخدمت دالة اي بي اس Abs لكي يعطي نتيجة موجبة 5/ الفرق بين 6000 و 7000 هو سالب 1000 6 / الفرق بين 7000 و 9000 هو 2000 اولا انا استخدمت هذا لكي احصل على السجلات الفردي والمزدوج واغير رقم السجلات المزدوجة الى سالب d1: IIf([id] Mod 2;-[num];[num]) وبعدين استخدمت هذا لكي احصل على النتيجة dd: Abs(DSum("[d1]";"استعلام1";"[id] <=" & [id] & "and [id] >=" & [id]-1)) وهناك ملاحظة : يجب ان يكون ترقيم متسلسل لكي يوصل الى المطلوب اي لا يجوز هناك رقم محذوف في سجل اليك ملفك بعد تعديل test130 (1).rar

اتفضل عملت لك نسخة تجريبية لا يقبل التكرار بالاسم انا اختارت الاسم كن معي اولا عملنا جدول اخر بنفس الحقول بعدين عملنا استعلام الحاقي بشرط ان يكون الاسم يساوي مع الاسف الحالي في الفورم و اي دي يساوي مع اي الحالي في الفورم وبعدين عملنا استعلام حذف بشرط ان يكون اسم يساوي مع الاسم الحالي في الفورم و كتبنا هذه الكود خلف زر في نموذج مستمر Private Sub Command13_Click() Dim CountMyTbl1 As Integer Dim i As Integer CountMyTbl1 = DCount("*", "tbl1") DoCmd.GoToRecord , , acFirst For i = 1 To CountMyTbl1 DoCmd.SetWarnings False If DCount("[myname]", "tbl1new", "[MyName]='" & Me.Text14 & "'") > 0 Then DoCmd.OpenQuery "q2", acViewNormal Else DoCmd.OpenQuery "q1", acViewNormal DoCmd.OpenQuery "q2", acViewNormal End If DoCmd.GoToRecord , , acNext Next i End Sub شوف الاسماء كان هكذا وبعد العملية في جدول جديد طلع هكذا اليك قاعدة بيانات والقي نظرتا اليه لكن لا تنسى اولا خذ نسخة احتياطية من قاعدة بياناتك حذف التكرار حسب الاسم.rar

استأذن من استاذنا @محمدنجار اتفضل اليك هذا Private Sub combo1_AfterUpdate() If Me.combo1 = 0 Then Me.A1.Enabled = False Me.A2.Enabled = False Me.A3.Enabled = False Me.A4.Enabled = False Me.A5.Enabled = False Me.A6.Enabled = False ElseIf Me.combo1 = 1 Then Me.A1.Enabled = True Me.A2.Enabled = False Me.A3.Enabled = False Me.A4.Enabled = False Me.A5.Enabled = False Me.A6.Enabled = False ElseIf Me.combo1 = 2 Then Me.A1.Enabled = True Me.A2.Enabled = True Me.A3.Enabled = False Me.A4.Enabled = False Me.A5.Enabled = False Me.A6.Enabled = False ElseIf Me.combo1 = 3 Then Me.A1.Enabled = True Me.A2.Enabled = True Me.A3.Enabled = True Me.A4.Enabled = False Me.A5.Enabled = False Me.A6.Enabled = False ElseIf Me.combo1 = 4 Then Me.A1.Enabled = True Me.A2.Enabled = True Me.A3.Enabled = True Me.A4.Enabled = True Me.A5.Enabled = False Me.A6.Enabled = False ElseIf Me.combo1 = 5 Then Me.A1.Enabled = True Me.A2.Enabled = True Me.A3.Enabled = True Me.A4.Enabled = True Me.A5.Enabled = True Me.A6.Enabled = False ElseIf Me.combo1 = 6 Then Me.A1.Enabled = True Me.A2.Enabled = True Me.A3.Enabled = True Me.A4.Enabled = True Me.A5.Enabled = True Me.A6.Enabled = True End If End Sub A.rar

ممكن تعطينا النتيجة المطلوبة اي تريد ان يكون كيف النتيجة اكتبه

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

اهلا بك في منتداك منتدى اوفــــيــســــــــــــــنا ما عليك الا ان تفتح الاستعلام في وصع التصميم واكتب اسم الحقل اي تريد مثلا انا كتبت tt وبعدين علامة : لان نوعية كلا الحقلين هو نمبر اي رقم اكتب اسم الحقل الاول + اسم الحقل الثاني هكذا tt: [T1]+[T2] واليك قاعدتك تقبل تحياتي db2.zip