المساعدة في تحويل كود VB6 الى كود VBA

[حربي العنزي]

السلام عليكم اساتذتي الافاضل ورحمة الله وبركاته

اذا امكن تحويل هذا الكود البرمجي المعمول VB6 الى VBA 2003 مع فائق الشكر والاحترام

وهذا هو الكود بالفيجوال بيسك6 في المرفقات

Private Sub Command1_Click()MSComm1.PortOpen = False
End Sub


Private Sub Form_Load()
MSComm1.CommPort = 1
MSComm1.Settings = "9600,n,8,1"
MSComm1.PortOpen = True
End Sub


Private Sub MSComm1_OnComm()
Dim c As Variant
If MSComm1.CommEvent = comEvReceive Then
If comEvEOF Then
MSComm1.InputLen = 8
c = MSComm1.Input
Label1.Caption = c
'Text1.Text = Label1
MSComm1.InBufferCount = 0
End If
End If


End Sub

[رمهان]

طبعا اتوقع ولعم القدرة على التجربة لعدم وجود المرفقات :

1. تاكد من تسجيل الاداة صحيحا في الاكسس

2. اتوقع لا يوجد تغيرات في الكود وانما فقط تسميات العناصر والنوع : فمثلا مربع نص واسمه text1  وتسمية واسمه label1

 

بالتوفيق

[حربي العنزي]

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

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

سائلا الله عز وعلا ان يمن عليك وعلى عائلتك الكريمة بالصحة والعافية يارب