jjafferr

وعليكم السلام 🙂 جرب هذا الرابط جعفر

اخوي rockjone33 المشاركة اللي عرضها اخونا العود ابوخليل جدا بسيطه ، وهي من واقع قوانين المنتدى ، وقالها بكل احترام ، ومافي عند احدنا ضغينه على احد ، هي قوانين يحترمها الجميع ، والحمدلله المنتدى يعمل بسلاسه بها 🙂

السلام عليكم 🙂 اي شيء يُكتب بعد الامر DoCmd.Quit مثل (acQuitPrompt او acQuitSaveAll او acQuitSaveNone) هو لحفظ التغيير في تصميم النموذج/قاعدة البيانات ، وليس لحفظ السجل 🙂 فالامر DoCmd.Quit يكون كافيا 🙂 ولكن هناك ملاحظة في مساعد الاكسس: فإذن الامر الاصح للخروج من البرنامج هو : Application.Quit جعفر

اخوي rockjone33 كتبت لك رسالة على الخاص من يومين ، بس الظاهر انك ما لاحظتها !! ياريت تدخل عليها من الرابط : https://www.officena.net/ib/messenger/21011/?tab=comments#comment-54229 انا وانت فقط نقدر ندخل الرابط 🙂 جعفر

وعليكم السلام 🙂 1. خلينا نشوف اللي يشوفه الكمبيوتر ، استعمل هذا الكود ، خليه يشتغل ، وشوف النتائج في النافذة اسفل شاشة الكود (ثم الصقها في المنتدى علشان نشوف اذا في شيء منها غلط) : Private Sub Command_Click() Dim FileName As String Dim FilePath As String Dim FilePath1 As String FileName = Me.[bankcode] & Right(Year(Date), 2) & "0" & Month(Date) & Day(Date) & "100000" FilePath = Me.[FPath] & FileName & ".txt" FilePath1 = Me.[FPath] & FileName & ".PDF" debug.print Me.[bankcode] debug.print Right(Year(Date), 2) debug.print Month(Date) debug.print Day(Date) debug.print Me.[FPath] debug.print FilePath debug.print FilePath1 DoCmd.OutputTo acOutputReport, "word", acFormatPDF, FilePath1 DoCmd.OutputTo acOutputReport, "empdataa", acFormatTXT, FilePath MsgBox "Done" & " " & Me.FPath, vbInformation, "alert massege" End Sub . كذلك مو على العادة تسمية الزر باسم command ، عادة يكون command1 او command2 او ... ، فالظاهر اسم الزر خطأ في الكود ، لذا فالافضل عمل زر جديد ، ولصق الكود فيه ، ثم التجربة 🙂 جعفر

تفضل احد نتائج البحث: . . جعفر

هذه تجربتي مع الاستعلام الجدولي: جعفر

وعليكم السلام 🙂 اجعل البحث صديقك ، فالمنتدى مليئ بمثل اسألتك 🙂 جعفر

وعليكم السلام 🙂 هذا مثال: وهذا محاولة للتطبيق على مثالك (يجب مراعاة نوع الحقل: نص ، رقم ، او تاريخ) : dim myCriteria as string 'امثلة ' myCriteria = "[detach]='Male'" 'نص ' myCriteria = myCriteria & " [ID]=12" 'رقم ' myCriteria = myCriteria & " [iDate]=#29-05-2015#" 'تاريخ myCriteria = "sanduk.yat= " & FORMS!edaa1![ser] myCriteria = myCriteria & " AND" myCriteria = myCriteria & " sanduk.daf= " & forms!edaa1![daf] myCriteria = myCriteria & " AND" myCriteria = myCriteria & " sanduk.dat= #" & forms!edaa1![dat] & "#" DoCmd.RunSQL "DELETE sanduk.yat , sanduk.DAT , sanduk.SAH FROM sanduk WHERE " & myCriteria . جعفر

هنا تأتي طريقة اخوي ابوخليل ، مثلا 🙂 جعفر

هدفي من السؤال: بغض النظر عن ما يقوم كل مستخدم بإدخاله عن طريق واجهة البرنامج التي امامه ، فالبرنامج سيجعل هذا المستخدم يُدخل بيانات شركة/شركات معينة (ويمكن عمل هذا من خلال صلاحيات المستخدمين، وكل مستخدم يدخل باسمه) ، وممكن وضع بيانات المستخدمين والشركات ، على الشبكة الداخليه في المبنى LAN . اذا كان المبنى به شبكة تربط جميع الكمبيوترات ، فالمسؤول/ المستخدم رئيسي لجمع البيانات ، لا يحتاج الى هارديسك خارجي لنقل البيانات من كمبيوترات المستخدمين ، وانما البيانات ستكون جاهزة امامه بعد إدخال اي مستخدم اي معلومة 🙂 وبهذه الطريقة ، ستكون برمجة البرنامج سهلة (كل مبرمج يقدر يعملها) ، وبطريقة تختلف عن الطريقة التي اقترحها اخوي ابوخليل 🙂 جعفر

