jjafferr

السلام عليكم 🙂 اعتقد اخوي @ابوخليل عنده معرفة في هذا الموضوع اكثر مني 🙂 جعفر

السلام عليكم 🙂 . . ثم في التقرير : . والنتيجة : . اما الطريقة الثانية : انا اعتذر ، كنت اعتقد بأن Combobox موجود عندك في النموذج ، ولكن الظاهر انك عملت Lookup للحقل في الجدول (وهذه الطريقة لا يُنصح بها لمشاكلها ، ومنها ما تواجهه انت الآن) !! فالطريقة اننا نحول الحقل في التقرير الى Combobox ، ثم نأخذ طريقة بيانات الحقل من الجدول ، ونضعه في حقل التقرير : . والنتيجة كذلك: . اما هذه رجاء تشرحها بمثال وبأرقام ، لأني ما سمعت بهكذا عمل سابقا 🙂 جعفر 1212.TEST_QUERY.accdb.zip

السلام عليكم 🙂 اذا لاحظت المثال الذي ارفقته انا ، فعملت مجلد داخل مجلد ، مثل D:\Testing\Data_Folder ، لهذا السبب هناك كود لكل مجلد : dim myFolder as string عمل المجلد الاول' Testing myFolder= "D:\Testing" if len(dir(myFolder, vbDirectory))=0 then mkdir myFolder end if عمل المجلد التالي' Data_Folder myFolder= myFolder & "\Data_Folder" if len(dir(myFolder, vbDirectory))=0 then mkdir myFolder end if لذلك ، يجب عليك عمل المجلد الخارجي اولا Testing (او على الاقل التأكد انه موجود ، و الكود اذا لم يجد المجلد ، فإنه يعمله) ، وبعدها تعمل المجلد الذي بداخله Data_Folder (وكذلك الكود اذا لم يجد المجلد ، فإنه يعمله) 🙂 بالنسبة الى لمجلدات التي اردتها انت ، فيمكن عملها كما قال اخي حسام ، هكذا : Private Sub btn17_Click() Dim str_folder As String str_folder = CurrentProject.Path & "\fails" If Len(Dir(str_folder, vbDirectory)) = 0 Then MkDir (str_folder) End If str_folder = str_folder & "\" & Format(Me.num, "0000000") ' folder to open If Len(Dir(str_folder, vbDirectory)) = 0 Then MkDir (str_folder) End If Call Shell("explorer.exe " & str_folder, vbNormalFocus) End Sub جعفر

طيب بالنسبة لأولا : اعمل لكل تاريخ Combobox في التقرير ، بحيث يكون بنفس طريقة الـ Combobox اللي في النموذج (وممكن تعمل نسخة منه من النموذج وتلصقه في التقرير) 🙂 جعفر

وعليكم السلام 🙂 انا صرت ما ارد على الاسئلة اللي مافيها شرح وافي في الموضوع ، ولا اريد ان انزل المرفق ، وبعدين يتضح لي اني ما اقدر ارد على السؤال 🙂 جعفر

وعليكم السلام 🙂 اهلا وسهلا بك في المنتدى 🙂 علشان نعمل المجلد: D:\Testing\Data_Folder على حدث النقر على الزر ، اكتب هذا الكود : dim myFolder as string myFolder= "D:\Testing" if len(dir(myFolder, vbDirectory))=0 then mkdir myFolder end if myFolder= myFolder & "\Data_Folder" if len(dir(myFolder, vbDirectory))=0 then mkdir myFolder end if جعفر

السلام عليكم 🙂 اخي ازهر : اذا عندك المريض A في المستشفى ، ثم خرج من المستشفى ، ثم عاد مرة اخرى !! طريقتك لن تسمح له ، لأن اسمه موجود على القائمة 🙄 لذا انصحك ان تعمل حقل "تاريخ الخروج" من المستشفى ، او موجود/غير موجود ، واللي على اساسه تتم التصفية كذلك 🙂 جعفر

تمت الاجابة على هذا السؤال هنا : https://www.officena.net/ib/topic/93414-تصدير-بيانات-أكسس-إلى-جدول-في-الوورد/?do=findComment&comment=617621 جعفر

السلام عليكم 🙂 للعلم ، انا اضفت الزبون رقم 5 للجدول T_oldprom 🙂 لو استعملنا الاستعلام التالي ، لحصلنا على جميع الاحتمالات (استعلام مجاميع) ، لاحظ اننا ما عملنا علاقة بين الجدولين : . . والآن نضيف استعلام فرعي على الاستعلام اعلاه ، في هذا الاستعلام الفرعي ، نطلب منه ان لا يعطينا القيم الموجودة في الجدول T_oldprom 🙂 الاستعلام التالي يعطيك ارقام الهدايا الفارغة لكل زبون : . SELECT T_oldprom.CusCode, T_ConditionType.ConditionID FROM T_ConditionType, T_oldprom GROUP BY T_oldprom.CusCode, T_ConditionType.ConditionID HAVING (((T_oldprom.CusCode) Not In (SELECT T_old.CusCode FROM T_oldProm AS T_old WHERE T_old.CusCode = T_oldprom.CusCode AND T_old.ConditionType = T_ConditionType.ConditionID))) ORDER BY T_oldprom.CusCode, T_ConditionType.ConditionID; . والنتيجة : جعفر 1211.No_Match.accdb.zip

اولا: شو اسم مربع السرد ، ثانيا: بأي حقل تريد الفرز التصاعدي ؟ جعفر

