نجوم المشاركات

السلام عليكم 🙂 اعرف ان هذا الموضوع مخالف ، فلا علاقة له بالاكسس ، ولكن له علاقة بالمبرمج 🙂 ملف اكسل فيه اوراق لتسهيل قضاء الصلوات الفائته - أدوات عامة - أوفيسنا (officena.net) جعفر

بعد ادن استادي واتراء للموضوع هذه طريقة متواضعة التنفيذ بالفورم تاريخ التقاعد.xlsm

السلام عليكم ورحمة الله النتائج.xlsx

من قدّك يا ولد ، فنان وحليت مشكلتك 🙂 طبعا لا 😁 جعفر

وعليكم السلام-تفضل تاريخ التقاعد1.xlsx

1. نعم ملاحظة صائبة ، وان شاء الله اظيفها ، 2. نعم ، حاولت ان لا ابتعد كثيرا عن الاكسل ، حتى لا يضيع اخونا ابو حسان 😁 على راسي 🙂 جعفر

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

السلام عليكم 🙂 هلا والله اخوي ابو خليل 🙂 البرنامج اللي انا عملته جاهز واخونا ابو حسان جربه ومافيه مشكلة ، وكل اللي مطلوب عمله هو تقرير جديد 🙂 انا كنت متعمد ما ارد على السؤال ، لأنه مثل ما تفضلت انت وقلت ، انه خونا ابو حسان لازم يبدأ يتعلم اكسس ، وإلا ، ففي كل صغيرة وكبيرة بيضطر يلجأ للمساعدة 🙂 خلاص ، بكرة ان شاء الله اقوم بعمل هذا التقرير 🙂 وسؤال آخر لأخوي ابو حسان: بما انني انا الذي أخذتك من الاكسل الى الاكسس ، فإذا قمت بالرد على سؤالك الاصل ، وقمت بعمل نسخ احتياطية على الاكسس ، فهل هذا سيسهل عليك؟ جعفر

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

حقيقة لم افهم وخاصة انك تذكر العميل يمكن يكون له 40 حساب ياليت الاستاذ جعفر يشرح لي اذا هو فاهم عمل البرنامج حقيقة تهت @jjafferr

يبدو انني بدأت نوعا ما استوعب عملك العمل سيتم على خطوات ، كل خطوة يتم انجازها ارفعها لك لتطلع وتجرب وتعطيني ملاحظاتك فدعنا نبدأ بالخطوة الأولى : في المرفق ادناه جدولان الجدول الأول : tblHesab وهو يشتمل على عمودين احدها لاسم الحساب والآخر لنوعه المطلوب ان تكتب جميع اسماء الحسابات ويقابل كل اسم نوعه ( مو جب او سالب ) تكتب للموجب رقم 1 وللسالب رقم صفر الجدول الثاني للعملاء وتكتب فيه ستة اسماء وهمية ثم ارفع الملف hesab.mdb

على حسب ما فهمت جرب هذه الدالة =max(0;a1-b1) convert negative to 0.xlsx

وعليكم السلام-يمكنك ذلك بهذه المعادلة =IF(DATEDIF(A4,B4,"md")>22,1+DATEDIF(A4,B4,"M"),DATEDIF(A4,B4,"M")) أما اذا كنت تريد ان تتأكد من امكانية تطبيق هذه المعادلة بالأكسيس فعليك برفع مشاركة اخرى بقسم الأكسيس فرق بالشهور1.xlsx

