(30-04-18, 03:03 PM)trungn077 Đã viết:

(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á!

Mình quên nói rõ, cái mà mình muốn hiển thị lên là CheckBox bị Ẩn mất (Visible). Mình xin đoạn code cho hiển thị lên, nhờ hieuvn giúp đỡ. Xin cám ơn!
(Trước khi hỏi, mình cũng đã tìm mãi trên mạng, dùng đủ kiểu mà ko tài nào làm đc. Gán giá trị True/False thì mình làm đc, cái này pó tay nên đành lên đây phiền ae tiếp. Phiền quá, xin lỗi vì kiến thức hạn hẹp mà tập tành...   . Hoặc ai đó cho mình ít kiến thức về phần này đi, rối quá...!

Đợi chờ, luôn là hạnh phúc.....!   
*** cho mình xin dấu . để khỏi bị trôi bài *** 

Trên trang web việc ẩn hay hiện control là có ý đồ cả, việc người dùng bình thường không đủ quyền thực hiện tác vụ đó thì ẩn la đương nhiên. Chú làm hiện hình hết là không được đâu! anh gợi ý thôi nha,không chịu trách nhiệm gì với trang web của công ty chú.
Đùa tý cho vui, chú thử như thế này được không nhé:
CheckInXoa.Style.display = "inline"
hoặc:
CheckInXoa.Style.visibility = "visible"

Have fun.

(02-05-18, 04:02 PM)hieuvn Đã viết: Trên trang web việc ẩn hay hiện control là có ý đồ cả, việc người dùng bình thường không đủ quyền thực hiện tác vụ đó thì ẩn la đương nhiên. Chú làm hiện hình hết là không được đâu! anh gợi ý thôi nha,không chịu trách nhiệm gì với trang web của công ty chú.
Đùa tý cho vui, chú thử như thế này được không nhé:
CheckInXoa.Style.display = "inline"
hoặc:
CheckInXoa.Style.visibility = "visible"

Have fun.

Code này không được rồi a hieuvn ơi! 

A xem giúp e khai báo đúng không?

(02-05-18, 04:21 PM)trungn077 Đã viết:

Mã:

Set HTML = Me.wbbWebsite.Object.Document
               
                     Dim CheckInXoa  As Object
                       Set CheckInXoa = HTML.all.Item("ctl00$ContentPlaceHolder1$grvKTDK$ctl05$grv$ctl02$IDCheckItem")
                        CheckInXoa.Style.visibility = "visible"

A xem giúp e khai báo đúng không?

Chú phải biết được name hoặc Id của checkbox này, anh không có mã nguồn của trang web thì chịu.
"ctl00$ContentPlaceHolder1$grvKTDK$ctl05$grv$ctl02$IDCheckItem" chắc chắn không phải Id của control này.
Nếu biết được Id thì set lại như sau:
Set CheckInXoa =HTML.GetElementById("Id của checkbox")

Thật ra là chẳng có ý đồ gì đâu, trên các Form có các ô nhập liệu TextBox: VD: có khoản 10 ô.

Khi nhập từng ô một, từ trên xuống dưới. Nhập xong thông tin ở trên thì thông tin bên dưới mới hiện ra. E muốn cho nó hiện hết 1 lần lun rồi Add dữ liệu từ Table cảu Access qua 1 lần cho nhanh, chứ mỗi lần nhập xong phải Enter thì mất thời gian quá. Code làm sáng thì e làm đc, cái này pó tay...!

(02-05-18, 04:34 PM)hieuvn Đã viết:

(02-05-18, 04:21 PM)trungn077 Đã viết:

Mã:

Set HTML = Me.wbbWebsite.Object.Document
               
                     Dim CheckInXoa  As Object
                       Set CheckInXoa = HTML.all.Item("ctl00$ContentPlaceHolder1$grvKTDK$ctl05$grv$ctl02$IDCheckItem")
                        CheckInXoa.Style.visibility = "visible"

A xem giúp e khai báo đúng không?

Chú phải biết được name hoặc Id của checkbox này, anh không có mã nguồn của trang web thì chịu.
"ctl00$ContentPlaceHolder1$grvKTDK$ctl05$grv$ctl02$IDCheckItem" chắc chắn không phải Id của control này.
Nếu biết được Id thì set lại như sau:
Set CheckInXoa =HTML.GetElementById("Id của checkbox")

Đó chắc chắn là Name của control này a. vì đoạn code sau e đã làm cho (mờ/ sáng) và Check (V) là OK. Nhưng mỗi cái Ẩn và hiện là ko đc. Code chạy OK nè a, a xem qua:

Đoạn này của a vẫn báo lỗi:
- Set CheckInXoa =HTML.GetElementById("Id của checkbox")

 CheckInXoa.Style.display = "inline"
hoặc:
CheckInXoa.Style.visibility = "visible"

E đã thử 2 cách nhưng thua. 

Anh chịu rồi, chú chờ có cao nhân nào ghé qua chỉ điểm cho.
Cao nhân nhiều lắm,chịu khó chờ đi.

Have Fun.