وعليكم السلام 🙂 اولا: اعمل استعلام جديد ، واستعمل استعلام التوحيد ، والجدول الآخر اللي فيه قيمة الـ Combobox ، واربط الجدولين بحقلي الرقم ، ثم انزل حقل الاسماء في الاستعلام الجديد ، واستعمله في التقرير ، ثانيا: التقرير لا يحترم ولا يستعمل الفرز من الاستعلام/الجدول ، لذلك يجب عليك عمله في التقرير ، بواسطة : . وتجعل حقل الفرز في اول القائمة (حاليا الفرز عندك بالحقل NO_OUT_ARA ، ثم الفرز بالحقل NO_IN_ARA ) جعفر

🙂

هل حقل اسم العميل : CusCode

السلام عليكم 🙂 رجاء ارفاق مرفق صغير 🙂 جعفر

اما الطريقة التي تعملون عليها ، فهنا طريقة العمل : جعفر

اساتذي الافاضل 🙂 ومن هذا الرابط : تم التوصل الى المرفق 🙂 كود النموذج : Private Sub cmd_Dates_Search_Click() Me.Requery End Sub Private Sub Command24_Click() Me.x = Null Me.STR = Null Me.ind = Null Me.Requery End Sub Private Sub ind_DblClick(Cancel As Integer) Me.ind = Null Me.Requery End Sub Private Sub STR_DblClick(Cancel As Integer) Me.STR = Null Me.Requery End Sub Private Sub x_AfterUpdate() Me.Requery End Sub Private Sub x_DblClick(Cancel As Integer) Me.x = Null Me.Requery End Sub . وهذا الاستعلام الذي اصبح مصدر بيانات النموذج : . SELECT t1.id, t1.nume, t1.vactiondate, t1.manger FROM t1 WHERE (((t1.vactiondate) Between (IIf(Len([Forms]![f1]![STR] & '')=0,#1/1/1900#,[Forms]![f1]![STR])) And (IIf(Len([Forms]![f1]![ind] & '')=0,#1/1/2900#,[Forms]![f1]![ind]))) AND ((t1.manger)=IIf(Len([Forms]![f1]![x] & "")=0,[manger],[Forms]![f1]![x]))); . وفي البرنامج تكة صغيرة اضفتها ، وهي لما تريد تفرغ بيانات اي من حقول البحث ، انقر على الحقل مرتين 🙂 جعفر 1210.فلترة.accdb.zip

رجاء ثم رجاء اخي الفاضل ، رجاء تكتب عنوان يخبرنا عن الموضوع ، وتكتب في الموضوع شو المشكلة ، رجاء !! جعفر

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

في البداية ، لا ، ولم يكن هناك اي مشكلة ، ولكن لاحقا اضطررنا ان نعمل IP خاص لشبكتنا ، حتى لا نسمح للمستخدمين الآخرين رؤية برامجنا ومجلداتنا واجهزتنا ، ولما عملنا الشبكة الاصغر ، ولم يكن هناك DHCP Router ليوزع الـ IP ، فعملنا IP ثابت (Static IP) 🙂 جعفر

في حدث الحالي 🙂 جعفر

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

قائمة الصور اعلاه تم استرجاعها من البرنامج في مشاركتك : وجميعها بصيغة jpg وجميعها تفتح بصورة طبيعية ، ولكن قد يكون هناك مجموعة من الملفات التي ارفقها المستخدم في البرنامج بصيغ اخرى ، لهذا السبب اردتك ان ترفق بضع منها حتى افحصها 🙂 جعفر

في جزئية كنت ناوي اكتبها مع مشاركتي السابقة ، بس لما اخبرتني ام العيال ان الغدى جاهز ، طارت عن بالي 🙂 بعض الاوقات يكون عندنا مربع سرد فيه اكثر من عمود ، ونكون عملنا كود على الحدث "بعد تحديث" المربع ، حتى يضع قيمة العمود الثاني او الثالث في حقل او حقلين ، وعليه يكون الكود هكذا / Private Sub Form_Current() Dim nRow As Long, nColumn As Long 'nRow = رقم السطر 'nColumn = رقم العمود nColumn = 0 For nRow = 0 To Me.typ.ListCount - 1 If Me.typ.Column(nColumn, nRow) = "Y" Then Me.typ.Value = Me.typ.ItemData(nRow) Call typ_AfterUpdate '<==== Exit For End If Next i End Sub Private Sub typ_AfterUpdate() '<==== Me.Typ2 = Me.typ.Column(1) End Sub جعفر

على العموم ، صحيح ان جميع الطرق اعلاه تعطي النتيجة المطلوبة ، وذلك لأن مثال اخوي ازهر بسيط وبعمود واحد ، بينما الطريقة الصحيحة هي ، البحث عن القيمة في القائمة ( ComboBox او ListBox ) ، ومن اي عمود ، ثم اظهارها ، هكذا : rim nRow as long, nColumn as long 'nRow = رقم السطر 'nColumn = رقم العمود nColumn=0 For nRow = 0 To Me.Typ.ListCount - 1 If Me.Typ.Column(nColumn, nRow)="Y" Then Me.Typ.Value = Me.Typ.ItemData(nRow) Exit For End If Next i جعفر

هنا يأتي فائدة الملاحظات في الكود 🙂 فاعمل ملاحظاتك في كل حدث ، او في احداث معينة 🙂 جعفر