المشكلة ان تنسيق ونمط النموذج والجدول عندك كان غير ، فرجاء استعمال المرفق من الآن 🙂 وكلامنا فقط عن الجدول والنموذج احتمالات2 🙂 ولكي نتفادى رسالة الخطأ ، هكذا ننادي الدالة في الوحدة النمطية: Private Sub EH_DblClick(Cancel As Integer) Dim lng_Mno As Long lng_Mno = Get_Number(Me.EH, Me.EH.SelStart) If lng_Mno = 0 Then MsgBox "لم يتم الحصول على رقم" ElseIf lng_Mno = 1 Then MsgBox "لم يتم التعرف على الخطأ" Else DoCmd.OpenForm "مسند", , , "[Mno]=" & lng_Mno End If End Sub . واصبحت الدالة هكذا : Public Function Get_Number(fld As String, P As Long) As Long On Error GoTo err_Get_Number ' 'fld = Field content 'P = Position left mouse was double clicked in the field 'max_Length = maximun length of numeric field, default is 10 on each side = 20 characters 'C = the character to check 'Add_C = Adds the numeric Characters ' '1. check the characters to the Left <----| '2. check the characters to the Right |----> ' ' jjafferr ' v.1 : 21-01-13 : initial re;ease ' v.1.1 : 21-01-14 : added error traping for noe numeric values ' Dim i As Integer Dim Add_C As String Dim C As String Dim max_Length As Integer max_Length = 10 'What dose Access Read: -10 to 10 = 20 letters/characters 'C = Mid(fld, P - max_Length, max_Length) & vbCrLf & Mid(fld, P + 1, max_Length) 'Debug.Print C 'Get the numbers on the Left side of the click For i = P To (P - max_Length) Step -1 C = Mid(fld, i, 1) If IsNumeric(C) Then Add_C = C & Add_C Else Exit For End If Next i 'Debug.Print Add_C 'Get the numbers on the Right side of the click P = P + 1 For i = P To (P + max_Length) C = Mid(fld, i, 1) If IsNumeric(C) Then Add_C = Add_C & C Else Exit For End If Next i 'return the number value Get_Number = CLng(Add_C) Exit_Get_Number: Exit Function err_Get_Number: If Err.Number = 13 Then Get_Number = 0 Else Get_Number = 1 MsgBox Err.Number & vbCrLf & Err.Description End If Resume Exit_Get_Number End Function جعفر 1326.1.Get Number between text.accdb.zip

سلسلة تعليم بور كويري الجزء الخامس جلب بيانات من ملف مغلق في الفيديو دة تقدر تسحب بيانات من ملف مغلق

جزاك الله خيرا اخي

شكرا استاذ علي على مرورك على الموضوع

هكذا؟ نموذج.xlsm

السلام عليكم ورحمة الله وبركاته تفضل اخوي العزيز .. تم تغيير الاجازة يوم الجمعة والسبت .. tf02780235_win321.xlsx

السلام عليكم ورحمة الله وبركاته تفضل اخوي العزيز .. المعادلة في الخلية A12 .. نموذج - 2.xlsx

الآن اطلعت على عمل الاستاذ جعفر .. ما شاء الله برنامج متكامل اخذ كثيرا من جهده ووقته جزاه الله خيرا ولكني ايضا اعجب من مسايرته لك فالصفحات ليس لها معنى في اكسس ، فأنت اذا تحولت الى العمل على اكسس فليس للصفحات مكان فيه . ومشكلتك في عدم تمكنك من النسخ واللصق هو رقم الصفحة وانا متأكد ان الاستاذ جعفر قام بادخال ارقام الصفحات يدويا واحدة واحدة فبدلا من البحث عن الصفحات فأكسس يتيح لك البحث عن : التصفية من و الى التصفية حسب السنة او الشهر أو الأسبوع او اليوم التصفية حسب الاسم التصفية حسب المخزن التصفية والجمع حسب السالب والموجب والكل (( علما ان هذا نختصره بما يسمى الرصيد بمعنى ان هناك عمليتان وهي الوارد والمصروف والفرق بينهما هو الرصيد )) صحح لي ان اخطأت . فالآدخال في اكسس ارقام موجبة سواء كانت واردات او مصروفات _______________________________________________________ بالنسبة للتسميات فأمرها هين يسير يمكنك تغيير المسميات في رؤوس الاعمدة يدويا في التقارير والنماذج فقط .. الجداول لا فقط افتح النموذج على التصميم وغير مسميات العناوين فقط ومسميات الأزرار وكذلك في التقارير _______________ حتى اتمكن من مساعدتك بنقل بياناتك كاملة صحيحة الى اكسس لدي استفسار : ذكرت ان لديك في اكسل 30 صفحة السؤال : ما الفرق بين هذه الصفحات لماذا لم يتم اختصارها بصفحات اقل بمعنى مثلا ما الفرق بين صفحة 7 وصفحة 17 وهل لكل صفحة خصيصة تختلف عن الأخريات .

