jjafferr

وعليكم السلام بعد إذن أخي ابوخليل عملت زر في النموذج ، اسمه cmd_Filled_Fields ، وهذه نتيجة حدث الضغط على الزر: . وهذا كود الحدث: Private Sub cmd_Filled_Fields_Click() Dim rst As DAO.Recordset Dim fld As Field Dim f As String Set rst = CurrentDb.OpenRecordset("Select * From testq") rst.MoveFirst Counter = 0 f = "" For Each fld In rst.Fields If Len(fld.Value & "") <> 0 Then Counter = Counter + 1 f = f & ", " & fld.Name End If Next MsgBox Counter & vbCrLf & "ÍÞæá ÝíåÇ ÈíÇäÇÊ¡ æåí" & vbCrLf & Mid(f, 3) End Sub . جعفر

وعليكم السلام اخي كريمو بدل هذا السطر Me.DiscountEndDate = DateSerial(Year(Me.DiscountEndDate), Month(Me.DiscountEndDate), 1) استعمل Me.DiscountEndDate = DateSerial(Year(Me.DiscountEndDate), Month(Me.DiscountEndDate), 0) . جعفر

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

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

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

وعليكم السلام أخي سامي شروط المنتدى لا تسمح بوضع أكثر من سؤال في الموضوع. لذا ممكن نتابع السؤال في موضوعك : جعفر

وعليكم السلام اهلا وسهلا بك في المنتدى اذا كان امتداد البرنامج mde او accde ، فلا يمكن التعديل ، اثناء البرنامج مغلق ، امسك مفتاح الشفت انقر على البرنامج مرتين ، واستمر في الضغط على الشفت الى ان يفتح البرنامج ، وسيكون في وضع تستطيع التغيير فيه جعفر

وعليكم السلام بدل ان نعمل الالوان في الكود ، استبدلت مربع النص ، بأحد كائنات الاكسس التي بها الوان ، ولكني تحكمت بالالوان: الجدول اصبح ، ولاحظ اني استعملت الموقف رقم 1 و 11: . النموذج ، والكائن الجديد ، وطريقة اختيار الالوان: . والنتيجة: . جعفر 532.MAP PARING.accdb.zip

وعليكم السلام قيمة الحقل: . ثم مجموع الحقل: . والنتيجة: . جعفر 531.قيمة غير صحيحة.accdb.zip

السلام عليكم هذا الاستعلام ألالحاقي Edit2Query ، الحقول في المربع الاحمر موجودة في الجدول tblEdits2 (الزامي) بينما الحقول في المربع الازرق ليس الزاميا ان تكون من الجدول Transactions ، . وبالنظر الى الحقول في المربع الازرق ، ارى انك تأخذ البيانات من النموذج الفرعي مباشرة ، لهذا السبب يجب عليك حذف الجدول Transactions من الاستعلام (وهذا سبب مشكلتك) عدد السجلات التي يتم الحاقها هو عدد السجلات الموجودة في الجدول Transactions والطريقة الاخرى : . جعفر

.

وعليكم السلام اولا ، يجب ان نأخذ القيمة المختارة من الحقل مباشرة بعد اختيارها ، وقبل الذهاب الى اي كائن آخر ، ويمكننا عمل هذا بعد رفع الفأرة من الحقل الذي تم اختيار النص فيه ، اسم الحقل الذي فيه الجزء المختار من النص هو fName ، ونريد نسخه الى الحقل Copied ، هناك طريقتين: 1. نسخ مباشر الى الحقل التالي ، 2. نسخ الى حافظة الوندوز ، والصاقها في اي مكان آخر Option Compare Database Public Selected_Text Private Sub fName_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) On Error Resume Next '1 Selected_Text = Me.fName.SelText '2 ' DoCmd.RunCommand acCmdCopy End Sub Private Sub cmd_Copy_Click() '1 Me.Copied = Selected_Text '2 ' Me.Copied.SetFocus ' DoCmd.RunCommand acCmdPaste End Sub . جعفر 530.Copy_Selecter_Partial.mdb.zip

وعليكم السلام اي جدول كان مرتبط؟ وماذا يجب ان نعمل لنرى الذي رأيته انت؟ جعفر

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

المعذرة أستاذ علي ، هل لازلت تريد ان نواصل العمل من حيث توقفنا ، وما الذي تريده الان؟ جعفر

. هذا الرابط لجميع الاصدارات ، ولكن فكرة العمل هي كما شرحها الاستاذ صالح ، بتغيير بسيط: . جعفر

وعليكم السلام 1. اعطنا مثال على طلبك ، وبالتفصيل ، 2. ثم ماذا تريد ان تفعل بالجزء الذي تم نسخه؟ جعفر