هو اشارة الى سؤالي 🙂 . انت لم ترد على سؤالي: هل جميع من سيتعامل مع البرنامج موجودين في مبنى واحد ؟ وهل المبنى فيه شبكة تربط جميع كمبيوترات مدخلي البيانات والمستخدم الرئيسي الذي يجمع البيانات ؟ جعفر

نعم ، صيغة السؤال تدل على هذا الاتجاه ، ولكن ، وكما قلت ، هو سؤال ساذج ، واتمنى يفاجأنا الجواب 😁 جعفر

السلام عليكم 🙂 الاكسس يعرض السجلات (في الجداول والاستعلامات والنماذج والتقارير) حسب تسلسل ادخالها ، اذا لم نعمل فرز وتصفية خاصة بنا 🙂 عليه ، للحصول على نفس تسلسل ادخال البيانات ، في التقرير ، احذف الفرز الذي عملته (المؤشر عليه باللون الاحمر) : . طبعا حل اخوي ابوخليل هو الافضل ، لأنه اصل لشروط قاعدة البيانات ، وقاعدة البيانات معناها: ادخال بيانات ، فرز وتصفية ، وعرض بيانات 🙂 جعفر

السلام عليكم اخي قاسم 🙂 سؤال ساذج : هل سيتم ادخال بيانات الشركات من شبكة واحدة في مبنى واحد؟ جعفر

نصيحة: حاول الابتعاد عن عناصر activex قدر المستطاع ، لانها وكما حصل لك ، تختلف من 32بت و 64بت ، ومن اصدار الى آخر ، وتسجيل المكتبة في الوندوز ، وووو جعفر

وعليكم السلام اخي بلال 🙂 رجاء فتح موضوع جديد لسؤالك الجديد 🙂 جعفر

وعليكم السلام 🙂 اخي بشار ، اجعل عملية البحث اهم صديق لك في المنتدى ، فستحصل على اجابات سنين ، بدل انتظار الردود على موضوعك 🙂 جعفر

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

انت محتاج ترك مسافة بين كلمتين في كودك ، وتعديل كلمة كندا (بالانجليزي يا مرسي 😁) جرب هذا الكود ، واخبرنا بالنتيجة في اسفل صفحة الكود : Private Sub Form_Open(Cancel As Integer) debug.print LanguageName & " (" & CountryName & ")" If LanguageName & " (" & CountryName & ")" <> "English (Canada)" Then MsgBox "يرجى تغير اللغه لــ English(Canda)" End If End Sub جعفر

بدل الرسالة الحالية ، اعمل الرسالة اللي تريدها 🙂 جعفر

السلام عليكم اخي عمار 🙂 1. بهذا البرنامج ، هل استطعت ان تعرف كلمة سر محرر الاكواد VBE لنفس البرنامج ؟ 2. كلمة سر دخول البرنامج بصيغة mdb كان يمكن الوصول اليه بعدة برامج على الانترنت ، وقد يكون البرنامج الذي ارفقته انت احدهم ، ولكن لا يمكنك الوصول الى كلمة سر دخول البرنامج بصيغة accdb 🙂 فهل البرنامج لإكتشاف كلمة سر دخول البرنامج ، او الدخول في محرر الاكواد VBE ؟ جعفر

وعليكم السلام 🙂 تفضل ، هذا الرابط به طريقة ، وبه رابط لطريقة اخرى . جعفر

السلام عليكم 🙂 مع اعتذاري للشباب ، فلم القي نظرة على مرفقاتكم 🙂 احفظ هذه الدالة باسم mod_Regional_Settings_info : 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 ' 'to use it 'cmb.AddItem fld.Name & fListseparator & iField_Caption ' 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 '''' Function LanguageName() 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_SENGLANGUAGE, strLCData, lngData) If lngX <> 0 Then LanguageName = Left$(strLCData, lngX - 1) End If End Function '''' Function LocalizedLanguageName() 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_SLANGUAGE, strLCData, lngData) If lngX <> 0 Then LocalizedLanguageName = Left$(strLCData, lngX - 1) End If End Function . وتناديه هكذا: if LanguageName & " (" & CountryName & ")" <> LocalizedLanguageName then msgbox "PC Language is : " & LocalizedLanguageName end if . جعفر