سعيد صواب

حياك الله يجب ان يكون مفتوح اخي .. اجعله مفتوح ولكن مخفي بالطريقة هذي Private Sub F2_Click() DoCmd.OpenForm "main2", , , , , acHidden If Me.F2 = -1 Then Forms!main2!c2.Visible = True ElseIf Me.F2 = 0 Then Forms!main2!c2.Visible = False End If End Sub بالنسبة لسؤالك الثاني لا يمكن للنموذج ان يحتفظ بها الا اذا كانت احد القيمتين ونجعلها قيمة افتراضية.... ولكن بإمكانك ان تجعلها تأخذ القيمة من الجدول بأي طريقة .. اي تأخذ آخر قيمة في الجدول . بالتوفيق

حياك الله اخي الكريم طبعا بشرط ان كلا النموذجين مفتوحين في نفس الوقت Private Sub F2_Click() If Me.F2 = -1 Then Forms!main2!c2.Visible = True ElseIf Me.F2 = 0 Then Forms!main2!c2.Visible = False End If End Sub طبعا اذا كان النموذج main2 غير مفتوح يصبح الكود بالطريقة التالية . Private Sub F2_Click() DoCmd.OpenForm "main2" If Me.F2 = -1 Then Forms!main2!c2.Visible = True ElseIf Me.F2 = 0 Then Forms!main2!c2.Visible = False End If End Sub بالتوفيق

حياك الله اخي محمد .. هل جربت اخي محمد ؟؟ بالتوفيق

حياك الله اخي محمد ... ابدا بالعكس لولا النقاش لما اثمرت اي فكره الذي تقصده انت هو عند كتابة أالحرف الأول من الحقل .. مثلا لو كان ضمن الكمبو بو كس حقل بإسم شركة محمد سلامة .. لو كتبت ش سوف تظهر ولكن لو كتبت م لن تظهر ... البحث هو بجزء من الكلمة وليس بدايتها . هذا مرفق بتنسيق 2003 بالتوفيق للجميع . Search_inside_Combo 2003.rar

حياك الله اخي الكريم هذا مثال على مجموع الحضور للصف الأول بتاريخ اليوم الق نظرة على النموذج frm1 وفي حدث عند التحميل Me.ATTend1 = Nz(DCount("id", "q1", "D = date() And cclass = '" & 1 & "'"), 0) شاهد التعديل في الجدول والاستعلام استبدل التسميات في الكود بما تريد وقم بتغييرها بعد الإستبدال .. بالتوفيق تفقد الطلاب.rar

حياكم الله اخواني الأخ الرهوي الق نظرة على الرابط التالي بالتوفيق للجميع .

