[وادي العوضي]

ممنون منك استاذ ahmedabdelaliem جزاك الله خيرا
ان شاء الله اجرب الكود واعطيك النتيجة شكرا جزيلا لك مرة ثانية

[وادي العوضي]

Private Sub MSComm1_OnComm()

Dim MyData As String
Select Case MSComm1.CommEvent
Case Is = comEvReceive
MyData = MSComm1.Input
End Select
Label5.Caption = MyData

End Sub
أستاذي الفاضل هذا الكود هو المسؤول عن ظهور رقم الوزن مع علامة ال @

-------------------------------------------------------------------------------------------------
Me.Label5.Caption = Replace(Me.Label5.Caption, "@", " ")

سؤالي هو : اين اضع هذا الكود الذي حضرتك تفضلت به علي هل اضعه بدل هذا الكود Label5.Caption = MyData اذا امكن التوضيح اكثر بارك الله فيك وجزاك الله خيرا

[Taha Okla]

هو يقصد أن تكتب :

كود :

Me.Label5.Caption = Replace(MyData, "@", " ")

بدلا من :

كود :

Label5.Caption = MyData

[وادي العوضي]

الله يبارك في حضرتك استاذ Taha Okla جزاك الله خيرا
شكرا جزيلا لسرعة الرد حفظكم الله ورعاكم

[ahmedabdelaliem]

السلام عليكم
تمام نفس اجابة اخي طه

بالتوفيق

[وادي العوضي]

بارك الله فيك استاذ ahmedabdelaliem  وجزاك الله خيرا ممنون منك جدا يا طيب ربنا معاك في كل خطوة يارب