بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
نجوم المشاركات
Popular Content
Showing content with the highest reputation on 12 ديس, 2021 in all areas
-
السلام عليكم ورحمة الله ضف هذه العبارة الى اخر سطر فى الكود المسمى TraData ws.Range("A1:K50").ClearContents2 points
-
2 points
-
اكتب الى اخوتى محترفى برنامج ميكرو سوفت اكسس والاكسيس له تاريخ عريق ف البرمجه وما زال مستمر ولكن لي استفسار وسؤال لاساتذتى محترفي الاكسس كيف يمكنني انشاء وجهات ديناميكيه وقوائم جانبيه منسدله و منزلقه لليمين جذابه وهل يمكن عملها باستخدام الماكرو اى بدون كتابه تعليمات فيجوال كثيره وتضيف شكل جذاب للبرنامج كما ف المثالين المرفقين ولكم منى جزيل الشكر1 point
-
1 point
-
من خلال المنتدي الجميل عايز اوجه شكر للاخ العزيز د.كاف يار بالفعل هذا الرجل لا يتأخر عن طلب اي شئ طالما كان في استطاعته ودائما نستفيد منه جميعا وهو لا يبخل بأي معلومه وذلك عن تجربه شخصيه ربنا يجعله في ميزان حسناتك ويكرمك ويجعلك عونا لاخوانك يارب1 point
-
السلام عليكم 🙂 هذه الوحدة النمطية تقوم بإدخال القيم مربع التحرير والسرد Head_1 ، الدالة List_Table_Fields تأخذ مسمى الحقل الذي في الجدول ، واذا لم يكن هناك مسمى ، فتقوم بوضع اسم الحقل ، ويتم إضافة عمودين لمربع التحرير والسرد Head_1 ، الاول اسم الحقل (وعرضه صفر حتى لا يظهر في القائمة) ، والآخر مسمى الحقل (والذي يظهر في القائمة) : Public Function List_Table_Fields(cmb As ComboBox) As String On Error GoTo err_List_Table_Fields Dim tbdf As TableDef Dim fld As DAO.Field Dim iField_Caption As String Dim Field_Type As String For Each tbdf In CurrentDb.TableDefs If tbdf.Name = "Stu_select" Then For Each fld In tbdf.Fields iField_Caption = fld.Properties("Caption") Field_Type = DataType_Fields(fld.Type) 'fListseparator is from Regional setting, list separator 'add the items for the ComboBox Row Source cmb.AddItem fld.Name & fListseparator & iField_Caption 'Debug.Print tbdf.Name & vbTab & fld.Name & vbTab & Field_Type & vbTab & iField_Caption Next fld End If Next tbdf Exit_List_Table_Fields: Set tbdf = Nothing: Set fld = Nothing Exit Function err_List_Table_Fields: If Err.Number = 3270 Then 'this field does not have a caption for it, give it the field name iField_Caption = fld.Name Resume Next Else MsgBox Err.Number & vbCrLf & Err.Description End If End Function Public Function DataType_Fields(DF) Select Case DF 'Case 4 ' DataType_Fields = "AutoNumber" Case 10 DataType_Fields = "Text" Case 12 DataType_Fields = "Memo" Case 4 DataType_Fields = "LongInt" Case 2 DataType_Fields = "Byte" Case 3 DataType_Fields = "Integer" Case 6 DataType_Fields = "Single" Case 7 DataType_Fields = "Double" Case 15 DataType_Fields = "Replication" Case 8 DataType_Fields = "DateTime" Case 5 DataType_Fields = "Currency" Case 1 DataType_Fields = "YesNo" Case 11 DataType_Fields = "OLEObject" Case 12 DataType_Fields = "Hyperlink" Case 101 DataType_Fields = "Attachment" End Select End Function . ولا عليك من الدالة DataType_Fields ، فوضعتها هنا حتى يكون موضوع حقول الجدول متكامل 🙂 اما الوحدة النمطية fRegional_Settings_info ، فمنها اخذت الفارزة بين قيم مصدر بيانات السطر Head_1 ، ويتم اخذ القيمة من اعدادات الوندوز ، فالنظام الامريكي يستخدم الفاصلة ([كود التلميذ], [الصف], [النوع]) ، بينما النظام العربي يستخدم الفاصلة المنقوطة ([كود التلميذ]; [الصف]; [النوع]) Option Compare Database Option Explicit ' 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 PtrSafe 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 = apiGetLocaleInfo(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 Function fListseparator() 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, LOCALE_SLIST, strLCData, lngData) If lngX <> 0 Then fListseparator = Left$(strLCData, lngX - 1) End If End Function . فعند حدث "تحميل النموذج" يتم اضافة اسماء ومسميات الحقول Call List_Table_Fields(Head_1) فتظهر هكذا . وعند حدث "عند التركيز" على مربع تحرير وسرد text_1 يتم عمل كود بيانات صفه : Private Sub text_1_GotFocus() Me.text_1.RowSource = "SELECT " & Me.Head_1 & " FROM Stu_select WHERE stu_code='" & Me.stu_code & "'" End Sub . الى الآن وكل شيء تمام 🙂 ولكن ، ولأن الحقل text_1 غير مرتبط بحقل في الجدول ، فأي قيمة تختارها له ، فإنها ستنطبق على بقية سجلات النموذج المستمر ، . فيجب عليك معرفة ماذا تريد عمله هنا 🙂 جعفر 1425.تحديد عناصر قائمة منسدلة وربطها بأخري.accdb.zip1 point
-
اتقدم بالشكر والعرفان الي الدكتور كاف يار @د.كاف يار علي مساعدته واسال الله العظيم ان يبارك فيه ويزيده من فضلة كما اتقدم بالشكر والعرفان الي جميع الاصدقاء الذين يقدمون الدعم واسال الله ان يبارك فيهم ويحفظهم بصراحة حاجة عظيمة جدا وفخور جدا اني متواجد علي هذا الموقع وشكراً لكم جميعا1 point
-
1 point
-
1 point
-
للحصول على النتيجة الصحيحة يجب العد بنفس شروط الرسم مثلا رسمت الدوائر على الخلايا التي مجموعها أقل من 50 من 100 نستعمل معادلة countif وإذا كان العد بأكثر من شرط نستعمل countifs بالتوفيق1 point
-
1 point
-
السلام عليكم ورحمة الله فى البداية اعتذر لان الكود السابق به خلل و قد تظهر مشاكله لاحقا لذا ارجو ان تستبدل الكود السابق بما يلى اولا يجب ربط الزر (زر الترحيل) بالكود التالى Sub AddSheet() Dim ws As Worksheet, Obj As Object Dim Itm As Variant, C As Range Dim x As Integer Set ws = Sheets("يناير ") Set Obj = CreateObject("Scripting.Dictionary") Set C = ws.Range("J3") x = VBA.Day(C.Value) If Not Obj.exists(x) Then Obj.Add x, x End If For Each Itm In Obj.keys If Not ShExists(Obj(Itm)) Then Sheets.Add(After:=Sheets(Sheets.Count)).Name = Itm End If Next Call TraData End Sub ثانيا نسخ ولصق الكود و الدالة المعرفة التاليين فى موديول مستقل داخل الملف ايضا ولا تربط ايا منهما بأى زر الكود هو Sub TraData() Dim ws As Worksheet, Sh As Worksheet Dim LR As Long, ShName Set ws = Sheets("يناير ") ShName = Day(ws.Range("J3")) ws.Range("A1:K50").Copy For Each Sh In Worksheets If Sh.Name = ShName Then Sh.Range("A1").Select Selection.PasteSpecial xlPasteAll Selection.PasteSpecial xlPasteColumnWidths End If Next Application.CutCopyMode = False End Sub و الدالة هى Function ShExists(ShNam As String, Optional WB As Workbook) As Boolean Dim Sh As Worksheet If WB Is Nothing Then Set WB = ThisWorkbook On Error Resume Next Set Sh = WB.Sheets(ShNam) On Error GoTo 0 ShExists = Not Sh Is Nothing End Function و غدا ان شاء الله كود مسح البيانات السابقة ان كان فى العمر بقية1 point
-
1 point
-
السلام عليكم ورحمة الله استخدم هذا الكود Sub TraData() Dim ws As Worksheet, Sh As Worksheet Dim LR As Long, ShName Set ws = Sheets("يناير ") ShName = Day(ws.Range("J3")) ws.Range("A1:K50").Copy On Error Resume Next If Len(Trim(ShName)) > 0 Then If Len(Sheets(ShName).Name) = 0 Then Sheets.Add(after:=Sheets(Sheets.Count)).Name = ShName End If End If Sheets(ShName).Range("A1").Select Selection.PasteSpecial xlPasteAll Selection.PasteSpecial xlPasteColumnWidths Application.CutCopyMode = False End Sub1 point
-
1 point
-
وعليكم السلام ورحمه الله وبركاته استخدم هذه المعادله وستفي بالمطلوب ان شاء الله =COUNTIF(D3:D22,"<>"&$D$1)1 point
-
في الواقع انا اتعمد ان اجعل الكود سلس وبسيط ومقسّم الى عدة اسطر ، وذلك لهدف ان تكون البرمجه مرنه لتغييرات المبرمج ، واحاول الابتعاد عن اختزال الكود قدر المستطاع 🙂 بالنسبة لإختيار السجلات في جملة Where ، عندك عدة اختيارات ، منها مربع الاختيار (نعم/لا) ، ومنها اي حقل له رقم/قيمة فريدة تدل على السجل ، لهذا السبب ، ترى اني استخدمت النوعين معا ، فبالاضافة الى قيم الحقل TNO (في مصفوفة في الكود) ، فقد قمت بإختيار مربع الاختيار MoveX (في الجدول) كذلك ، ويمكنك استعمال النوعين خارج النموذج ، وحتى عند اغلاق النموذج ، فقيمة TempVars!tmpVars_DoIn تكون موجودة طوال فترة عمل البرنامج ، الى ان يتم غلق البرنامج ، او اعطاء قيمة اخرى للمتغير ، او حذف بياناته. جعفر1 point
-
1 point
-
1 point
-
تفضل 🙂 لا نستخدم الزر ، وانما نستخدم زر مسك الفأرة : Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) 'https://stackoverflow.com/a/1670110 'https://stackoverflow.com/a/18793073 'Me.SelHeight = to specify or determine the number of selected rows 'Me.SelTop = to specify or determine which row (record) is topmost in the current selection Dim i As Integer Dim rst As dao.Recordset Set rst = Me.RecordsetClone If Me.SelHeight = 0 Then Exit Sub rst.MoveFirst ' Move to the first selected record. rst.Move Me.SelTop - 1 'its slow to refresh, so don't show it Me.Painting = False For i = 1 To Me.SelHeight rst.Edit rst![MOVEX] = -1 rst.Update rst.MoveNext Next i Me.SelHeight = 0 'unSelect the Records Me.Painting = True 'show the Records values End Sub جعفر 1423.select.accdb.zip1 point
-
ياباشا اصلا انت كاتب اسامى الحقول بالانجليزى بص هو ممكن تشرح ببساطه انت عاوز توصل لايه بلاش تحط فكرتك انت وتجبرنا نوصلك لـ نتيجة بناء على فكرتك انت لان شكلك انت بتفكر غلط وكده هتجيب لنا جنان اكثر من اللى احنا فيه1 point
-
1 point
-
السلام عليكم ورحمة الله تعالى وبركاته بعد جلسات العمل والنقاش هذه وأيضا تلك وأيضا تلك وأيضا تلك واخص فيها أستاذي الجليل ومعلمي القدير و والدى الحبيب أستاذ @ابوخليل له كل الشكر والتقدير وكذلك أصحاب المواضيع الذين حثوا الهمم لإخراج مثل هذا العمل اهداء الى منتدانا الحبيب واحبابنا الكرام اليكم كود الاستجابة السريع QR CODE (يدعم اللغة العربية) حسب متطلبات هيئة الزكاة والضريبة والجمارك السعودية علما انه يتم قراءة الرمز عبر قارىء خاص بالهيئة ( تطبيق جوال ) حمل من هنا : تطبيق هيئة الزكاة والضريبة والجمارك كما يتم قراءة الرمز عبر قارىء خاص من خلال موقع على الانترنت إذهب الى الموقع : من هنا الشرح ... مهم جدا مفيش أي شرح متطلبات التشغيل كالتالي : فقط يرجى التأكد من وجود الأداة qr.exe داخل مجلد باسم Reference في نفس مسار قاعدة البيانات اسالكم الدعاء بظهر الغيب لصديقي في العمل و الذى ساعدني في عمل ملف qr.exe أتمنى لكم تجربة ممتعة ... ================================================== KSA E-Invoicing QR-Code.zip1 point
-
العفو شكرال لكم جميعا فردا فردا تعجز الكلمات عن التعبير شكرالكم على دعمكم المعنوي و الأخوي و لا حرمني الله من اخوتكم1 point
-
1 point
-
1 point
-
انضم إليك اخى بتقديم الشكر وخالص الدعاء للأستاذ الكريم د.كاف يار زاده الله علما يارب احترامى1 point
-
أكرمك الله أخي خالد مش للدرجة دي متخلينيش أتغر دا أنا اقل من كده بكتير بالنسبة لأفضل لغة برمجة لصفحات الويب هي php ويمكنك قراءة هذه المقالة من دليل موقع لغة php الرسمي http://php.net/manual/en/faq.languages.php1 point
-
آمين ولك مثلها أخي خالد جعلك الله من الخالدين في نعيمه ....... أخي خالد وجدت في برمجة الويب متعة وإمكانيات لم أجدها في أي لغة برمجة منها على سبيل المثال لا الحصر الإتاحة وتعني أن الموقع متاح لأكثر من مليون شخص في نفس الوقت ويستجيب لطلب كل واحد منهم أما البرامج الأخرى يستخدمها مستخدم واحد فقط وإذا تمت مشاركتها عبر شبكة فيوجد بها الكثيييير من المشاكل1 point
-
1 point
-
1 point
-
تفضل أخي هذه روابط لتحميل الواجهة العربية لأوفيس 2010 بعد تثبيتها يتم الانتقال من خلال start ---> microsoft office ---->microsoft office 2010 tools ---> microsoft office 2010 language preferances1 point
-
1 point
-
file ----> options ----> trust center -----> trust center settings ----> macro settings ----> enable all macros ---> ok ---> ok1 point
-
أخي الكريم lordering جرب الكود الموجود في هذا الرابط ربما يفيدك أنا جربته ولكن لا يعمل مع ويندوز 7 http://support.microsoft.com/kb/197585 وهذا أيضاً http://support.microsoft.com/kb/1842971 point
-
هل تريد أن تنمي ذكاءك وذكاء أولادك بتمارين وألغاز متدرجة من السهل إلى الصعب إذاً يلزمك تحميل سلسلة كتب منسا للأذكياء والعباقرة ولخاطر أحبتي في الله أعضاء ومشرفي أوفيسنا قمت برفع جميع الكتب على حسابي في ميديا فاير الكتاب الأول http://www.mediafire.com/download.php?awasi0hzvt2vw5v الكتاب الثاني http://www.mediafire.com/download.php?9yk26oqd09i69lg الكتاب الثالث http://www.mediafire.com/download.php?em6f920cpc2mqia الكتاب الرابع http://www.mediafire.com/download.php?eddangkbdl23dc1 ولا تنسوني من صالح دعائكم وأدعوكم ايضا للتواصل في موضوع هيا بنا نعرف مستوى ذكائنا1 point
-
1 point