jjafferr

حياك الله اخوي ابوخليل 🙂 ولو اني ما فهمت الشرح ، ولكن انت ادرى ببياناتك 🙂 جعفر

تحليل جميل للارقام 🙂 جعفر

السلام عليكم 🙂 واليك طريقتي ، فهي تعتمد على اول رقم مفقود ، وقد لا تكون الاسرع 🙂 Public Function ReArrange() Dim rst As DAO.Recordset Dim RC As Long Dim First_Missing As Long Dim Last_Record As Long Dim Previous_Record As Long Dim Update_to As Long Dim i As Long Dim mySQL As String Set rst = CurrentDb.OpenRecordset("Select [jint] From [qry_Missing_Numbers]") First_Missing = rst!jint Set rst = CurrentDb.OpenRecordset("Select [planNo] From [tblKotah] Where [planNo]>=" & First_Missing & " Order By [planNo]") rst.MoveLast: Last_Record = rst!planNo rst.MoveFirst: RC = rst.RecordCount 'lets get to work DoCmd.SetWarnings False Update_to = First_Missing - 1 Do Until rst.EOF If Previous_Record = rst!planNo Then 'Update_to = Update_to Else Update_to = Update_to + 1 mySQL = "UPDATE tblKotah SET planNo =" & Update_to & " WHERE planNo = " & rst!planNo DoCmd.RunSQL mySQL End If If Previous_Record = rst!planNo Then 'GoTo Move_Next Else Previous_Record = rst!planNo End If rst.MoveNext Loop DoCmd.SetWarnings True rst.Close: Set rst = Nothing MsgBox "Done" End Function . وبعد اتمام العمل ، تستطيع استعمال الاستعلام qry_Missing_Numbers للتأكد ان جميع السجلات مسلسلة 🙂 جعفر 1380.Missing_Copy (1).accdb.zip

وعليكم السلام 🙂 حيا الله اخوي ابوخليل 🙂 في الواقع انت تريد اول رقم فقط ، ومنه تقوم بتعديل باقي الارقام ، صح ؟ الاستعلام qry_Missing_Numbers يعطيك الارقام المفقودة ، هذه خطوة اولى 🙂 جعفر 1380.Missing_Copy (1).accdb.zip

الافضل العمل على الفكرة الجديدة ، ولا تهتم في موضوع الولايات الاخرى ، فهي مجرد بونص 🙂 جعفر

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

السلام عليكم 🙂 اخوي حسين ، هذه نتيجة تجربتي: . فالخطأ في اظهار الحروف الانجليزية وليس العربية ، فلا اعتقد بأن اعدادات اللغة لها علاقة !! جعفر

اخي الفاضل ، انت عملت هذا الموضوع ، وموضوع: فتح تطبيق الاكسيس بحجم صغير accmdappsize - قسم الأكسيس Access - أوفيسنا (officena.net) وبدل ان تشارك فيهما ، واذا بك تضع نفس المشاركة في موضوع آخر لا علاقة له بطلبك !! رجاء متابعة موضوعك مع الاعضاء هنا ، والاستفسار عن اي شيء يواجهك 🙂 جعفر

السلام عليكم 🙂 اخي الفاضل ، بما انك في بداية برمجة مشروعك ، فاقترح عليك التالي: 1. بدل ان يكون لكل ولاية جدولين ، والى الآن عندك 3 ولايات ، اي 6 جداول ، وبالامكان الزيادة (نموذجك الرئيسي فيه هذا الخيار ، بالاضافة الى ان الشباب في بقية الولايات ممكن تستعمل برنامجك 🙂) ، فيجب عليك عمل جدولين فقط يشمل جميع الولايات ، سواء الموجودة او التي سيتم اضافتها : جدول tbl_VillageID (وتم اضافة حقل CityID وحقل التسلسل Seq) ، واستكمالا للموضوع ، الجدول tbl_CityID (ولاحقا تقدر تضيف جدول للمحافظات كذلك) . جدول tbl_CityData (هذا احد جداولك ولم اعمل عليه اي تغيير) . 2. على هذا الاساس ، فانت بحاجة الى نموذج واحد فقط لجميع الولايات ، بحيث عن طريق حقل/حقول Combobox او Listbox في النموذج تختار الولاية ، ومنها القرية ، لاحظ ان بيانات المحافظة والولاية والقرية ، جميعها موجودة في هذا النموذج ، فكل اللي لازم يصير الآن هو ان تعمل فرز وتصفية لهذه البيانات ، وبإستعلام واحد يأخذ معايير التصفية من (حقل/حقول Combobox او Listbox في النموذج اعلاه ، طبعا هاي لإدخال البيانات). اذا تحب ان تمشي في هذا الطريق ، فرجاء اعمل التعديلات على برنامجك من خلال هذه الجداول والنموذج والتقرير ، ونأخذ الموضوع من هناك ان شاء الله 🙂 وإلا ، فكذلك اخبرني ، علشان ارفق لك طلبك الاصل 🙂 جعفر 1376.1.صحيفة - Copy.accdb.zip

