اذهب الي المحتوي
أوفيسنا

ابو جودي

أوفيسنا
 عرض الملف الشخصي  عرض المشاركات

  • Posts

    6997

  • تاريخ الانضمام

  • Days Won

    202

 نوع المحتوي 

كل منشورات العضو ابو جودي

  1. ابو جودي
    ممكن مرفق يحتوى على جدول بيانات وتحدد الحقول التى تريد لها ان تكون ضمن عمل الــ QR code
  2. ابو جودي
    انا اسف لسه واخد بالى من الموضوع يا دكتور بسبب الرد ده لان الرد ده من 3 ساعات ولاحظت التساؤل ده اللى ما كان له جواب وفعلا لم الاحظ قدم تاريخ المشاركة العتب ع النظر معلش يا دكتور
  3. ابو جودي
    وعليكم السلام يا دكتور شاهد هذا المرفق ... سوف ينال إعجابكم ان شاء الله -------------------------- وعليكم السلام اتفضل يا افندم تقريبا كل اللى حضرتك محتاج له ان شاء الله هيكون هنا Export Multi Reports.mdb
  4. ابو جودي
    اتفضل Dim strPatSavePdf As String Dim strDocName As String strPatSavePdf = CurrentProject.Path & "\" ' المسار الذة تريد حفظ التقرير اليه strDocName = "اسم التقرير رقم 1" 'اسم التقرير كما هو فى قاعدة البيانات DoCmd.OutputTo acOutputReport, strDocName, "PDFFormat(*.pdf)", strPatSavePdf & "\" & strDocName & ".pdf", True strDocName = "اسم التقرير رقم 2" DoCmd.OutputTo acOutputReport, strDocName, "PDFFormat(*.pdf)", strPatSavePdf & "\" & strDocName & ".pdf", True strDocName = "اسم التقرير رقم 3" DoCmd.OutputTo acOutputReport, strDocName, "PDFFormat(*.pdf)", strPatSavePdf & "\" & strDocName & ".pdf", True ولو التقارير كتير انا عن نقسى هعمل ليست بوكس اعمل منهاا اختيار للتقارير اللى انا محتاج اصدرها واعمل روتين عام للتصدير واستدعيه فى حلقة تكرارية على الليست بوكس علشان ما اكتب اكواد كتير
  5. ابو جودي
    الشكر لله .. والحمد لله ان هدانا وما كنا لنهتدى لولا ان هدانا الله
  6. ابو جودي
    جزاكم الله خيـــــرا استاذى الجليل ومعلمى القدير و والدى الحبيب ساحر القلوب والاكسس
  7. ابو جودي
    اتفضلى يا استاذه progressbar.accdb
  8. ابو جودي
    اعتقد لا ما ينفع
  9. ابو جودي
    طيب علشان لو حابب تنقل التعدل لقاعدتك انت هذا الروتين الذى تم اضافته الى الموديول والذى ينشئ مسار للصورة تبعا للرقم الشخصى Public Function ImgPath(ByVal intProNo As Integer) ImgPath = CurrentProject.Path & "\Library Files" & "\Pictures\" & intProNo & "\" & Dir(CurrentProject.Path & "\Library Files" & "\Pictures\" & intProNo & "\") End Function وفى مصدر بيانات النموذج والجدول كذلك تم عمل استعلام واضافة الجزء الذى يستدعى الروتين كالاتى ImgPath([PersonalNumber]) وقمت بعمل تسمية لهذا الحقل فى الاستعلام ليكون الحقل باسم Pic فيكون السطر السابق من الكود بالشكل Pic : ImgPath([PersonalNumber]) وفى كل من النموذج , والتقرير نجعل عنصر التحكم فى الصورة يساوى الحقل Pic
  10. ابو جودي
    طيب ليه ما قولت من وقتها اتفضل جرب الطريقة الجديدة دى ان شاء الله كله يكون تمام علشان تبقى عارف انا عملت روتين عام يعمل مسار للصورة ومن خلال مصدر بيانات النموذج او الجدول يتم استدعاء الروتين الخاص بالمسار لينشئ مسار الصورة انا باعتذر لحضرتك Data Registration (v. 4).mdb
  11. ابو جودي
    معلش يا باش مهندس موضوع الصلاحيات متشعب والتعديل عليه مش بيكون ببساطه وعلشان الاسئله عنه كثيرة كنت حابب نتشارك الافكار ونتطبق عملى خطوة بعد خطوة اولا علشان الموضوع يتفهم ثانيا علشان كل واحد يكون على درايه ايه اللى حصل علشان اللى حابب يعدل ويطوره مستقبلا
  12. ابو جودي
    استاذى الجليل ومعلمى القدير و والدى الحبيب استاذ @jjafferr انا اسف جدا جدا جدا جدا جدا وعلى استحياء منكم اقدم خالص اعتذارى لتعبكم ومجهودكم ولكن استاذى لو احببت تحويل الكود الى روتين عام بنفس هيئته لفعلتها ولكن لم اقصد ذلك انا اقصد الحاق بيانات من الى الجدول من هلال كود مرن بنفس الالية فقط مثل هذا السطر rs.Fields(ctl.Name) = ctl.Value مهما كان اسم الحقل ومهما كان اسم العنصر فى النموذج يتم اضافة البيانات ولكن انا احببت ان يكون الكود من خلال استعلام ديناميكى على طريقتم واتيت بالكود لاننى اريد ان يتم الالحاف على نفس المنهج فقط ولكن لم اقصد تحويل الكود بعينه وبمسمياته
  13. ابو جودي
    تنويه هام ـــــــــــــــــــــ تم تعديل المرفق والكود والشرح بناء على تعليمات وتوجيهات استاذى الجليل ومعلمى القدير و والدى الاستاذ @jjafferr الله لا يحرمنا منكم استاذى الجليل
  14. ابو جودي
    الله يسعدك استأذى الجليل فاكهة المنتدى مرة واحدة الله يرضى عنك ويرضيك خد بالك اللى يبالغ كثير ينسى الاكواد انت حر صدقنى انا خايف ع الاكواد .. اقصد عليك
  15. ابو جودي
    أستاذي الجليل ومعلمي القدير و والدى الحبيب الأستاذ @jjafferr تحية طيبة مباركة أولا : اشكر حضرتك على توضيح المعلومة والتصحيح واخصكم بالشكر لبالغ كرمكم انكم حاولتم إرشادي في رسالة خاصة على اعتبار اللقب مثلا الذى أهدتني إياه إدارة المنتديات وكان بالغ كرم من سيادتكم ان توجيهي قد يقلل من شأني أو يزعجني. سيدى الجليل والله كونى طالب علم وانهل من ربوع وبحور علمك هو اعلى وسام و تقدير قد احصل عليه يوما وبالنسبة لي تلك اعلى المراتب ولا أتمنى غيرها اقسم بالله لو قابلتكم الان لقبلت ارجلكم قبل اياديكم وهذا اقل حقوكم على أدامكم الله روح طيبة تسكن القلوب .. ووجه باسم ترتاح له العيون .. ونفس مطمئنة تمتلك النفوس .. وأسأله عز وجل أن يعطيكم من عطــاياه ويمنحكم عفوه ورضاه ويغفر لكم من عمركم ما مضى ويقدر لكم الخير فيما أتى .. وأن يجعل السعادة رفيقتكم في الدنيا والآخرة.. اللهم آمين. ــــــــــــــــــــــــــــــــــــ الان بخصوص تلك الجزئية هي جديدة على بكل صراحة فلم اتعمق او أحاول في اعدادات الاكسس ولكن غيرت الاعدادات ولم يحصل شيء المشكلة التي وضعتني فيها حضرتك الان أنى كنت انوى استخدام التاج في روتين عام اخر لإضافة البيانات من النموذج الى الجدول طبعا ممكن حذ يسأل طيب ليه التاج في ادراج البيانات لان أحيانا نضع مربعات نص مخفية مثلا لإجراء معين ولا نريد الحاق القيم منها الى حقول الجدول وبالكود الموجود في الروتين سوف تحدث مشكلة لا تقلقل سوف افكر في حل ما وليكن عمل التاج من نصفين وفصل كل نص وتبعا للقيم يتم عمل الكود من خلال الروتين وطبعا لابد من الفصل من بين الحقول الاجبارية والتي قد لا تكون كلها اجبارية وبين الحقول التي نريد تعبئة البيانات منها والتي كذلك قد لا تكون كل البيانات من كل الحقول اعرف انا انسان معقد واهتم كثيرا بتفاصيل دقيقة وصغيرة قد تخنق أحيانا
  16. ابو جودي
    يا عينى ع الدلع استاذى الجليل استحييت ان اقوم بالتعديل ولكن والله فكرت بها كذلك كا تفضلتم واكتفيت بوضع اقل الحلول بساطة على خطاكم هههههههههه لان ترانى انا انسان معقد اهوى الحلول الصعبة
  17. ابو جودي
    عنوان الموضوع : كيفية الكتابة على قيم في الاستعلام وحضرتك طلبت وطلبت انا بصراحة صيرت ما افهم شئ وغير قادر على محاولة الفهم حتى
  18. ابو جودي
    طيب لا يمكن تعديل القيم فى الاستعلام لان القيم Cat1 , Cat2 ,Cat3 هى قيم تم جلبها فقط من جدول تبعا لقيم مربع السرد الدال عليها كما بالكود ** للعلم هو ممكن اجبر التطبيق انه يغير لك القيم لكن ده هيكون بكود والتغيير هيتم على القيم التى تخص الجدول وطبعا ده مش صح Cat1: Val(IIf(Nz([Cat4_ID_1],"")="",0,DLookUp("Cat4_Ammount","tbl_Cat4","Cat4_ID=" & [Cat4_ID_1]))) Cat2: Val(IIf(Nz([Cat4_ID_2],"")="",0,DLookUp("Cat4_Ammount","tbl_Cat4","Cat4_ID=" & [Cat4_ID_2]))) Cat3: Val(IIf(Nz([Cat4_ID_3],"")="",0,DLookUp("Cat4_Ammount","tbl_Cat4","Cat4_ID=" & [Cat4_ID_3]))) ابسطها لسيادتك القيمة التى تخص جهة استقطاع 1 : استقطاع (4) 10 مليون العمارة 9 = 100 جهة استقطاع 2 : استقطاع (4)10 مليون بلدروز = 200 جهة استقطاع 3 : استقطاع (4) 5 مليون بلدروز = 700 لو انا عملت لك كود لتغيرها هيتم تغيرها فى الجدول file-1 ولو ده حصل فى الوقت ده لن تكون هذه القيم ثابته وسوف تتغير لكل المحاسبين ولكل الموظفين فى القاعدة كلها ركز معايا الله يرضى عليك لما اسجل بيانات فى سجل جديد وتخص الــ المحاسب : عمار بن ياسر , والموظف : احمد هاشم وتكون جهة استقطاع 1 : استقطاع (4) 10 مليون العمارة 9 القيمة = 100 وتكون جهة استقطاع 2 : استقطاع (4)10 مليون بلدروز القيمة = 200 وتكون جهة استقطاع 3 : تقطاع (4) 10 مليون العمارة 9 القيمة = 700 ولو فى سجل قديم البيانات فى السجل القديم وتخص الــ المحاسب : محمد خالد , والموظف : تحسين جاسم وتكون جهة استقطاع 1 : استقطاع (4) 100 راتب البحيرة 311 القيمة = 300 وتكون جهة استقطاع 2 : استقطاع (4) 10 مليون العمارة 9 القيمة = 100 وتكون جهة استقطاع 3 : استقطاع (4) سيارات بعقوبة القيمة = 900 لو انا غيرت cat1 اللى هى قيمة الـ استقطاع (4) 10 مليون العمارة 9 من القيمة 100 الى القيمة 555 سوف تتغير قيمة cat2 من القيمة 100 الى القيمة 555 لانها تخص قيمة الـ استقطاع (4) 10 مليون العمارة 9
  19. ابو جودي
    اتفضل يا سيدى ex.accdb
  20. ابو جودي
    الكود شغال تمام فقط جرب 'all weeks of the year 'Week Number, Saturday, Thursday Dim D As Date, Date_1 As Date, Date_2 As Date Dim i As Integer, W As Integer For i = 0 To 366 D = DateAdd("d", i, "1-1-" & Year(Date)) If D >= "31-12-" & Year(Date) Then Exit For If Weekday(D) = 7 Then Date_1 = D 'Saturday Date_2 = DateAdd("d", 5, Date_1) 'Thursday W = W + 1 Debug.Print W & vbTab & Date_1 & vbTab & Date_2 n_semaine = W Dates1 = Date_1 dates2 = Date_2 DoCmd.RunCommand acCmdRecordsGoToNew End If Next i
  21. ابو جودي
    بيانات اجبارية التحقق من استكمالها قبل الحفظ
  22. ابو جودي
    السلام عليكم ورحمة الله تعالى وبركاته يسأل البعض عن عدم حفظ البيانات الإ بإستكمال الحقول المطلوبة يمكن ذلك من خلال الفكرة الاتية ولكن بشرط اسم العنصر المطلوب ( الاجبارى) يجب وضع الرمز * فى الـ Tag الخاصة به كما بالصورة الاتية لاننى وضعت الاكواد فى الموديول تعتمد عليها والان الاكواد داخل الموديول 'RequiredData Function RequiredData(ByVal frm As Form) On Error Resume Next Dim ctl As Control Dim err As Integer For Each ctl In frm.Controls Select Case ctl.ControlType Case acTextBox, acComboBox, acListBox, acCheckBox, acOptionButton, acOptionGroup: 'If ctl.StatusBarText = "*" Then If ctl.Tag = "*" Then If IsNull(ctl) Or ctl = "" Or ctl = Null Then ctl.BackColor = 15531489 ctl.SetFocus err = err + 1: MsgBox "Please fill in the " & ctl.Controls(0).Caption: Exit Function Exit For Exit Function Else ctl.BackColor = 16777215 End If End If End Select Set ctl = Nothing Next ctl End Function ويتم استدعاء الكود من خلال Call RequiredData(Me) اترككم مع الاستمتاع بالتجربـة وفى انتظار ارائكم Required data (2).mdb
  23. ابو جودي
    استاذى الجليل ومعملى القدير و والدى الحبيب استاذ @jjafferr اعتذر لاثقالى على كاهلكم هل من طريقة لتحويل المود الاتى وهو لكم استاذى الى Function ليتم استدعائه بسخولة حسب الحالة مثلما حاولت جاهدا عمل ذلك من خلال ال Recordset تسهيلا من كتابة اسطر الاكواد وزيادتها بزيادة الحقول ؟! mySQL = "INSERT INTO UsystbllvlUsers" mySQL = mySQL & "( IDUser," mySQL = mySQL & "IDGroup," mySQL = mySQL & "UName," mySQL = mySQL & "UPassword," mySQL = mySQL & "FullName," mySQL = mySQL & "lvlQ1 ," mySQL = mySQL & "lvlAnsr1," mySQL = mySQL & "lvlQ2 ," mySQL = mySQL & "lvlAnsr2," mySQL = mySQL & "lvlQ3 ," mySQL = mySQL & "lvlAnsr3," mySQL = mySQL & "Umail )" mySQL = mySQL & " SELECT " mySQL = mySQL & " 1 AS IDUser," mySQL = mySQL & " 3 AS IDGroup," mySQL = mySQL & " Encoder(""admin"") AS UName," mySQL = mySQL & " Encoder(""admin"") AS UPassword," mySQL = mySQL & " Encoder(""admin"") AS FullName," mySQL = mySQL & " 20 AS lvlQ1," '6 Questions mySQL = mySQL & " Encoder(""administrator"") AS lvlAnsr1," mySQL = mySQL & " 20 AS lvlQ2," '6 Questions mySQL = mySQL & " Encoder(""admin"") AS lvlAnsr2," mySQL = mySQL & " 20 AS lvlQ3," '6 Questions mySQL = mySQL & " Encoder(""managaer"") AS lvlAnsr3," mySQL = mySQL & " Encoder(""admin@admin.com"") AS Umail;" 'Debug.Print mySQL DoCmd.SetWarnings False DoCmd.RunSQL mySQL DoCmd.SetWarnings True
  24. ابو جودي
    3c21ccd9ad6561752205bd276739c4e4.jpg
  25. ابو جودي
    تلك الكلمات تجهلنى استخدم هذه الطريقة ان شاء الله وانا مطمئن
×
×
  • اضف...

Important Information

  I accept