Tùy chọn
NHẬP DỮ LIỆU VÀO Ô TRÊN FORM WEB ACCESS
- NHẬP DỮ LIỆU VÀO Ô TRÊN FORM WEB ACCESS
-
RE: NHẬP DỮ LIỆU VÀO Ô TRÊN FORM WEB ACCESS
trungn077 > 30-04-18, 08:36 PM
(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á...!
-
RE: NHẬP DỮ LIỆU VÀO Ô TRÊN FORM WEB ACCESS
trungn077 > 02-05-18, 06:49 AM
Đợi chờ, luôn là hạnh phúc.....!
*** cho mình xin dấu . để khỏi bị trôi bài ***
-
RE: NHẬP DỮ LIỆU VÀO Ô TRÊN FORM WEB ACCESS
hieuvn > 02-05-18, 04:02 PM
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. -
RE: NHẬP DỮ LIỆU VÀO Ô TRÊN FORM WEB ACCESS
trungn077 > 02-05-18, 04:19 PM
(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!
-
RE: NHẬP DỮ LIỆU VÀO Ô TRÊN FORM WEB ACCESS
trungn077 > 02-05-18, 04:21 PM
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? -
RE: NHẬP DỮ LIỆU VÀO Ô TRÊN FORM WEB ACCESS
hieuvn > 02-05-18, 04:34 PM
(02-05-18, 04:21 PM)trungn077 Đã viết:
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.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?
"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") -
RE: NHẬP DỮ LIỆU VÀO Ô TRÊN FORM WEB ACCESS
trungn077 > 02-05-18, 04:41 PM
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...!
Mã:'Doan code cho Enabled cac o TextBox trên WebForm
'Set HTML = Me.wbbWebsite.Object.Document
Dim Ma As Object
'Lay ten ID chu khong lay Name
Set Ma = HTML.all.Item("ctl00_ContentPlaceHolder1_txtNgayGuiTuNgay")
Ma.disabled = False -
RE: NHẬP DỮ LIỆU VÀO Ô TRÊN FORM WEB ACCESS
trungn077 > 02-05-18, 04:55 PM
(02-05-18, 04:34 PM)hieuvn Đã viết:
(02-05-18, 04:21 PM)trungn077 Đã viết:
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.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?
"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:
Mã:Set HTML = Me.wbbWebsite.Object.Document
Dim CheckInXoa As Object
Set CheckInXoa = HTML.all.Item("ctl00$ContentPlaceHolder1$grvKTDK$ctl05$grv$ctl02$IDCheckItem")
'Check dau v (OK)
CheckInXoa.CHECKED = True
'Làm mo thuoc tinh (OK)
CheckInXoa.disabled = False -
RE: NHẬP DỮ LIỆU VÀO Ô TRÊN FORM WEB ACCESS
trungn077 > 02-05-18, 04:59 PM
Đ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.
-
RE: NHẬP DỮ LIỆU VÀO Ô TRÊN FORM WEB ACCESS
hieuvn > 02-05-18, 05:01 PM
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.