تفضل 🙂 من استعلام المجاميع qry_rpt ننادي الدالة Concatenate_test_items التي تقوم بإرسال قيمة code ، ومنها تجمع النتائج test في سطر واحد . والنتيجة . ونستعمل هذا الاستعلام كمصدر بيانات التقرير. وهذه هي دالة Concatenate_test_items : Public Function Concatenate_test_items(C As String) As String Dim rst As DAO.Recordset Dim myWhere As String 'do the Where Criteria in an easy way, item by item myWhere = myWhere & "[code]='" & C & "'" 'set the Data source Set rst = CurrentDb.OpenRecordset("Select [test] From [Table1] Where " & myWhere) 'Loop through the Records Do Until rst.EOF 'Concatenate the items Concatenate_test_items = Concatenate_test_items & ", " & rst!test 'move to the next Record rst.MoveNext Loop 'Remove the initial ", ", thats why we start from the 3rd letter Concatenate_test_items = Mid(Concatenate_test_items, 3) 'clean up memory rst.Close: Set rst = Nothing End Function جعفر ملاحظة: لأني لا استعمل ActiveX الباركود ، فقد قمت بحذفه من الكود ، فيجب ان تختاره مرة اخرى 1377.test.accdb.zip

وكذلك اقول:

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

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

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

وعليكم السلام 🙂 جعفر

عفوا اخي د.حسنين 🙂 طريقتي التي شرحتها هنا ، لا تستخدم نماذج منبثقة 🙂 جعفر عفوا اخي ، لم افهم المطلوب!! جعفر

وبإستخدام كود اخوي حسين ، ولكن على الحدث "قبل التحديث" : if [TextBox]>99 then MsgBox "الكمية تتجاوز الحد المسموح", vbCritical + vbMsgBoxRight, "تنبيه" cancel=true End if جعفر

كلام اخوي ابوخليل عن اذا كان النموذج به قسم واحد ، مثل الصورة اللي ارفقها (كل الكائنات في قسم التفصيل) ، بينما النموذج المرفق فيه قسم "رأس الموضوع" Form Header ، وقسم "التفصيل" Detail ، لذا ، فكل قسم له ترقيم خاص به 🙂 . جعفر

يجب ان يوضع الكود في حدث "بعد التحديث" AfterUpdate او حدث "عند فقد التركيز" On Lost Focus للحقل مخزن

وعليكم السلام 🙂 في الموضوع التالي مرفق ، وهو يقوم بالخطوات التي تسأل عنها : . ولكن يجب عليك الوصول الى طلبك بين الاكود 🙂 جعفر

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

تفضل جرب المرفق ، ولكن ، لما تكتب في السجل ، فتلقائيا سيظهر لك سجل جديد في الاسفل ، ولكن لما تنتهي من تعبئة السجل ، فتلقائيا سيختفي ، الى ان تضغط على زر سجل جديد مرة اخرى 1376.block5-.accdb.zip

وعليكم السلام 🙂 عملت زر في النموذج الرئيسي . وهذا الكود لحدث تحميل النموذج ، وحدث آخر عن نقر الزر Private Sub Form_Load() Me.subtblIbriData.Form.AllowAdditions = False End Sub Private Sub cmd_Add_Record_Click() Me.subtblIbriData.Form.AllowAdditions = True Me.subtblIbriData.SetFocus Me.subtblIbriData!Block.SetFocus End Sub جعفر 1376.block5-.accdb.zip

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

هذه مكتبة 32بت ، وانت جهازك 64بت ، فكان لازم لها معالجة ، وتمت المعالجة والحمدلله بحيث تعمل على النواتين 32بت و 64بت 🙂 بس هل اشتغل الاستعلام ؟ جعفر