وطريقتي : النموذج: وبعد اختيار الايام ، انقر على الزر . كود الحدث على الزر : اسم الدالة ، ونرسل لها : اسم النموذج ، اسم حقل Listbox ، اسم الحقل في الاستعلام والذي نريد ان نضع له المعيار ، اسم الاستعلام . وهذه هي الدالة في الوحدة النمطية : Public Function Not_in(frm As String, fld As String, myWhere As String, qry As String) As String 'call Not_in("SelectDays","lstCats","Months_Digits","Query2") Dim ctl As Control Dim i As Integer Set ctl = Forms(frm)(fld) For i = 0 To ctl.ListCount - 1 If ctl.Selected(i) = False Then Not_in = Not_in & " Or " & myWhere & " = '" & ctl.Column(0, i) & "'" End If Next i Not_in = Mid(Not_in, 5) DoCmd.OpenQuery qry DoCmd.ApplyFilter , Not_in End Function . والشيء الذي اريدك تنتبه له هو ، اني ما وضعت المعيار في الاستعلام ، وانما عملت تصفية للإستعلام بعد تنفيذه ، عن طريق الامر DoCmd.ApplyFilter , Not_in 🙂 جعفر 1327.MultiSelec listbox query.zip

السلام عليكم ورحمة الله وبركاته اتفضل اخوي العزيز .. ملف ان شاء الله تستفيد منه .. filter.xlsm

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

ربما يمكن الاستفادة من هذه المشاركة

معظم المبرمجين يعتقدون بأن جمع قيم حقلين في نموذج ، سيعطي نتائج صحيحة ، ولكن المثال الذي ارفقته في مشاركتي السابقة اثبت بأن هذا غير صحيح. فالاكسس يتعامل مع الحقل كتعامله مع Variant ، لهذا السبب يجب ان نخبر الاكسس بأن الحقل (سواء نوع الحقل في الجدول عبارة عن رقم ، او عن طريق تنسيق الحقل ونخبره بأنه رقم) ، او قيمة الحقل نغيرها الى رقم (ونستعمل دوال مثل: Val او Int او cInt او cDbl ، مثل : Val(X) Int(X) cInt(X) cDbl(X) . والموضوع لا يتوقف على النموذج او الكود (سواء في النموذج او التقرير او الوحدة النمطية) ، وانما في الاستعلام والتقرير والماكرو ايضا. جعفر

عدل File_name = "Filename" الى File_name = SH.Range("E7").Value

تم التعديل على الملف 1-يمنع ادخال بينات مكررة 2- لتعديل اي بيانات ادخل الاسم في خانة الاسم ادخل باقي البيانات التي تريد تعديلها اضغط الزر UPDATE يمكنك الاستعانة بهذه الصور الملف النهائي مرفق Example_Final.xlsm

يجب طرح المواضيع دفعة واحدة اذا قمت بتلبية هذا الامر من يضمن انك لا تريد شيئا اخر (مثلاً عدم القبول بالتكرار)

وعليكم السلام الفكره عمل سجل للسيارات واعطالها

فورم اضافة تاريخ الزيارة واظهار التاريخ من اليمين بالتكست الفيديو

بسم الله الرحمن الرحيم اخي ابو زاهر ... ولو اني لم اطلع على الملف ..لكن اليك هذا الكود وجلبته من موقع اجنبي ...تجعله في حدث قبل التحميل للنموذج الفرعي ويعطيك خيار الحفظ او التراجع عن كل صف في النموذج On Error GoTo BeforeUpdate_Error If Me.Dirty Then 'if record has been changed the dirty property ' is set to true Display message to save the record If MsgBox("هل ترغب بحفظ هذا السجل والمتابعة? اضغط نعم لإتمام السند,بعد التأكد من ادخال كافة الحقول", _ vbYesNo + vbQuestion, "حفظ السجل") = vbNo Then Me.Undo End If End If BeforeUpdate_Exit: Exit Sub BeforeUpdate_Error: MsgBox Err.Description Resume BeforeUpdate_Exit

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