السلام عليكم ورحمة الله وبركاته ... فيه سؤال للأخ الرهوي في الرابط التالي يسأل عن البحث داخل مربع التحرير والسرد نفسه بمجرد الكتابة http://www.officena.net/ib/topic/66565-كيف-ابحث-في-مربع-سرد-بجزء-من-الكلمة-؟/ بحثت وحاولت ولم افلح ... وبعد بحث طويل وجدت المطلوب .. في الحقيقة لا اعلم ان كان هناك طرق اخرى ... ولكن بالنسبة لي لم اجد الا هذه الطريقة القوا نظرة على المرفق ان شاء الله يفيدكم .. هذا رابط المرجع ... http://www.tek-tips.com/faqs.cfm?fid=6295 وهذا الكود الأساسي مع الشرح قبل التعديل Private Sub Combo0_Change() ' Function Description: ' Filter a combo box list as the user types, similarly to how application ' launchers like Colibri, AppRocket and LaunchBar opperate. ' e.g. if the list contains the names of U.S. Presidents, and ' the user types "gw," then the resulting SQL WHERE clause will ' look like "Name Like '*g*w*'" and the resulting list ' will include George Washington, George H. W. Bush and ' George W. Bush, among others. ' The order is preserved, so that typing "wg" creates an SQL WHERE ' clause like "Name Like '*w*g*'" and the resulting list would ' include George Washington but not the Bushes. ' This is accomplished by grabbing the text typed by the user in the ' combo box's edit field, creating an SQL SELECT statement from it, ' and finally applying that SQL statement to the combo box's ' .RowSource property. ' Form design settings: ' Set AutoExpand to No ' Column Count 3 ' Keyed on column 1 (record primary key) ' Showing column 2 (user-readable data) column 2 width > 0 ' First and Second column width=0 Dim strText, strFind ' Get the text that the user has typed into the combo box editable field. strText = Me.Combo0.Text ' If the user has typed something in, then filter the combobox ' list to limit the visible records to those that contain the ' typed letters. ' Otherwise (if the field is blank), the user has deleted whatever ' text they typed, so show the entire (unfiltered) list If Len(Trim(strText)) > 0 Then ' Show the list with only those items containing the typed ' letters. ' Create an SQL query string for the WHERE clause of the SQL ' SELECT statement. strFind = "Name Like '" For i = 1 To Len(Trim(strText)) If (Right(strFind, 1) = "*") Then ' When adding another character, remove the ' previous "*," otherwise you end up with ' "*g**w*" instead of "*g*w*." ' This has no apparent impact on the user, but ' ensures that the SQL looks as intended. strFind = Left(strFind, Len(strFind) - 1) End If strFind = strFind & "*" & Mid(strText, i, 1) & "*" Next strFind = strFind & "'" ' Create the full SQL SELECt string for the combo box's ' .RowSource property. strSQL = "SELECT tName.nameKey, tName.Name, SortOrder FROM tName Where " & _ strFind & " ORDER BY SortOrder;" '' NOTE: to remove the order requirement, such that typing "wg" '' and "gw" return the same results, the SQL WHERE clause needs '' to look like "Name Like '*w* AND *g*'." '' The code above should be changed as follows: ''For i = 1 To Len(Trim(strText)) '' strFind = strFind & "Name Like '*" & Mid(strText, i, 1) & "*' And " ''Next '' ''strSQL = "SELECT tName.nameKey, tName.Name, SortOrder from tblApps Where " & _ ''Left(strFind, Len(strFind) - 5) & " Order By SortOrder" ' Filter the combo list records using the new SQL statement. Me.Combo0.RowSource = strSQL Else ' Show the entire list. strSQL = "SELECT tName.nameKey, tName.Name, tName.SortOrder FROM tName ORDER BY tName.SortOrder; " Me.Combo0.RowSource = strSQL End If ' Make sure the combobox is open so the user ' can see the items available on list. Me.Combo0.Dropdown End Sub اتمنى من خبرائنا واعضاء المنتدى الكرام القاء نظرة على المرفق وعلى الكود كامل لو فيه اضافات او تعديلات . وبالتوفيق للجميع . Search_inside_Combo.rar

اخواني الكرام حياكم الله جميعا اسمحوا لي اشارك معكم في هذه النقطة هذا الكود يلغي عمل الشفت فعلا ... ولكن هناك برامج خارجية تقوم بتمكين الشفت . (مرفق مثال ) انا جربت المرفق على كل النسخ ويفتحها جميعا .. انا استخدم اكسس 2007 .... الحل الذي اعرفه انا من هذه الناحية هو تغيير الامتداد من accde الى accdr انا استخدم هذا البرنامج Access 2007 Developer Extensions هو برنامج للتحزيم عموما . ومعه يتغير امتداد الملف . .. عند تحميله اضغط على قائمة office من على يمين برنامج الأكسس ستجده في القائمة . بالتوفيق للجميع . sh.rar

حياك الله اخي الكريم الصورة لا تعمل للأسف ولكن استخدم دالة Dcount بشرط اسم الشعبة وتاريخ اليوم Date() يفضل ارفاق مثال صغير للتطبيق في حال ما وصلت المعلومة . بالتوفيق

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

حياك الله اخي الكريم ماهي الرسالة التي تظهر ثانيا اضف على الكود +1 ليصبح بالشكل التالي .. اعتذر منك نسيت +1 ليزيد كل مرة بمعدل 1 Me.AmeelNOinForm = Nz(DMax("AmeelNoinTable", "AlBianat"), 0)+1 الان ماهي الرسالة .. واسأل وخذ راحتك .. كلنا نسأل ونتعلم

جزاك الله خير استاذ ابو خليل طلعت المشكلة كلها في اعدادات الطابعة ... العرض والإرتفاع في الطابعة .. وبعد جهد جهيد انحلت المسألة ولله الحمد .

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

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

حياك الله اخي الكريم قارئ الباركود لا يحتاج اي ربط .. فقط قم بتوصيل القارئ بفتحة Usb .. (فيه منها بدون كيبل,wireless) .. وعلى طول يشتغل . ضع مؤشر الماوس في الحقل الذي تريد القراءة ان تظهر فيه ,وابدا القراءة. بالتوفيق.

حياك الله اخي الكريم ضع هذا السطر في حدث عند التحميل للنموذج Me.AmeelNOinForm = Nz(DMax("AmeelNoinTable", "AlBianat"), 0) ameelnoinform= رقم العميل في النموذج ameelNointable = رقم العميل في الجدول Albianat = جدول البيانات . بالتوفيق

