كاروان

عندي برنامج اريد اكون استعلام يطلع لي اخر سجل من حقل mony لكل حقل من Number ولكن لم افتهم الدالة كاملة ممكن واحد يشرح لي الدالة وعندي المثال مرفق مع سلامي وتحياتي all.rar

شكرا على هذه العمل الرائع

برنامج رائع و جميل هل يمكن ان تشرح كيف وضع ثنائي اللغة

شكرا جزيلا على الحل الله يبارك لك بالخير و السعادة

السلام عليكم عندي قادة التالية المرفقة لايمكنني حذف جدول ال buy و  important  حيث كلما احذفه بعد غلق و فتح شاشة العلاقات ترجع من جديد   تحياتي db.zip

شكرا جزيلا اخي على الحل ولكن هل لك ان تعرف اين كانت المشلكة لماذا لم اقد ان احذفها عندي على كومبيوتري   تحياتي

اشكرك اختي الفاضلة بعد ما جربت كل شىء و الريستور بوينت لم يشتغل عندي لذلك نصبت الويندوس من جديد   و اشكرك على المجوابة

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

لم ينجح الامر معي وقد قمت بحذف الاوفيس و نصبه من جديد و لكن المشكلة هي نفسها البارحة قد استعلمت الكود ادنا لتخفيض حماية الاكسيس يمكن ان يكون منه لانه هنالك العديد من تغير الريجستريى و لا اعرف كلها Option Compare DatabaseOption ExplicitEnum 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 = &H80000006End EnumEnum RegType REG_SZ = 1 REG_BINARY = 3 REG_DWORD = 4End EnumPublic Const ERROR_SUCCESS = 0&Public Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As LongPublic Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As LongPublic Declare Function RegDeleteKey Lib "advapi32.dll" Alias "RegDeleteKeyA" (ByVal hKey As Long, ByVal lpSubKey As String) As LongPublic Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal hKey As Long, ByVal lpValueName As String) As LongPublic Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As LongPublic 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 LongPublic 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 LongPublic 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 LongPublic Function CreateRegKey(hKey As RegHive, strPath As String)Dim hCurKey As LongDim lRegResult As Long lRegResult = RegCreateKey(hKey, strPath, hCurKey) If lRegResult <> ERROR_SUCCESS Then 'there is a problem End If lRegResult = RegCloseKey(hCurKey)End FunctionPublic Function SaveRegLong(ByVal hKey As RegHive, ByVal strPath As String, ByVal strValue As String, ByVal lData As Long)Dim hCurKey As LongDim lRegResult As Long lRegResult = RegCreateKey(hKey, strPath, hCurKey) lRegResult = RegSetValueEx(hCurKey, strValue, 0&, REG_DWORD, lData, 4) If lRegResult <> ERROR_SUCCESS Then End If lRegResult = RegCloseKey(hCurKey)End FunctionIf Version = "8.0" ThenstrValueM = SaveRegLong(HKEY_LOCAL_MACHINE, "Software\Microsoft\Office\8.0\Access\Security", "Level", 1)strValueU = SaveRegLong(HKEY_CURRENT_USER, "Software\Microsoft\Office\8.0\Access\Security", "Level", 1)ElseIf Version = "9.0" ThenstrValueM = SaveRegLong(HKEY_LOCAL_MACHINE, "Software\Microsoft\Office\9.0\Access\Security", "Level", 1)strValueU = SaveRegLong(HKEY_CURRENT_USER, "Software\Microsoft\Office\9.0\Access\Security", "Level", 1)ElseIf Version = "10.0" ThenstrValueM = SaveRegLong(HKEY_LOCAL_MACHINE, "Software\Microsoft\Office\10.0\Access\Security", "Level", 1)strValueU = SaveRegLong(HKEY_CURRENT_USER, "Software\Microsoft\Office\10.0\Access\Security", "Level", 1)ElseIf Version = "11.0" ThenstrValueM = SaveRegLong(HKEY_LOCAL_MACHINE, "Software\Microsoft\Office\11.0\Access\Security", "Level", 1)strValueU = SaveRegLong(HKEY_CURRENT_USER, "Software\Microsoft\Office\11.0\Access\Security", "Level", 1)ElseIf Version = "12.0" ThenstrValueU = SaveRegLong(HKEY_CURRENT_USER, "Software\Microsoft\Office\12.0\Access\Security", "VBAWarnings", 1)End Ifوللعلم عندي ويندوس 8

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

السلام عليكم عندي برنامج مع قاعدة بيانات اكسيس و لدي حقل مفتاح رئيسي اريد كود يظهر للمستخدم بعد تحديث البيانات او ادخال البيانات اظهار ان البيانات متكررة  

لم اجد ما انتفع به و خاصة لانني استعمل فيجول بيسك 2010 و اني منتقل من الاكسيس الى الفيجول

السلام عليكم لقد وجدت حل اسهل في موقع مايكروسوفت وهو يكون كالتالي To set a data column to contain auto-generated numbers Open your dataset in the Dataset Designer. Select the column you want to populate with auto-generated numbers. In the Properties window, set the following properties: Property Setting AutoIncrement true AutoIncrementSeed If you want to begin at a number different from the default value of 0, set this value to the starting number for this column. AutoIncrementStep In each new row, the column value is incremented by this value.

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

السلام عليكم انا جديد في فيجول بيسك 2010 و قد عملت برنامج و فيها قائمة و من القائمة استدعي الفورم ولكن اذا فتحت الفورم و عملت كليك مرة اخرة يفتح فورم اخر و هكذا تقدر تفتح عدد لا نهائي من نفس الشاشة سؤلي كيف امنع من فتح نفس الفورم اكثر من مرة   تحياتي

اشكرك جزيل الشكر على المساعدة وان شاء الله تكون موفق في الدنيا و الاخرة

في المرفقات المثال عند فتح البرنامج  و كليك على جديد يفتح فورم جديد وحينها عند الضغط مرة اخرة على زر جديد من القائكة يفتح فورم اخر وهذه ما لا اريده اريد اذا كان فورم 2 مفتوح ان لايتم فتح فورم اخر   تحياتي New folder (3).zip

السلام عليكم كما قلت لك انا جديد في الفيجول بيسك و لا اعرف ماهي الملفات التي ارفقها لكم ولكن لتعرفوا اني لدي فورم رئيسي mdi  و اريد فتح فورم اخرى داخله و لا اريدها اذا كانت مفتوحة ان تنفتح مرة اخرى   الفيجول بيسك الذي اعمل عليه 2010 

وللعلم لم ینفع معی الاكواد اعلاه

الكود الذي استخدمه هو Dim itemdifinForm As New item() itemdifinForm.MdiParent = Me itemdifinForm.Show()

السلام عليكم عندي الكود ادناه DoCmd.SelectObject acReport, "rptCustomers", True 'This prints out two copies of the report DoCmd.PrintOut , , , , 2   وهو لطبع تقرير حسب عدد النسخ التي اريدها ولكن المشكلة بالسطر الاول و هو يقوم بتحيد التقرير و بذلك يتفح شاشة مكونات الاكسس و يكشفها للمستخدم و هذا ما اريده   ارجوا المساعدة اذا امكن

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

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

اشكرك الاخت زهرة على الجواب الواضح الله يجازيك بالخير دائما

هل يوجد حل لكي يكون دقة وضوح المستندات نفس دقة السكانر او لا