View Single Post
Old 09-07-2007, 12:29 PM   #14
controlufo
Nhập môn đệ tử
 
Tham gia ngày: Apr 2007
Bài gửi: 4
:
thua rùi manager ngohaibac ui

tui sưu tầm các hướng dẫn của mr maneger(ngohaibac) đem áp dụng sài không được trong form access
form nhap
texbox vao

tui có gửi file access kèm theo mong manager box """"design"""" lại dùm ....giúp tui đi tui chuyển sang dề tài khác ngâm cứu chứ cái vụ này lấy của tui mất hơn 1 tháng rùi ngohaibac ui...


Code:
Dim x As Variant

Private Sub Form_Load()
On Error Resume Next
With MSComm1
If .PortOpen = True Then .PortOpen = False
.CommPort = 2
.Settings = "9600,N,8,1"
.InBufferSize = 2000
.InputLen = 0
.OutBufferSize = 64
.PortOpen = True
End With
End Sub

Private Sub Timer1_Timer()
Timer1.Enabled = False
MSComm1_OnComm
Timer1.Enabled = True
End Sub

Private Sub MSComm1_OnComm()
With MSComm1
If .InBufferCount >= 1 Then
x = MSComm1.Output
Forms!nhap!vao = x
End If
End With
End Sub


mong hồi âm
xin chân thành cám ơn....chúc công việc vui vẻ
File Kèm Theo
File Type: rar codedum.rar (228.5 KB, 1221 lần tải)

thay đổi nội dung bởi: ngohaibac, 09-07-2007 lúc 04:57 PM.
controlufo vẫn chưa có mặt trong diễn đàn   Trả Lời Với Trích Dẫn