تحويل الكود في الاكسيس الى الفيجوال دوت نت

ماذا تعني Left  و Right  في اكسس لان هناك خطاء

  Private Sub Text0_AfterUpdate()

        If Left(Val(TextBox1.Text), 2) = "71" Then
            If Len(TextBox1.Text) = 9 Then
                TextBox2.Text = Left(Val((Right(TextBox1.Text, 4) * 2) + 2998), 4)
            End If
        Else
            MsgBox(".ÊÃßÏ ãä ÇáÑÞã ÇáãÏÎá ")
            TextBox1.Text = ""
        End If
        Exit Sub
 
End Sub
  Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
        TextBox2.Text = ""
    End Sub

ليس هناك ما يسمى بلغة الأكسس ..

هذه لغة vb6 .. وتستطيع إستعمالها في منتجات اوفيس أقل من 2007 ..

تحياتي  ^_^

على كلاً الكود بعد التعديل :

Private Sub Text0_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Text0.KeyDown
        If e.KeyCode = Keys.Enter Then
            If Microsoft.VisualBasic.Left(Text0.Text, 2) = "71" Then
                If Len(Text0.Text) = 9 Then
                    Text2.Text = Microsoft.VisualBasic.Left(Microsoft.VisualBasic.Right(Text0.Text, 4) * 2 + 2998, 4)
                End If
            Else
                MsgBox(".ÊÃßÏ ãä ÇáÑÞã ÇáãÏÎá ")
                Text0.Text = ""
            End If
            Exit Sub
        End If
    End Sub

    Private Sub Text2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Text2.TextChanged
        Text2.Text = ""
    End Sub

تحياتي  ^_^ 

شكراً للجميع وهذاء هو الكود

 If Microsoft.VisualBasic.Left(Val(Me.TextBox1.Text), 2) = 71 Then
            If Len(Me.TextBox1.Text) = 9 Then
                Dim txtval As String = Val(Microsoft.VisualBasic.Right(Me.TextBox1.Text, 4) * 2) + 2998
                Me.TextBox2.Text = Microsoft.VisualBasic.Left(txtval, 4)

            End If
        End If

bahbah كتب:

ليس هناك ما يسمى بلغة الأكسس ..

 

هذه لغة vb6 .. وتستطيع إستعمالها في منتجات اوفيس أقل من 2007 ..

 

تحياتي  ^_^

وهل يمكن استخدام اكواد فيجول دوت نت في الاكسس الاحدث مثلا 2007او 2010 استاذي القدير جزاك الله خير

عبداللةقساس كتب:

وهل يمكن استخدام اكواد فيجول دوت نت في الاكسس الاحدث مثلا 2007او 2010 استاذي القدير جزاك الله خير

لا أعلم بالضبط .. ولكن عند تجربة كتابة الكود .. إتضح أنه كود VB6 ..

حتى في الإصدار 2007 وما يحيرني أيضاً .. (أنه قد تم التخلي عن لغة الـvb6 ) عند صدور ويندوز 7 ..

ولكن ما يزال يستعمل في الأوفيس !!

تحياتي  ^_^