تعديل كود

[محمد119900]

السلام عليكم 

أحتاج عند قراءة الباركود وكتابة الدرجة والضغط على enter

يرجع المؤشر إلى خانة قراءة الباركود ( في الأعلى ) ويمسح الباركود القديم ويكون جاهز لقراءة الباركود الجديد وهكذا 

باركود.rar

[Foksh]

وعليكم السلام ورحمة الله وبركاته ,,

تفضل طلبك بعد اجراء تعديل على الكود لتقليل التكرار ..

 

Private Sub HandleSubjectFocus()
    On Error Resume Next

    Me.y1 = Me.y2.Column(1)
    Dim code As String
    code = Trim(Right(Me.y2, 3))

    Dim ctlName As String
    Select Case code
        Case "REL": ctlName = "Religion"
        Case "ARA": ctlName = "ARABIC"
        Case "ENG": ctlName = "ENGLISH"
        Case "MAT": ctlName = "MATH"
        Case "SCI": ctlName = "SCIENCE"
        Case "SOC": ctlName = "SOCIAL"
        Case "ART": ctlName = "ART"
        Case "SPO": ctlName = "SPORT"
        Case Else: Exit Sub
    End Select

    Forms!FrmMain!SubMain.SetFocus
    Forms!FrmMain!SubMain.Form.Controls(ctlName).SetFocus
    Me.SetFocus
    Me.y2.SetFocus
    Me.y2.Value = ""
End Sub

Private Sub Form_Load()
Me.y2.SetFocus
End Sub

Private Sub y2_AfterUpdate()
    HandleSubjectFocus
End Sub

 

 

باركود.accdb

[محمد119900]

2 ساعات مضت, Foksh said:

وعليكم السلام ورحمة الله وبركاته ,,

تفضل طلبك بعد اجراء تعديل على الكود لتقليل التكرار ..

 

Private Sub HandleSubjectFocus()
    On Error Resume Next

    Me.y1 = Me.y2.Column(1)
    Dim code As String
    code = Trim(Right(Me.y2, 3))

    Dim ctlName As String
    Select Case code
        Case "REL": ctlName = "Religion"
        Case "ARA": ctlName = "ARABIC"
        Case "ENG": ctlName = "ENGLISH"
        Case "MAT": ctlName = "MATH"
        Case "SCI": ctlName = "SCIENCE"
        Case "SOC": ctlName = "SOCIAL"
        Case "ART": ctlName = "ART"
        Case "SPO": ctlName = "SPORT"
        Case Else: Exit Sub
    End Select

    Forms!FrmMain!SubMain.SetFocus
    Forms!FrmMain!SubMain.Form.Controls(ctlName).SetFocus
    Me.SetFocus
    Me.y2.SetFocus
    Me.y2.Value = ""
End Sub

Private Sub Form_Load()
Me.y2.SetFocus
End Sub

Private Sub y2_AfterUpdate()
    HandleSubjectFocus
End Sub

 

 

باركود.accdb 624 kB · 0 downloads

العفو استاذي الخطوات التي احتاجها كالتالي

قراءة الباركود ( مكون من رقم وحروف)

مثلا 5000Mat

ثم يذهب إلى مادة الرياضيات اكتب أنا الدرجة وبعد كتابة الدرجة اضغط على زر enter من الكيبور 

 ليرجع إلى نفس المكان قراءة الباركود مع مسح الباركود 

2 ساعات مضت, Foksh said:

وعليكم السلام ورحمة الله وبركاته ,,

تفضل طلبك بعد اجراء تعديل على الكود لتقليل التكرار ..

 

Private Sub HandleSubjectFocus()
    On Error Resume Next

    Me.y1 = Me.y2.Column(1)
    Dim code As String
    code = Trim(Right(Me.y2, 3))

    Dim ctlName As String
    Select Case code
        Case "REL": ctlName = "Religion"
        Case "ARA": ctlName = "ARABIC"
        Case "ENG": ctlName = "ENGLISH"
        Case "MAT": ctlName = "MATH"
        Case "SCI": ctlName = "SCIENCE"
        Case "SOC": ctlName = "SOCIAL"
        Case "ART": ctlName = "ART"
        Case "SPO": ctlName = "SPORT"
        Case Else: Exit Sub
    End Select

    Forms!FrmMain!SubMain.SetFocus
    Forms!FrmMain!SubMain.Form.Controls(ctlName).SetFocus
    Me.SetFocus
    Me.y2.SetFocus
    Me.y2.Value = ""
End Sub

Private Sub Form_Load()
Me.y2.SetFocus
End Sub

Private Sub y2_AfterUpdate()
    HandleSubjectFocus
End Sub

 

 

باركود.accdb 624 kB · 0 downloads

هذا الكود فيه نقص خطوه كتابة الدرجة والضغط على enter من لوحة المفاتيح ( الكيبورد )