اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

ابو جودي

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

  • Posts

    6,833

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

  • Days Won

    187

 نوع المحتوي 

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

  1. ابو جودي
    استاذى الجليل ومعلمى القدير و والدى الحبيب استاذ @jjafferr انا اسف جدا جدا جدا جدا جدا وعلى استحياء منكم اقدم خالص اعتذارى لتعبكم ومجهودكم ولكن استاذى لو احببت تحويل الكود الى روتين عام بنفس هيئته لفعلتها ولكن لم اقصد ذلك انا اقصد الحاق بيانات من الى الجدول من هلال كود مرن بنفس الالية فقط مثل هذا السطر rs.Fields(ctl.Name) = ctl.Value مهما كان اسم الحقل ومهما كان اسم العنصر فى النموذج يتم اضافة البيانات ولكن انا احببت ان يكون الكود من خلال استعلام ديناميكى على طريقتم واتيت بالكود لاننى اريد ان يتم الالحاف على نفس المنهج فقط ولكن لم اقصد تحويل الكود بعينه وبمسمياته
  2. ابو جودي
    تنويه هام ـــــــــــــــــــــ تم تعديل المرفق والكود والشرح بناء على تعليمات وتوجيهات استاذى الجليل ومعلمى القدير و والدى الاستاذ @jjafferr الله لا يحرمنا منكم استاذى الجليل
  3. ابو جودي
    الله يسعدك استأذى الجليل فاكهة المنتدى مرة واحدة الله يرضى عنك ويرضيك خد بالك اللى يبالغ كثير ينسى الاكواد انت حر صدقنى انا خايف ع الاكواد .. اقصد عليك
  4. ابو جودي
    أستاذي الجليل ومعلمي القدير و والدى الحبيب الأستاذ @jjafferr تحية طيبة مباركة أولا : اشكر حضرتك على توضيح المعلومة والتصحيح واخصكم بالشكر لبالغ كرمكم انكم حاولتم إرشادي في رسالة خاصة على اعتبار اللقب مثلا الذى أهدتني إياه إدارة المنتديات وكان بالغ كرم من سيادتكم ان توجيهي قد يقلل من شأني أو يزعجني. سيدى الجليل والله كونى طالب علم وانهل من ربوع وبحور علمك هو اعلى وسام و تقدير قد احصل عليه يوما وبالنسبة لي تلك اعلى المراتب ولا أتمنى غيرها اقسم بالله لو قابلتكم الان لقبلت ارجلكم قبل اياديكم وهذا اقل حقوكم على أدامكم الله روح طيبة تسكن القلوب .. ووجه باسم ترتاح له العيون .. ونفس مطمئنة تمتلك النفوس .. وأسأله عز وجل أن يعطيكم من عطــاياه ويمنحكم عفوه ورضاه ويغفر لكم من عمركم ما مضى ويقدر لكم الخير فيما أتى .. وأن يجعل السعادة رفيقتكم في الدنيا والآخرة.. اللهم آمين. ــــــــــــــــــــــــــــــــــــ الان بخصوص تلك الجزئية هي جديدة على بكل صراحة فلم اتعمق او أحاول في اعدادات الاكسس ولكن غيرت الاعدادات ولم يحصل شيء المشكلة التي وضعتني فيها حضرتك الان أنى كنت انوى استخدام التاج في روتين عام اخر لإضافة البيانات من النموذج الى الجدول طبعا ممكن حذ يسأل طيب ليه التاج في ادراج البيانات لان أحيانا نضع مربعات نص مخفية مثلا لإجراء معين ولا نريد الحاق القيم منها الى حقول الجدول وبالكود الموجود في الروتين سوف تحدث مشكلة لا تقلقل سوف افكر في حل ما وليكن عمل التاج من نصفين وفصل كل نص وتبعا للقيم يتم عمل الكود من خلال الروتين وطبعا لابد من الفصل من بين الحقول الاجبارية والتي قد لا تكون كلها اجبارية وبين الحقول التي نريد تعبئة البيانات منها والتي كذلك قد لا تكون كل البيانات من كل الحقول اعرف انا انسان معقد واهتم كثيرا بتفاصيل دقيقة وصغيرة قد تخنق أحيانا
  5. ابو جودي
    يا عينى ع الدلع استاذى الجليل استحييت ان اقوم بالتعديل ولكن والله فكرت بها كذلك كا تفضلتم واكتفيت بوضع اقل الحلول بساطة على خطاكم هههههههههه لان ترانى انا انسان معقد اهوى الحلول الصعبة
  6. ابو جودي
    عنوان الموضوع : كيفية الكتابة على قيم في الاستعلام وحضرتك طلبت وطلبت انا بصراحة صيرت ما افهم شئ وغير قادر على محاولة الفهم حتى
  7. ابو جودي
    طيب لا يمكن تعديل القيم فى الاستعلام لان القيم 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
  8. ابو جودي
    اتفضل يا سيدى ex.accdb
  9. ابو جودي
    الكود شغال تمام فقط جرب '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
  10. ابو جودي
    بيانات اجبارية التحقق من استكمالها قبل الحفظ
  11. ابو جودي
    السلام عليكم ورحمة الله تعالى وبركاته يسأل البعض عن عدم حفظ البيانات الإ بإستكمال الحقول المطلوبة يمكن ذلك من خلال الفكرة الاتية ولكن بشرط اسم العنصر المطلوب ( الاجبارى) يجب وضع الرمز * فى الـ 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
  12. ابو جودي
    استاذى الجليل ومعملى القدير و والدى الحبيب استاذ @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
  13. ابو جودي
    3c21ccd9ad6561752205bd276739c4e4.jpg
  14. ابو جودي
    تلك الكلمات تجهلنى استخدم هذه الطريقة ان شاء الله وانا مطمئن
  15. ابو جودي
    اتغضل فى المرفق الطريقتين التقليدية من خلال زر امر لكل ترتيب نريد عمله والطريقة الذكية كما اسميتها من خلال نقرتين على العنوان لكل حقل من خلال موديول والشرح هنا يا افندم DATA1041-5 (6).mdb
  16. ابو جودي
    احبكم فى الله لطفا ما اسم النموذج كما سميته حضرتك فى المرفق الله يرضى عليك وحاول الله يرضى عليك بعد ذلك وضه مرفق لا يحتوى على تطبيق كامل فقط مرفق بسيط يتم الاجابة عليه بسهوله
  17. ابو جودي
    لطفا اين تريد وضع كود الترتيب فى نموذج
  18. ابو جودي
    هات مرفق
  19. ابو جودي
    لا يمكن ذلك لان الكود يدرج القيم تبعا لنوع الحقل حتما سوف يحدث خطأ فى تلك الحالة ولن يستكمل ادارج البيانات ..لم اجرب ولكن ذلك ما سوف يحدث وبالفعل تلك نتيجة التجربة لم يتم الاستمرار بملئ بيانات الحقول وتم اجهاض العملية نتيجة خطأ وهو اضافة نوع بيانات مختلف عن النوع المخصص للحقل فى الجدول
  20. ابو جودي
    عندى استفسار من فضلك استاذى الجليل ومعلمى القدير و والدى الحبيب استاذ @jjafferr بخصوص الية ملئ عدة حقول كثرت او قلت فى جدول ما من خلال روتين عام تلك الفكرة هى ما درات بخلدى ما رأيكم بها استاذى ؟! هل هى مرنة ؟ هل قد نواجه بسببها مشاكل مستقبلا ؟! هل هناك طريقة او فكرة افضل من تلك
  21. ابو جودي
    هلا والله وميت مليون هلا استاذى الجليل ومعلمى القدير و والدى الحبيب استاذ @jjafferr والله فعلا انا عن نفسي احس بالانس وبالامان بوجودكم فى المنتدى لانه بفضل الله تعالى ثم انتم لكل مشكلة حل أدامكم الله روح طيبة تسكن القلوب .. ووجه باسم ترتاح له العيون .. ونفس مطمئنة تمتلك النفوس .. وأسأله عز وجل أن يعطيكم من عطــاياه ويمنحكم عفوه ورضاه ويغفر لكم من عمركم ما مضى ويقدر لكم الخير فيما أتى .. وأن يجعل السعادة رفيقتكم في الدنيا والآخره.. اللهم آمين.
  22. ابو جودي
    سؤال عن اضاقة قيم من نموذج غير منضم الى حقول فى جدول من خلال Recordset.AddNew الطريقة التقليدية اعلمها ولكن احاول عمل Function يسهل العملية وتدور فكرتى باستدعاء الكود كالاتى Call ApendData("Table Name", "Field Name On Table", Object Name On Form) وهذه الاكواد التى استخدمتها فى الموديول Sub ApendData(ByVal strTableName As String, ByVal strFieldName As String, ByVal strObjectName As String) Dim db As DAO.Database Dim rs As DAO.Recordset Set db = CurrentDb() Set rs = CurrentDb().OpenRecordset(strTableName) rs.AddNew rs.Fields(strFieldName) = "" & strObjectName & "" rs.Update rs.Close End Sub ولكن المشكلة انه تم اضافة البيانات فى اكصر من سجل حسبب عدد الحقول وبيانات كل حقل قى سجل المفروض ان يتم تسجيل كافة بيانات الحقول فى سدل واحد كيف يمكن عمل ذلك المرفق ApendDataByRecordset.mdb
  23. ابو جودي
    التعديل حسب فهمى لطلبك لو تقصد غير ذلك انذاك سوف تحتاج ان تقدم تفسيرا مفصلا لطلبك cnbo (1).accdb
  24. ابو جودي
    القيم هنا تأتى من جدول tbl_Cat4 انت فقط محتاج تصمم نموذج مصدر بياناته هذا الجدول tbl_Cat4 ليس الا اما بالنسبة لتلك الجزئية انت فقط تحتاج تصميم نموذج مصدر بياناته الجدول file-1
  25. ابو جودي
    مربع اختيار غير منضم فى نموذج مستمر
×
×
  • اضف...

Important Information

  I accept