Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Hỏi] NHẬP DỮ LIỆU VÀO Ô TRÊN FORM WEB ACCESS
#21
(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!  034 034 034
- 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.... 015 015  015

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...  021 021 021 . Hoặc ai đó cho mình ít kiến thức về phần này đi, rối quá...!
Chữ ký của trungn077 Xin chào, mình là trungn077, Tham gia http://thuthuataccess.com/forum từ ngày 09-07 -12.
ღღღღღTài sản của trungn077 (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#22
Đợi chờ, luôn là hạnh phúc.....!  040 040 
*** cho mình xin dấu . để khỏi bị trôi bài *** 
015 015 015
Chữ ký của trungn077 Xin chào, mình là trungn077, Tham gia http://thuthuataccess.com/forum từ ngày 09-07 -12.
ღღღღღTài sản của trungn077 (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#23
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.
Chữ ký của hieuvn Xin chào! Mình là hieuvn, thành viên của Thủ Thuật Access tham gia ngày Oct 2010.
ღღღღღTài sản của hieuvn (View All Items) ღღღღღ
Reply
Những người đã cảm ơn trungn077
#24
(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!  021 021 021
Chữ ký của trungn077 Xin chào, mình là trungn077, Tham gia http://thuthuataccess.com/forum từ ngày 09-07 -12.
ღღღღღTài sản của trungn077 (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#25
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ữ ký của trungn077 Xin chào, mình là trungn077, Tham gia http://thuthuataccess.com/forum từ ngày 09-07 -12.
ღღღღღTài sản của trungn077 (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#26
(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ữ ký của hieuvn Xin chào! Mình là hieuvn, thành viên của Thủ Thuật Access tham gia ngày Oct 2010.
ღღღღღTài sản của hieuvn (View All Items) ღღღღღ
Reply
Những người đã cảm ơn trungn077
#27
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
Chữ ký của trungn077 Xin chào, mình là trungn077, Tham gia http://thuthuataccess.com/forum từ ngày 09-07 -12.
ღღღღღTài sản của trungn077 (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#28
(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:

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
Chữ ký của trungn077 Xin chào, mình là trungn077, Tham gia http://thuthuataccess.com/forum từ ngày 09-07 -12.
ღღღღღTài sản của trungn077 (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#29
Đ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.  021 021 021
Chữ ký của trungn077 Xin chào, mình là trungn077, Tham gia http://thuthuataccess.com/forum từ ngày 09-07 -12.
ღღღღღTài sản của trungn077 (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#30
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.
Chữ ký của hieuvn Xin chào! Mình là hieuvn, thành viên của Thủ Thuật Access tham gia ngày Oct 2010.
ღღღღღTài sản của hieuvn (View All Items) ღღღღღ
Reply
Những người đã cảm ơn trungn077


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  Thiết lập form báo cáo Tình trạng đơn hàng (Lệnh sản xuất) feeling 1 183 05-11-18, 11:46 PM
Bài mới nhất: tranthanhan1962
  Xin nhờ giúp đỡ Access quản lý đội xe ô tô của công ty kinh doanh vận tải vuhuynh 4 333 28-10-18, 07:47 PM
Bài mới nhất: tt1212
  [Help] Đóng gói sản phẩm access ? ntt 7 683 30-08-18, 11:49 AM
Bài mới nhất: maidinhdan
  [Help] Đóng gói bài access ntt 3 463 24-06-18, 09:45 PM
Bài mới nhất: hieuvn
  [Help] Cần cao nhân làm giúp bt Access ngayhomqua004 1 293 22-05-18, 11:52 PM
Bài mới nhất: ongke0711

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ| PMA Nha Trang| Gỗ Acrylic Không Đường Line