حياك الله اخي كامل شاهد هذا الفيديو هذا وان شاء الله فيه مايجيب على تساؤلك . https://www.youtube.com/watch?v=iJFYtqi-9sQ بالتوفيق

تفضل اخي هذا بالنسبة للتركيب والصيانه تضع في حدث بعد التحديث لنوع الزيارة . If Me.ziarah = "Tarkeeb" Then Me.Add_ziarh.Enabled = False ElseIf Me.ziarah = "Syannah" Then Me.add_ziarah.Enabled = True Me.add_ziarah.Value = 1 End If End Sub وهذا بالنسبة لزيادة 80 يوم تلقائي .. هو نفس الكود في الأعلى تضعه في حدث بعد التحديث للحالة: Me.ziarh = DateAdd("d", 80, AkhrZiarh) طبعا لك الخيار ان تغير المسميات الإنجليزية بالمسميات العربية لديك ... او تغير مسمياتك الى الإنجليزية ومازلت عند نصيحتيى جاوبتك فقط ارضاء لشخصك الكريم ..... بالتوفيق

بارك الله فيك استاذ جعفر وفي الاستاذ عبدالله ... وان شاء الله ان اخونا السائل وجدت الجواب .. ولكن اريد منك اخي السائل ان تجيبني على سؤالي بخصوص التاريخ المعتمد بارك الله فيكم جميعا ..

حياكم الله اخواني . اخ عبدالله جزاك الله خير انا اعتمدت تقريبا نفس الحل ولكن من خلال الكود .. بالمناسبة مرفقك لا يقبل الإدخال في حقل التاريخ لا اعلم لماذا . الأستاذ جعفر ماشاء الله عليك ... ليتنا كلنا كسالى . الأخ السائل الكريم اول شئ قم بتجربة حل الأستاذ جعفر .. ان كان يناسبك فخير وبركة .. ============================= ما لاحظته انا انك وضعت قناعي ادخال في النموذج وفي الجدول .... قم بالغاء القناعين . وقم بالإدخال عادي وبعد الخروج من الحقل سيتغير التاريخ كما طلبت فقط اظف سطر الى الكود الموجود لديك. Private Sub a11_AfterUpdate() On Error Resume Next Dim sc As Integer Dim d As Date Dim S As String sc = Calendar Calendar = 0 d = CDate(a11.Text) Calendar = 1 S = CStr(d) a11hijri = Format(S, "YYYY/MM/DD") Calendar = sc Me.a11 = Format(a11, "YYYY/MM/DD") End Sub لا حظ الإضافة هي السطر الأخير في الكود .. بالتوفيق فيه سؤال محيرني جدا ... ولكن وقفت عند رغبتك وما حبيت اكثر الأسئلة ماهو التقويم المعتمد في القاعدة ؟؟؟؟؟ اذا كان هجري فلماذا نحول الى هجري .... واذا كان ميلادي فلماذا لانضع الحقل تاريخ وكفى .. بالتوفيق

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

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

اخي الكريم قم بإزالة قناع الإدخال لحقل a11 من الجدول وافدنا بالتوفيق

حياك الله اخي الكريم انصحك اولا ببناء القاعدة بشكل صحيح ... واقراء عن العلاقات وتصميم الجداول بشكل صحيح .. حتى تعمل مشروعك على اكمل وجه. جدول لبيانات العملاء .... وجدول للصيانة . === ردا على طلبك الأول : انت تدريج ادراج سطر للعميل نفسه بعد 80 يوم ... مع انك لو جربت ذلك يدويا فهو غير ممكن لأن رقم العميل مفتاح اساسي ترقيم تلقائي .. لن يتكرر. بعد ان ترتب مشروعك هذه تجاوبات لاسئلتك. بالنسبة لإضافة عدد ايام معين استخدم الدالة DateAdd Me.ziarh = DateAdd("d", 80, AkhrZiarh) هنا اضفنا للحقل زياره 80 يوم من تاريخ الحقل .. اخر زيارة . بالنسبة لتمكين وعدم تمكين .. استخدم الأمر enabled. Me.a.Enabled = False في الكود عدم تمكين للحقل a ... وعندما تريد تمكينه استخدم true واهم من هذا كله وقبل تنفيذه .... رتب مشروعك بشكل صحيح .. ويفضل استخدام التسميات الإنجليزية للحقول حتى يسهل عليك استخدامها في الأكواد مستقبلا. وفقنا الله واياك

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