-
RE: NHẬP DỮ LIỆU VÀO Ô TRÊN FORM WEB ACCESS
hieuvn > 25-04-18, 10:57 AM
nếu bạn nhập qua webcontrol thì phải biết được name hoặc id của textbox, sau khi biết id hoặc name thì gán giá trị cho nó cũng đơn giản thôi:
...
HTML.getElementsByName("name của textbox").innerText="123456".
have fun -
RE: NHẬP DỮ LIỆU VÀO Ô TRÊN FORM WEB ACCESS
trungn077 > 25-04-18, 11:55 AM
(25-04-18, 10:57 AM)hieuvn Đã viết: nếu bạn nhập qua webcontrol thì phải biết được name hoặc id của textbox, sau khi biết id hoặc name thì gán giá trị cho nó cũng đơn giản thôi:
...
HTML.getElementsByName("name của textbox").innerText="123456".
have fun
Báo lỗi ngay chữ HTML rồi hieuvn ơi! Run code thì ngay chữ HTML bị bôi đen rồi.
Mã:Me.wbbWebsite.SetFocus
HTML.getElementsByName("txtUserName").innerText = "123456" -
RE: NHẬP DỮ LIỆU VÀO Ô TRÊN FORM WEB ACCESS
trungn077 > 25-04-18, 11:58 AM
(25-04-18, 11:55 AM)trungn077 Đã viết:
(25-04-18, 10:57 AM)hieuvn Đã viết: nếu bạn nhập qua webcontrol thì phải biết được name hoặc id của textbox, sau khi biết id hoặc name thì gán giá trị cho nó cũng đơn giản thôi:
...
HTML.getElementsByName("name của textbox").innerText="123456".
have fun
Báo lỗi ngay chữ HTML rồi hieuvn ơi! Run code thì ngay chữ HTML bị bôi đen rồi.
Mã:Me.wbbWebsite.SetFocus
HTML.getElementsByName("txtUserName").innerText = "123456"
- Mình đã lấy tên từ Source của Web đang hiển thị:
- hieuvn xem giúp, tks!Mã:</tr>
<tr>
<td width="26%"><b>Tên truy nhập</b></td>
<td width="294" colspan="2"><input type="text" name="txtUserName" size="20" maxlength="20"></td>
</tr>
<tr>
<td width="26%"><b>Mật khẩu</b></td>
<td width="148"><input type="password" name="txtPassword" size="20" maxlength="20"></td>
<td width="37%"><a href="recoverpass.htm">Quên mật khẩu</a></td>
</tr>
<tr>
-
RE: NHẬP DỮ LIỆU VÀO Ô TRÊN FORM WEB ACCESS
hieuvn > 25-04-18, 04:34 PM
mình chỉ gợi ý nên viết không đầy đủ. bạn phải khai báo HTML:
dim HTML as Object
Set HTML = Me.wbbWebsite.Object.Document
Dim txtUsername As Object
Set txtUsername = HTML.All("txtUserName")
txtUsername.InnerText = "123456".
bạn thử xem được không nhé. -
RE: NHẬP DỮ LIỆU VÀO Ô TRÊN FORM WEB ACCESS
trungn077 > 25-04-18, 06:47 PM
(25-04-18, 04:34 PM)hieuvn Đã viết: mình chỉ gợi ý nên viết không đầy đủ. bạn phải khai báo HTML:
dim HTML as Object
Set HTML = Me.wbbWebsite.Object.Document
Dim txtUsername As Object
Set txtUsername = HTML.All("txtUserName")
txtUsername.InnerText = "123456".
bạn thử xem được không nhé.
Không thể nào tốt hơn được nữa, Cám ơn hieuvn rất nhiều. Thành công 100%
Mình đã tìm mãi trên Internet mấy ngày trời, tsk cao thủ Access hieuvn!
Nhớ không lầm là lần trước cũng hieuvn giúp mình làm code gửi Mail trên Internet có kèm tệp tin, thật tuyệt vời!
Mã:Dim HTML As Object
Set HTML = Me.wbbWebsite.Object.Document
Dim txtUsername As Object
Dim txtPassword As Object
Set txtUsername = HTML.all("txtUserName")
Set txtPassword = HTML.all("txtPassword")
txtUsername.InnerText = "****"
txtPassword.InnerText = "****" -
RE: NHẬP DỮ LIỆU VÀO Ô TRÊN FORM WEB ACCESS
hieuvn > 25-04-18, 10:04 PM
rất vui vì giúp được bạn hoàn thành công việc. -
RE: NHẬP DỮ LIỆU VÀO Ô TRÊN FORM WEB ACCESS
trungn077 > 25-04-18, 10:35 PM
(25-04-18, 10:04 PM)hieuvn Đã viết: rất vui vì giúp được bạn hoàn thành công việc.
Có luôn đoạn code nhấn luôn nút lệnh trên Web đó luôn không hieuvn.
VD: khi đã nhập user và pass, trên đó có nút cmdLogin. Mình có thể dùng code thế cho cách click chuột vào nút đó luôn không?
- Chẳng hạn, khi mình load form lên. Sử dùng code trên để điền user và pass vào Web rồi, thì trên Web có nút cmdLogin, mình phải nhấn chuột vào đó hoặc Enter, mình muốn nó tự nhấn bằng code để vào thẳng trang Web luôn có đc không? (Nút Login nằm trên WebControl nhé!, chứ ko nằm trên form Access)
- Vì vào trong Web mình còn một số nút nhấn, nếu đc áp dụng cách này thì nhanh quá! Tks hieuvn, nếu đc thì cho xin thêm đoạn code đó luôn, lỡ làm phiền...
-
RE: NHẬP DỮ LIỆU VÀO Ô TRÊN FORM WEB ACCESS
hieuvn > 26-04-18, 09:42 AM
Hi, mình có ít dữ kiện quá nên không thể test xem code có chạy hay không nhưng cú pháp thì có thể sử dụng như sau:
sau khi fill username + pass rồi thì click bằng vba code :
HTML.all.Item("Tên của nút login").Click -
RE: NHẬP DỮ LIỆU VÀO Ô TRÊN FORM WEB ACCESS
trungn077 > 26-04-18, 02:52 PM
(26-04-18, 09:42 AM)hieuvn Đã viết: Hi, mình có ít dữ kiện quá nên không thể test xem code có chạy hay không nhưng cú pháp thì có thể sử dụng như sau:
sau khi fill username + pass rồi thì click bằng vba code :
HTML.all.Item("Tên của nút login").Click
Text Ok 100%, không biết nói gì ngoài hai chữ "Cám ơn". Một cảm giác thật tuyệt vời, tks hieuvn rất nhiều!
- Nhờ những đoạn code này, mình đã loading data lên Web được cả trăm thông tin trong vòng tít tắc....
-
RE: NHẬP DỮ LIỆU VÀO Ô TRÊN FORM WEB ACCESS
trungn077 > 30-04-18, 03:03 PM
(26-04-18, 02:52 PM)trungn077 Đã viết:
(26-04-18, 09:42 AM)hieuvn Đã viết: Hi, mình có ít dữ kiện quá nên không thể test xem code có chạy hay không nhưng cú pháp thì có thể sử dụng như sau:
sau khi fill username + pass rồi thì click bằng vba code :
HTML.all.Item("Tên của nút login").Click
Text Ok 100%, không biết nói gì ngoài hai chữ "Cám ơn". Một cảm giác thật tuyệt vời, tks hieuvn rất nhiều!
- Nhờ những đoạn code này, mình đã loading data lên Web được cả trăm thông tin trong vòng tít tắc....
Sao trên Webcontrol mình dùng lệnh Visible = True để hiện một thuộc tính bị ẩn mà không được vậy hieuvn.
Mã:Set HTML = Me.wbbWebsite.Object.Document
Dim CheckInXoa As Object
Set CheckInXoa = HTML.all("ctl00$ContentPlaceHolder1$grvKTDK$ctl09$grv$ctl02$IDCheckItem")
CheckInXoa.Visible = True
hieuvn có thể chỉ giúp mình sai chỗ nào không, làm mãi không được đau đầu quá!