السلام عليكم اذا فهمت قصدك صح ، فأنتي تريدين اضافة زر ليحدد الثلاثة اشهر على تاريخ البدء !! طريقة العمل: اذا اخترتي زر 3 اشهر ، فتلقائيا يضيف 3 اشهر على "من تاريخ" ويضع النتيجة في "الى تاريخ" ، اذا كانت خانت 3 اشهر فيها صح ، وتم تغيير "من تاريخ" ، فتلقائيا سيتغير "الى تاريخ" بثلاثة اشهر ، اذا غيرتي في "الى تاريخ" ، فسيزيل على الصح من زر 3 اشهر: . هذه اكواد 1 و 2 و 3 اعلاه: Private Sub chk_3_months_Click() '1 If Me.chk_3_months = -1 And Len(Me.Date_From & "") <> 0 Then Me.Date_To = DateAdd("m", 3, Me.Date_From) End If End Sub Private Sub Date_From_AfterUpdate() '2 If Me.chk_3_months = -1 And Len(Me.Date_From & "") <> 0 Then Me.Date_To = DateAdd("m", 3, Me.Date_From) End If End Sub Private Sub Date_To_AfterUpdate() '3 If Len(Me.Date_To & "") <> 0 Then Me.chk_3_months = 0 End If End Sub والنموذج يعمل كما كان سابقا جعفر 527.1.مثال 5.accdb.zip

عفوا ما فهمت اعملي التغيير على المرفق ، واعطيني مثال من البرنامج جعفر

جربي المرفق واخبرينا عن النتائج جعفر

تفضل الكود على حدث نقر زر "تفعيل خانة الاختيار في النموذج الفرعي": Dim rst As DAO.Recordset Set rst = Me.ORDER.Form.RecordsetClone rst.MoveLast: rst.MoveFirst RC = rst.RecordCount What_Was_The_First_Selection = rst!Do For i = 1 To RC rst.Edit rst!Do = Not What_Was_The_First_Selection rst.Update rst.MoveNext Next i rst.Close: Set rst = Nothing جعفر 528.CHECK BOX.accdb.zip

وعليكم السلام أخي محمد هذا ما قاله صاحب الموضوع: و جعفر

