ابو ياسر

مشكلة تحميل الملفات ناشئة من المتصفح قم برقية المتصفح ، او استخدم متصفحا غيره

بارك الله فيك اخي الكريم هذا بالنسبة للأرقام .. فهل ينطبق على الحروف ؟

أرفق مثالك

السلام عليكم ورحمة الله بالنسبة للرقم يمكنك جعل الترقيم في الجدول تلقائي أما مربعات التحرير : لماذا لا تجعل مصدر النموذج stu هو الجدول Student نفسه ؟

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

السلام عليكم هذه المشاكل تحدث عادة وسببها اللغة فمثلا تسمية النماذج أو الحقول ( حاول التعديل عليها وكتابتها بحروف انجليزية ) من واقع تجربة : القاعدة المكتوبة بحروف عربية أو أي لغة غير الانجليزية تظهر فيها مشكلات عند تشغيلها على الاجهزة الاخرى

أيضا يمكن لهذا السطر أن يمنع حفظ المستند إذا تم وضعه في حدث عند الاغلاق ActiveDocument.Saved = True

اشكر استاذنا المهندس محمد طاهر على هذه اللفتة الكريمة والشكر موصول لكل المهنئين من أحبتي إخواني الفضلاء عبدالله المجرب ابوخليل ياسر الحافظ nart lebzo cha3iR HaNcOcK

123

الحمد لله

شكرا لك أستاذنا القدير محمد صالح جزاك الله عنا خير الجزاء

حاولت عدم الاخلال بالكائنات ما استطعت تفضل التعديل هذا ما استطعت الوصول اليه اتمنى ان يحقق مطلوبك اذا واجهتك مشاكل حاول في المرات القادمة شرح مبسط لعمل البرنامج وما تريد ان تصل اليه فقد تجد من يساعدك ويوجهك الى طرق اخرى مختلفة لتنفيذ البرنامج BSD Traitement up.rar

تفضل تحت امرك

السلام عليكم كان من المفترض تتراجع او تقفل المستند بدون حفظ واضح ان الخصاءص هذه في المستند نفسه جرب الطريقة التالية : 1- خذ نسخة من احد الملفات الاخرى السليمة ثم امسح البيانات الموجودة كلها ( بدون تحديد الكل ) 2- حدد بالسحب على البيانات في المستند المشكل ( بدون تحديد الكل ) ثم نسخ ثم الصقه في المستند السابق الفارغ وانظر لعل مشكلتك تنحل هذا حل بدائي طبعا ويمكن ينفع والا فمشكلتك في الانماط ان كنت تجيدها

السلام عليكم الاخ الكريم مصطفى كل سنة وانت طيب الصورة المرفقة لا يمكن عمل استعلام جدولي واحد مثلها انت بحاجة الى نموذج او تقرير تضع به عدة نماذج فرعية تستمد بياناتها من اكثر من استعلام او تعمل نموذج يشتمل على حقول غير منظمة وتأخذ بياناتها ايضا من اكثر من استعلام برنامجك السابق اتذكر انه يوجد فيه احصائيات مشابهه

المنتدى مليء ولكنا نحتاج الى شيء من الصبر في عملية البحث تفضل طلبك من هنا http://www.officena.net/ib/index.php?showtopic=29928

هذا البرنامج حصيلة تعاون بين اكثر من اخ كريم : عارف حسان من اليمن وعمار ابو احمد من العراق ومحبكم من السعودية . تم عمله لاحد الاخوة في مصر يشتمل على اشياء جميلة وفريدة ، كلمة المرور 123 كل عام وأنتم بخير توزيع آلي18.rar

