عدم ادخال كمية بالناقص

[حسين العربى]

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

طلبي هو 

عدم ادخال كمية بالناقص في حقل الكمية  وشكرا

 

 

 

 

 

 

[kanory]

في قاعدة التحقق من الصحة أكتب
>0

[حسين العربى]

استاذي الفاضل  الف الف شكر 

ممكن نعملها بكود  بحيث اتحكم في تفعيلها وعدم تفعيلها عن طريق زر اختيار  وعند الضغط علي زر اختيار يطلب مني باسورد قبل التفعيل وشكر 

[حسين العربى]

up

[ابو ياسين المشولي]

جرب هذا
في حدث قبل التحديث
If Me.txt1 < 0 Then
 MsgBox "عفوا  غير  مسموح بالسالب"
Undo
Exit Sub
End If
اسم الحقل هو
Me.txt1

 

[حسين العربى]

استاذي الفاضل اسف غلبتك معي 

لو في مجال عن طريق زر اختيار بحيث عن الضغط علي زر الاختيار يتم تفعيل الادخال في الحقل بالسالب  وعند الضغط عليه مره اخره يلغي الادخال بالسالب 

ولو في فكره تؤدي نفس الغرض ما فيش مشكله وشكرا علي سعة صدرك

[حسين العربى]

UP

[ابو ياسين المشولي]

8 دقائق مضت, حسين العربى said:

UP

اذا انت تريد تطبيق فعليك ارفاق المثل

[حسين العربى]

تفضل اخي الفاضل

2222.rar

[ابو ياسين المشولي]

29 دقائق مضت, حسين العربى said:

تفضل اخي الفاضل

2222.rar

اتفضل اذا طلع المطلوب دعوة طيبه بظهر الغيب

2222.rar

[حسين العربى]

الملف  لايعمل اخي الفاضل  ممكن تحوله الي 2003

[ابو ياسين المشولي]

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

[حسين العربى]

الملف  لايعمل اخي الفاضل  ممكن تحوله الي 2003 او 2007

[ابو ياسين المشولي]

هذا ملفك كما ارسلته 2007

للاسف لا استطيع تحويله

شوف الصوره

ارسلت لك ملفك كما ارسلته 2007

2222.accdb

[حسين العربى]

استاذي الفاضل اسف غلبتك معي  لك مني جزيل الشكر وجزاك الله خير الجزاء هذا هو المطلوب 

بس في حاجه ناقصه الظاهر في الكود 

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

اليك المرفق

 

2222.rar

[ابو ياسين المشولي]

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

 

[حسين العربى]

الف الف شكر استاذي الفاضل

 

[ابو ياسين المشولي]

1 ساعه مضت, حسين العربى said:

الف الف شكر استاذي الفاضل

 

العفوووو