تفضلي 1. عملنا نموذج فيه التاريخ من/الى ، 2. عملنا استعلام مجموعي ، لحساب عدد الغياب فقط بين التاريخين ، والموظف الذي يملك عدد غياب اكبر من يومين ، يتم ارسال اسمه الى الوحدة النمطية Check_Abs . تقوم الوحدة النمطية بمقارنة اليوم rst!Date ، باليوم السابق + يوم (DateAdd("d", 1, Prev_Date)، واذا كانت النتيجة متساوية ، يقوم العداد Seq بجمع الايام ، Function Check_Abs(EN) 'EN = Employee Name Dim rst As DAO.Recordset fD = [Forms]![frm_Days]![Date_From] eD = [Forms]![frm_Days]![Date_To] myCriteria = "[Emp_Name]='" & EN & "'" myCriteria = myCriteria & " And [Leave_Type]='غياب'" myCriteria = myCriteria & " And [Date] Between " & DateFormat(fD) & " And " & DateFormat(eD) 'Set rst = CurrentDb.OpenRecordset("Select * From Enterans_Absent Where [Emp_Name]='" & EN & "' And [Leave_Type]='غياب' And [Date] Between '" & DateFormat(fD) & "' And '" & DateFormat(eD) & "'") Set rst = CurrentDb.OpenRecordset("Select * From Enterans_Absent Where " & myCriteria & " Order by [Date]") rst.MoveLast: rst.MoveFirst RC = rst.RecordCount Seq = 1 Prev_Date = rst![Date] For i = 1 To RC If rst![Date] = DateAdd("d", 1, Prev_Date) Then Seq = Seq + 1 End If Prev_Date = rst![Date] rst.MoveNext Next i If Seq >= 3 Then Check_Abs = Seq & " ايام متتالية" Else Check_Abs = RC & " ايام غير متتالية" End If rst.Close: Set rst = Nothing End Function . والنتيجة: . جعفر 527.مثال 5.accdb.zip

وعليكم السلام اختي لوسمحتي تعطينا معلومات اكثر عن طلبك: 1. هل سوف تطلبين البيانات بين تاريخين؟ 2. اذا كان جوابك نعم ، واذا طلبتي البيانات لفترة شهر مثلا ، وكان هناك 3 ايام غياب متتايه ولكن لأكثر من مرة ، فماذا تريدين شكل رسالة التنبيه؟ 3. كم عدد الموظفين جميعا تقريبا؟ جعفر

السلام عليكم أخي صالح هذه المعلومة تقريبا صحيحة ، والصحيح 1 سم يساوي 567 وحدة تويب ، ولكن يجب عليك الحذر ، حيث ان 1 بوصة Inch يساوي 1440 تويب ، مثلا: عند عملك البرنامج ، وتريد ان تأخذ قيمة عرض الحقل (مثلا) وتتلاعب به ، فمن المهم ان تعرف ان هذه القيمة بالسنتيمتر او البوصة (لا تنسى ان لكل كمبيوتر تنصيب يختلف عن الآخر ، وبحسب الدولة التي هو فيها كذلك) انا استعمل الوحدة النمطية التالية لأحصل على بعض معلومات الكمبيوتر ، منها وحدة القياس: Option Compare Database ' This code was originally written by Dev Ashish. ' It is not to be altered or distributed, ' except as part of an application. ' You are free to use it in any application, ' provided the copyright notice is left unchanged. ' ' Code Courtesy of ' Dev Ashish ' Public Const LOCALE_ILANGUAGE = &H1 ' language id Public Const LOCALE_SLANGUAGE = &H2 ' localized name of language Public Const LOCALE_SENGLANGUAGE = &H1001 ' English name of language Public Const LOCALE_SABBREVLANGNAME = &H3 ' abbreviated language name Public Const LOCALE_SNATIVELANGNAME = &H4 ' native name of language Public Const LOCALE_ICOUNTRY = &H5 ' country code Public Const LOCALE_SCOUNTRY = &H6 ' localized name of country Public Const LOCALE_SENGCOUNTRY = &H1002 ' English name of country Public Const LOCALE_SABBREVCTRYNAME = &H7 ' abbreviated country name Public Const LOCALE_SNATIVECTRYNAME = &H8 ' native name of country Public Const LOCALE_IDEFAULTLANGUAGE = &H9 ' default language id Public Const LOCALE_IDEFAULTCOUNTRY = &HA ' default country code Public Const LOCALE_IDEFAULTCODEPAGE = &HB ' default code page Public Const LOCALE_SLIST = &HC ' list item separator Public Const LOCALE_IMEASURE = &HD ' 0 = metric, 1 = US Public Const LOCALE_SDECIMAL = &HE ' decimal separator Public Const LOCALE_STHOUSAND = &HF ' thousand separator Public Const LOCALE_SGROUPING = &H10 ' digit grouping Public Const LOCALE_IDIGITS = &H11 ' number of fractional digits Public Const LOCALE_ILZERO = &H12 ' leading zeros for decimal Public Const LOCALE_SNATIVEDIGITS = &H13 ' native ascii 0-9 Public Const LOCALE_SCURRENCY = &H14 ' local monetary symbol Public Const LOCALE_SINTLSYMBOL = &H15 ' intl monetary symbol Public Const LOCALE_SMONDECIMALSEP = &H16 ' monetary decimal separator Public Const LOCALE_SMONTHOUSANDSEP = &H17 ' monetary thousand separator Public Const LOCALE_SMONGROUPING = &H18 ' monetary grouping Public Const LOCALE_ICURRDIGITS = &H19 ' # local monetary digits Public Const LOCALE_IINTLCURRDIGITS = &H1A ' # intl monetary digits Public Const LOCALE_ICURRENCY = &H1B ' positive currency mode Public Const LOCALE_INEGCURR = &H1C ' negative currency mode Public Const LOCALE_SDATE = &H1D ' date separator Public Const LOCALE_STIME = &H1E ' time separator Public Const LOCALE_SSHORTDATE = &H1F ' short date format string Public Const LOCALE_SLONGDATE = &H20 ' long date format string Public Const LOCALE_STIMEFORMAT = &H1003 ' time format string Public Const LOCALE_IDATE = &H21 ' short date format ordering Public Const LOCALE_ILDATE = &H22 ' long date format ordering Public Const LOCALE_ITIME = &H23 ' time format specifier Public Const LOCALE_ICENTURY = &H24 ' century format specifier Public Const LOCALE_ITLZERO = &H25 ' leading zeros in time field Public Const LOCALE_IDAYLZERO = &H26 ' leading zeros in day field Public Const LOCALE_IMONLZERO = &H27 ' leading zeros in month field Public Const LOCALE_S1159 = &H28 ' AM designator Public Const LOCALE_S2359 = &H29 ' PM designator Public Const LOCALE_SDAYNAME1 = &H2A ' long name for Monday Public Const LOCALE_SDAYNAME2 = &H2B ' long name for Tuesday Public Const LOCALE_SDAYNAME3 = &H2C ' long name for Wednesday Public Const LOCALE_SDAYNAME4 = &H2D ' long name for Thursday Public Const LOCALE_SDAYNAME5 = &H2E ' long name for Friday Public Const LOCALE_SDAYNAME6 = &H2F ' long name for Saturday Public Const LOCALE_SDAYNAME7 = &H30 ' long name for Sunday Public Const LOCALE_SABBREVDAYNAME1 = &H31 ' abbreviated name for Monday Public Const LOCALE_SABBREVDAYNAME2 = &H32 ' abbreviated name for Tuesday Public Const LOCALE_SABBREVDAYNAME3 = &H33 ' abbreviated name for Wednesday Public Const LOCALE_SABBREVDAYNAME4 = &H34 ' abbreviated name for Thursday Public Const LOCALE_SABBREVDAYNAME5 = &H35 ' abbreviated name for Friday Public Const LOCALE_SABBREVDAYNAME6 = &H36 ' abbreviated name for Saturday Public Const LOCALE_SABBREVDAYNAME7 = &H37 ' abbreviated name for Sunday Public Const LOCALE_SMONTHNAME1 = &H38 ' long name for January Public Const LOCALE_SMONTHNAME2 = &H39 ' long name for February Public Const LOCALE_SMONTHNAME3 = &H3A ' long name for March Public Const LOCALE_SMONTHNAME4 = &H3B ' long name for April Public Const LOCALE_SMONTHNAME5 = &H3C ' long name for May Public Const LOCALE_SMONTHNAME6 = &H3D ' long name for June Public Const LOCALE_SMONTHNAME7 = &H3E ' long name for July Public Const LOCALE_SMONTHNAME8 = &H3F ' long name for August Public Const LOCALE_SMONTHNAME9 = &H40 ' long name for September Public Const LOCALE_SMONTHNAME10 = &H41 ' long name for October Public Const LOCALE_SMONTHNAME11 = &H42 ' long name for November Public Const LOCALE_SMONTHNAME12 = &H43 ' long name for December Public Const LOCALE_SABBREVMONTHNAME1 = &H44 ' abbreviated name for January Public Const LOCALE_SABBREVMONTHNAME2 = &H45 ' abbreviated name for February Public Const LOCALE_SABBREVMONTHNAME3 = &H46 ' abbreviated name for March Public Const LOCALE_SABBREVMONTHNAME4 = &H47 ' abbreviated name for April Public Const LOCALE_SABBREVMONTHNAME5 = &H48 ' abbreviated name for May Public Const LOCALE_SABBREVMONTHNAME6 = &H49 ' abbreviated name for June Public Const LOCALE_SABBREVMONTHNAME7 = &H4A ' abbreviated name for July Public Const LOCALE_SABBREVMONTHNAME8 = &H4B ' abbreviated name for August Public Const LOCALE_SABBREVMONTHNAME9 = &H4C ' abbreviated name for September Public Const LOCALE_SABBREVMONTHNAME10 = &H4D ' abbreviated name for October Public Const LOCALE_SABBREVMONTHNAME11 = &H4E ' abbreviated name for November Public Const LOCALE_SABBREVMONTHNAME12 = &H4F ' abbreviated name for December Public Const LOCALE_SABBREVMONTHNAME13 = &H100F Public Const LOCALE_SYSTEM_DEFAULT& = &H800 Public Const LOCALE_USER_DEFAULT& = &H400 Const cMAXLEN = 255 Private Declare Function apiGetLocaleInfo Lib "kernel32" _ Alias "GetLocaleInfoA" (ByVal Locale As Long, _ ByVal LCType As Long, ByVal lpLCData As String, _ ByVal cchData As Long) As Long '''' Function CountryName() As String Dim lngLocale As Long Dim strLCData As String, lngData As Long Dim lngX As Long strLCData = String$(cMAXLEN, 0) lngData = cMAXLEN - 1 lngX = GetLocaleInfo(LOCALE_USER_DEFAULT, LOCALE_SCOUNTRY, strLCData, lngData) If lngX <> 0 Then CountryName = Left$(strLCData, lngX - 1) End If End Function '''' Function fLocaleInfo(lngLCType As Long) As String Dim lngLocale As Long Dim strLCData As String, lngData As Long Dim lngX As Long strLCData = String$(cMAXLEN, 0) lngData = cMAXLEN - 1 lngX = apiGetLocaleInfo(LOCALE_USER_DEFAULT, lngLCType, _ strLCData, lngData) If lngX <> 0 Then fLocaleInfo = Left$(strLCData, lngX - 1) End If End Function Function fLOCALE_IMEASURE() As String ' 0 = metric, 1 = US Dim lngLocale As Long Dim strLCData As String, lngData As Long Dim lngX As Long strLCData = String$(cMAXLEN, 0) lngData = cMAXLEN - 1 lngX = apiGetLocaleInfo(LOCALE_USER_DEFAULT, LOCALE_IMEASURE, _ strLCData, lngData) If lngX <> 0 Then fLOCALE_IMEASURE = Left$(strLCData, lngX - 1) End If End Function . وطريقة استخدامي لوحدة القياس في النموذج هكذا: 'call the function to Get the Unit of Measurment from Windows Regional Measurment If fLOCALE_IMEASURE = 0 Then '0 = metric t = 567 Else '1 = US t = 1440 End If . جعفر