السلام عليكم تفضل تم تعديل الكود ووضع الاحتياطات للمجلد الثاني في حال وجوده المسار على C:\ عدل حسب رغبتك On Error Resume Next Dim fs As Object Dim fa As Object Dim fs1 As Object Dim fa1 As Object Set fs = CreateObject("Scripting.FileSystemObject") Set fs1 = CreateObject("Scripting.FileSystemObject") If IsNull(ThisWorkbook.Path) Then Exit Sub If fs1.FolderExists("C:\KHMB\KHMB2") = True Then MsgBox "File available" ElseIf fs.FolderExists("C:\KHMB") = True And fs1.FolderExists("C:\KHMB\KHMB2") = False Then Set fa1 = fs.Createfolder("C:\KHMB\KHMB2") MsgBox "Created the folder" Else Set fa = fs.Createfolder("C:\KHMB") Set fa1 = fs.Createfolder("C:\KHMB\KHMB2") MsgBox "Created the folder" End If

السلام عليكم وهذا حل بطريقة اخرى يحتاج الى تكميل وتهذيب Access.rar

السلام عليكم الاخ العزيز ksmn64 مجهود رائع وعمل جميل ولكن لاحظ : 18 طالبة رغباتهن الأولى لحام لم تحقق لهن 42 طالبة رغباتهن الأولى كوافير لم تحقق لهن علما ان مجموع درجاتهن مرتفع

abdalla89 ياسر الحافظ عبدالله المجرب nart lebzo شكرا لكم على شكركم ولعيونكم وعيون كافة أهل هذا المنتدى هذا هو الكود المصدري Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long Enum RegHive HKEY_CLASSES_ROOT = &H80000000 HK_CR = &H80000000 HKEY_CURRENT_USER = &H80000001 HK_CU = &H80000001 HKEY_LOCAL_MACHINE = &H80000002 HK_LM = &H80000002 HKEY_USERS = &H80000003 HK_US = &H80000003 HKEY_CURRENT_CONFIG = &H80000005 HK_CC = &H80000005 HKEY_DYN_DATA = &H80000006 HK_DD = &H80000006 End Enum Enum RegType REG_SZ = 1 REG_BINARY = 3 REG_DWORD = 4 End Enum 'Public Const ERROR_SUCCESS = 0& Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long Private Declare Function RegDeleteKey Lib "advapi32.dll" Alias "RegDeleteKeyA" (ByVal hKey As Long, ByVal lpSubKey As String) As Long Private Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal hKey As Long, ByVal lpValueName As String) As Long Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long Private Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long Private Declare Function RegEnumKey Lib "advapi32.dll" Alias "RegEnumKeyA" (ByVal hKey As Long, ByVal dwIndex As Long, ByVal lpName As String, ByVal cbName As Long) As Long Private Function CreateRegKey(hKey As RegHive, strPath As String) Dim hCurKey As Long Dim lRegResult As Long lRegResult = RegCreateKey(hKey, strPath, hCurKey) If lRegResult <> ERROR_SUCCESS Then 'there is a problem End If End Function Private Function SaveRegLong(ByVal hKey As RegHive, ByVal strPath As String, ByVal strValue As String, ByVal lData As Long) Dim hCurKey As Long Dim lRegResult As Long lRegResult = RegCreateKey(hKey, strPath, hCurKey) lRegResult = RegSetValueEx(hCurKey, strValue, 0&, REG_DWORD, lData, 4) If lRegResult <> ERROR_SUCCESS Then End If End Function Private Sub Timer1_Timer() Dim strVM As String Dim strVS As String On Error Resume Next strVM = SaveRegLong(HKEY_LOCAL_MACHINE, "Software\Microsoft\Office\11.0\Access\Security", "Level", 1) strVS = SaveRegLong(HKEY_CURRENT_USER, "Software\Microsoft\Office\11.0\Access\Security", "Level", 1) strVS = SaveRegLong(HKEY_CURRENT_USER, "Software\Microsoft\Office\12.0\Access\Security", "VBAWarnings", 1) strVS = SaveRegLong(HKEY_CURRENT_USER, "Software\Microsoft\Office\14.0\Access\Security", "VBAWarnings", 1) Unload Me End Sub

نحمد الله على سلامتك وكل عام وانت بخير

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

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

تحويل القاعدة الى mde أو accde يمنع استيراد الكائنات منها عدا الجداول ولحماية البيانات نقوم باخفاء الجداول عن طريق وحدة نمطية خاصة .