حسين العربى قام بنشر يناير 30, 2019 مشاركة قام بنشر يناير 30, 2019 السلام عليكم ورحمة الله وبركاته اخواني اعضاء ومشرفي المنتدي الكرام طلبي هو عدم ادخال كمية بالناقص في حقل الكمية وشكرا رابط هذا التعليق شارك More sharing options...
kanory قام بنشر يناير 30, 2019 مشاركة قام بنشر يناير 30, 2019 في قاعدة التحقق من الصحة أكتب >0 رابط هذا التعليق شارك More sharing options...
حسين العربى قام بنشر يناير 30, 2019 الكاتب مشاركة قام بنشر يناير 30, 2019 استاذي الفاضل الف الف شكر ممكن نعملها بكود بحيث اتحكم في تفعيلها وعدم تفعيلها عن طريق زر اختيار وعند الضغط علي زر اختيار يطلب مني باسورد قبل التفعيل وشكر رابط هذا التعليق شارك More sharing options...
حسين العربى قام بنشر يناير 31, 2019 الكاتب مشاركة قام بنشر يناير 31, 2019 up رابط هذا التعليق شارك More sharing options...
ابو ياسين المشولي قام بنشر يناير 31, 2019 مشاركة قام بنشر يناير 31, 2019 جرب هذا في حدث قبل التحديث If Me.txt1 < 0 Then MsgBox "عفوا غير مسموح بالسالب" Undo Exit Sub End If اسم الحقل هو Me.txt1 رابط هذا التعليق شارك More sharing options...
حسين العربى قام بنشر فبراير 1, 2019 الكاتب مشاركة قام بنشر فبراير 1, 2019 استاذي الفاضل اسف غلبتك معي لو في مجال عن طريق زر اختيار بحيث عن الضغط علي زر الاختيار يتم تفعيل الادخال في الحقل بالسالب وعند الضغط عليه مره اخره يلغي الادخال بالسالب ولو في فكره تؤدي نفس الغرض ما فيش مشكله وشكرا علي سعة صدرك رابط هذا التعليق شارك More sharing options...
حسين العربى قام بنشر فبراير 1, 2019 الكاتب مشاركة قام بنشر فبراير 1, 2019 UP رابط هذا التعليق شارك More sharing options...
ابو ياسين المشولي قام بنشر فبراير 1, 2019 مشاركة قام بنشر فبراير 1, 2019 8 دقائق مضت, حسين العربى said: UP اذا انت تريد تطبيق فعليك ارفاق المثل رابط هذا التعليق شارك More sharing options...
حسين العربى قام بنشر فبراير 1, 2019 الكاتب مشاركة قام بنشر فبراير 1, 2019 تفضل اخي الفاضل 2222.rar رابط هذا التعليق شارك More sharing options...
ابو ياسين المشولي قام بنشر فبراير 1, 2019 مشاركة قام بنشر فبراير 1, 2019 29 دقائق مضت, حسين العربى said: تفضل اخي الفاضل 2222.rar اتفضل اذا طلع المطلوب دعوة طيبه بظهر الغيب 2222.rar رابط هذا التعليق شارك More sharing options...
حسين العربى قام بنشر فبراير 1, 2019 الكاتب مشاركة قام بنشر فبراير 1, 2019 الملف لايعمل اخي الفاضل ممكن تحوله الي 2003 رابط هذا التعليق شارك More sharing options...
ابو ياسين المشولي قام بنشر فبراير 1, 2019 مشاركة قام بنشر فبراير 1, 2019 5 دقائق مضت, حسين العربى said: الملف لايعمل اخي الفاضل ممكن تحوله الي 2003 للاسف لم يتحول معي الى 2003 انا عندي 2010 على العموم عملت هذا الكود في حدث قبل نقص الكميه If Me.txt < 0 And Me.fb = False Then MsgBox "عفوا غير مسموح بالسالب" Undo Exit Sub End If وغيرت اسم الاختيار الى هذا fb وفي حدث بعد التحديث في الاختيار هذا الكود On Error Resume Next Dim intinput As Integer intinput = InputBoxDK("فضلاً ادخل الرقم السري لتمكين التعديل السجلات", "دخول") If intinput = 123 Then Me.fb = True MsgBox "تم تمكين تعديل " Else MsgBox "تم منع التعديل " Me.fb = False End If وعملت مدويل جديد كي يطلع الرمز نجوم هذا المدويل Option Compare Database Private Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long, _ ByVal ncode As Long, ByVal wParam As Long, lParam As Any) As Long Private Declare Function GetModuleHandle Lib "kernel32" Alias _ "GetModuleHandleA" (ByVal lpModuleName As String) As Long Private Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" _ (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, _ ByVal dwThreadId As Long) As Long Private Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long Private Declare Function SendDlgItemMessage Lib "user32" Alias "SendDlgItemMessageA" _ (ByVal hDlg As Long, ByVal nIDDlgItem As Long, ByVal wMsg As Long, _ ByVal wParam As Long, ByVal lParam As Long) As Long Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" _ (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long Private Declare Function GetCurrentThreadId Lib "kernel32" () As Long '~~> Constants to be used in our API functions Private Const EM_SETPASSWORDCHAR = &HCC Private Const WH_CBT = 5 Private Const HCBT_ACTIVATE = 5 Private Const HC_ACTION = 0 Private hHook As Long Public Function NewProc(ByVal lngCode As Long, ByVal wParam As Long, _ ByVal lParam As Long) As Long Dim RetVal Dim strClassName As String, lngBuffer As Long If lngCode < HC_ACTION Then NewProc = CallNextHookEx(hHook, lngCode, wParam, lParam) Exit Function End If strClassName = String$(256, " ") lngBuffer = 255 If lngCode = HCBT_ACTIVATE Then RetVal = GetClassName(wParam, strClassName, lngBuffer) '~~> Class name of the Inputbox If Left$(strClassName, RetVal) = "#32770" Then '~~> This changes the edit control so that it display the password character *. '~~> You can change the Asc("*") as you please. SendDlgItemMessage wParam, &H1324, EM_SETPASSWORDCHAR, Asc("*"), &H0 End If End If '~~> This line will ensure that any other hooks that may be in place are '~~> called correctly. CallNextHookEx hHook, lngCode, wParam, lParam End Function Public Function InputBoxDK(Prompt, Optional Title, Optional Default, Optional XPos, _ Optional YPos, Optional HelpFile, Optional Context) As String Dim lngModHwnd As Long, lngThreadID As Long lngThreadID = GetCurrentThreadId lngModHwnd = GetModuleHandle(vbNullString) hHook = SetWindowsHookEx(WH_CBT, AddressOf NewProc, lngModHwnd, lngThreadID) InputBoxDK = InputBox(Prompt, Title, Default, XPos, YPos, HelpFile, Context) UnhookWindowsHookEx hHook End Function 2222.accdb رابط هذا التعليق شارك More sharing options...
حسين العربى قام بنشر فبراير 1, 2019 الكاتب مشاركة قام بنشر فبراير 1, 2019 الملف لايعمل اخي الفاضل ممكن تحوله الي 2003 او 2007 رابط هذا التعليق شارك More sharing options...
ابو ياسين المشولي قام بنشر فبراير 1, 2019 مشاركة قام بنشر فبراير 1, 2019 هذا ملفك كما ارسلته 2007 للاسف لا استطيع تحويله شوف الصوره ارسلت لك ملفك كما ارسلته 2007 2222.accdb رابط هذا التعليق شارك More sharing options...
حسين العربى قام بنشر فبراير 2, 2019 الكاتب مشاركة قام بنشر فبراير 2, 2019 استاذي الفاضل اسف غلبتك معي لك مني جزيل الشكر وجزاك الله خير الجزاء هذا هو المطلوب بس في حاجه ناقصه الظاهر في الكود لما بضع الكميه بالموجب واضغط انتر يحذف الرقم المدخل جرب بنفسك اليك المرفق 2222.rar رابط هذا التعليق شارك More sharing options...
ابو ياسين المشولي قام بنشر فبراير 2, 2019 مشاركة قام بنشر فبراير 2, 2019 4 ساعات مضت, حسين العربى said: استاذي الفاضل اسف غلبتك معي لك مني جزيل الشكر وجزاك الله خير الجزاء هذا هو المطلوب بس في حاجه ناقصه الظاهر في الكود لما بضع الكميه بالموجب واضغط انتر يحذف الرقم المدخل جرب بنفسك اليك المرفق 2222.rar اتفضل On Error Resume Next If Me.txt < 0 And Me.fb = False Then Me.txt = Null Else Me.txt = Me.txt End If رابط هذا التعليق شارك More sharing options...
حسين العربى قام بنشر فبراير 2, 2019 الكاتب مشاركة قام بنشر فبراير 2, 2019 الف الف شكر استاذي الفاضل رابط هذا التعليق شارك More sharing options...
ابو ياسين المشولي قام بنشر فبراير 2, 2019 مشاركة قام بنشر فبراير 2, 2019 1 ساعه مضت, حسين العربى said: الف الف شكر استاذي الفاضل العفوووو رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان