Đá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
#1
Mình có form Access để duyệt Website. Ví dụ như form Load trang Thủ Thuật Access lên, phía trên trang có ô Tìm kiếm của Web. Mình muốn làm 1 nút nhấn trên form khi nhấn vào sẽ gán giá trị do mình cho trước hoặc từ 1 textbox vào.
Ví dụ: khi load form lên, mình đặt giá trị là "123456". và khi mình nhấn nút thì trên ô tìm kiếm của Thủ Thuật Access sẽ hiển thị "123456" luôn chứ không cần phải nhập tay vào nữa. Mong mọi người giúp đỡ, xin cám ơn!


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
#2
Ủa vậy thế là bạn chạy Access hay Webite vậy? FrameWork khác nhau nên mình cũng không biết bạn đang dùng cái gì nữa
Chữ ký của duynamvnn1208 duynamvnn1208,gia nhập Thủ Thuật Access từ 25-06 -17.
Reply
Những người đã cảm ơn trungn077
#3
(21-04-18, 05:42 PM)duynamvnn1208 Đã viết: Ủa vậy thế là bạn chạy Access hay Webite vậy? FrameWork khác nhau nên mình cũng không biết bạn đang dùng cái gì nữa

Ví dụ như file này của bác [b]maidinhdanhttp://thuthuataccess.com/forum/thread-8463.html[/b]

- Bạn tải về và tạo một nút nhấn trên Form, khi nhấn nút lệnh thì cho gán giá trị "123456" hoặc từ TextBox trên form vào ô tìm kiếm của trang ThuThuatAccess đã được Load lên từ Form này!

- Mình giải thích cụ thể như này, do mình phải nhập rất nhiều thông tin từ bảng của Access qua 1 trang Website gồm rất nhiều cái textbox nhập liệu, do vậy. Mình đã Load trực tiếp trang Web này từ Form của Access và sau đó copy các dữ liệu này qua từng dòng 1. Nên mình xin code chuyển thẳng dữ liệu từ textbox trên form Access này sang textbox của trang Web cũng đc Load từ form Access này. Mong mọi người giúp đỡ, xin cám ơn!
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
#4
Mình chưa dùng kỹ thuật này bao giờ, nhưng mình nghĩ cần dùng đến javascript. Việc dùng thư viện Ms Internet Control chỉ để hiển thị một tên miền html lên thôi.

Vài bữa nữa rảnh mình test thử xem có được không. Sr vì kiến thức hạn hẹp nhé big green
Chữ ký của duynamvnn1208 duynamvnn1208,gia nhập Thủ Thuật Access từ 25-06 -17.
Reply
Những người đã cảm ơn trungn077
#5
(22-04-18, 10:37 AM)duynamvnn1208 Đã viết: Mình chưa dùng kỹ thuật này bao giờ, nhưng mình nghĩ cần dùng đến javascript. Việc dùng thư viện Ms Internet Control chỉ để hiển thị một tên miền html lên thôi.

Vài bữa nữa rảnh mình test thử xem có được không. Sr vì kiến thức hạn hẹp nhé big green

Tks! duynamvnn1208, hôm nào rãnh test  thử giúp mình cái nhek. Nhập liệu trên Internet nhiều textbox quá mà ngày nhập cả trăm trang.  021 021 021 
- Hiện mình dùng tạm cách copy và paste từ textbox trên form sang Internet Control, mà trên Internet Control mình dùng AutoKey (dùng 1 phím để paste cho nhanh nhưng không được). Nút đó chỉ chạy trên form (Phím tắt ==> lệnh paste). Còn trên Internet Control thì báo lỗi, nên mỗi phải dùng phím Ctrl + V để paste từng ô, mệt vãi cái ngón tay đơ cứng ra... 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
#6
(24-04-18, 06:13 PM)trungn077 Đã viết:
(22-04-18, 10:37 AM)duynamvnn1208 Đã viết: Mình chưa dùng kỹ thuật này bao giờ, nhưng mình nghĩ cần dùng đến javascript. Việc dùng thư viện Ms Internet Control chỉ để hiển thị một tên miền html lên thôi.

Vài bữa nữa rảnh mình test thử xem có được không. Sr vì kiến thức hạn hẹp nhé big green

Tks! duynamvnn1208, hôm nào rãnh test  thử giúp mình cái nhek. Nhập liệu trên Internet nhiều textbox quá mà ngày nhập cả trăm trang.  021 021 021 
- Hiện mình dùng tạm cách copy và paste từ textbox trên form sang Internet Control, mà trên Internet Control mình dùng AutoKey (dùng 1 phím để paste cho nhanh nhưng không được). Nút đó chỉ chạy trên form (Phím tắt ==> lệnh paste). Còn trên Internet Control thì báo lỗi, nên mỗi phải dùng phím Ctrl + V để paste từng ô, mệt vãi cái ngón tay đơ cứng ra... 021 021 021

Hoặc ai có cách nào có thể Dùng 1 phím chẳng hạng (F3 hoặc F4...) để paste dữ liệu đã copy được vào Internet Control không?
Thay vì phải dùng phím Ctrl + V cũng sẽ nhanh hơn và đỡ mõi tay hơn nhiều. Vì trên Internet Control không có thủ tục On Key.
Nếu Chuột đang nằm trên Form thì mình dùng Auto Key được, nhưng chuột trên ô Internet Control thì không được!
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
#7
Đây đúng là vấn đề khó. Bạn cố gắng nghĩ ra đường đi thôi.
Mình nghĩ ra cũng chẳng giúp được gì, vì cần có thời gian nghiên cứu code. Mà công việc thì đâu có dừng được happy
Nhiều khi không có động cơ nào tốt bằng động cơ chạy bằng cơm đâu bạn
Chữ ký của duynamvnn1208 duynamvnn1208,gia nhập Thủ Thuật Access từ 25-06 -17.
Reply
Những người đã cảm ơn
#8
(24-04-18, 06:13 PM)trungn077 Đã viết: .. Nhập liệu trên Internet nhiều textbox quá mà ngày nhập cả trăm trang.  021 021 021 
- Hiện mình dùng tạm cách copy và paste từ textbox trên form sang Internet Control, mà trên Internet Control mình dùng AutoKey (dùng 1 phím để paste cho nhanh nhưng không được). Nút đó chỉ chạy trên form (Phím tắt ==> lệnh paste). Còn trên Internet Control thì báo lỗi, nên mỗi phải dùng phím Ctrl + V để paste từng ô, mệt vãi cái ngón tay đơ cứng ra... 021 021 021

Nếu không hiểu lầm tức là bạn có một ứng dụng trên nền web dùng nhập liệu và bạn muốn tự động chuyển dữ liệu từ table access sang cho nhanh?
Thường thì ứng dụng Web này sẽ có CSDL là MySQL hoặc SQL Server hoặc Access Database luôn. Vậy tại sao bạn không ngâm cứu cái cách là import thẳng dữ liệu của table Access sang CSDL của ứng dụng web này luôn hoặc liên hệ web admin để hỗ trợ. Không biết có hiểu sai không.
Chữ ký của ongke0711 If you BORN poor, it's not your mistake. But if you DIE poor, It's your mistake!
ღღღღღTài sản của ongke0711 (View All Items) ღღღღღ
Reply
Những người đã cảm ơn trungn077
#9
(24-04-18, 11:26 PM)ongke0711 Đã viết:
(24-04-18, 06:13 PM)trungn077 Đã viết: .. Nhập liệu trên Internet nhiều textbox quá mà ngày nhập cả trăm trang.  021 021 021 
- Hiện mình dùng tạm cách copy và paste từ textbox trên form sang Internet Control, mà trên Internet Control mình dùng AutoKey (dùng 1 phím để paste cho nhanh nhưng không được). Nút đó chỉ chạy trên form (Phím tắt ==> lệnh paste). Còn trên Internet Control thì báo lỗi, nên mỗi phải dùng phím Ctrl + V để paste từng ô, mệt vãi cái ngón tay đơ cứng ra... 021 021 021

Nếu không hiểu lầm tức là bạn có một ứng dụng trên nền web dùng nhập liệu và bạn muốn tự động chuyển dữ liệu từ table access sang cho nhanh?
Thường thì ứng dụng Web này sẽ có CSDL là MySQL hoặc SQL Server hoặc Access Database luôn. Vậy tại sao bạn không ngâm cứu cái cách là import thẳng dữ liệu của table Access sang CSDL của ứng dụng web này luôn hoặc liên hệ web admin để hỗ trợ. Không biết có hiểu sai không.

- Cty mình bắt nhập liệu vào 1 trang Website bên cty đối tác quản lý cty mình, bên mình có dùng 1 phần mền bằng Access để nhập thông tin khách hàng riêng, để cty mình quản lý nhân viên. Và bên đối tác bắt cty mình phải nhập những thông tin khách hàng đó vào Website này. (Tức nhập 1 lần vào Access, 1 lần vào Website), mà thao tác lập lại như nhau (lập lại 2 lần).
- Mà MySQL hoặc SQL Server thì mình không rành chút nào, nên mình dùng form Access để load trang Website này lên (nằm bên trái form, bên phải form mình lấy dữ liệu từ table Acces ra. Xong sau đó từ dữ liệu Access bên phải form mình copy rồi paste sang các textbox trên giao diện Web bên trái của form.
- Mà đối tác là Cấp quản lý của bên cty mình, nên không thể nào liên hệ web admin với lại mình cũng chẳng hiểu gì về Web cả.
- Bởi vậy, khi copy dữ liệu trên form Access thì mình dùng lệnh DBLick vào các textbox là tự copy, nhưng khi Click vào các ô trên cái Web Internet Control thì lệnh Paste không thực hiện được, đành vậy, mình phải paste bằng phím Ctrl + V. Một ngày cả trăm thông tin khách hàng, mỗi khách hàng nhập cả chục dòng. Bấm phím Ctrl + V đến nỗi đơ cái tay ra luôn. Mong bạn giúp đỡ, tks!
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
#10
(25-04-18, 08:34 AM)trungn077 Đã viết:
(24-04-18, 11:26 PM)ongke0711 Đã viết:
(24-04-18, 06:13 PM)trungn077 Đã viết: .. Nhập liệu trên Internet nhiều textbox quá mà ngày nhập cả trăm trang.  021 021 021 
- Hiện mình dùng tạm cách copy và paste từ textbox trên form sang Internet Control, mà trên Internet Control mình dùng AutoKey (dùng 1 phím để paste cho nhanh nhưng không được). Nút đó chỉ chạy trên form (Phím tắt ==> lệnh paste). Còn trên Internet Control thì báo lỗi, nên mỗi phải dùng phím Ctrl + V để paste từng ô, mệt vãi cái ngón tay đơ cứng ra... 021 021 021

Nếu không hiểu lầm tức là bạn có một ứng dụng trên nền web dùng nhập liệu và bạn muốn tự động chuyển dữ liệu từ table access sang cho nhanh?
Thường thì ứng dụng Web này sẽ có CSDL là MySQL hoặc SQL Server hoặc Access Database luôn. Vậy tại sao bạn không ngâm cứu cái cách là import thẳng dữ liệu của table Access sang CSDL của ứng dụng web này luôn hoặc liên hệ web admin để hỗ trợ. Không biết có hiểu sai không.

- Cty mình bắt nhập liệu vào 1 trang Website bên cty đối tác quản lý cty mình, bên mình có dùng 1 phần mền bằng Access để nhập thông tin khách hàng riêng, để cty mình quản lý nhân viên. Và bên đối tác bắt cty mình phải nhập những thông tin khách hàng đó vào Website này. (Tức nhập 1 lần vào Access, 1 lần vào Website), mà thao tác lập lại như nhau (lập lại 2 lần).
- Mà MySQL hoặc SQL Server thì mình không rành chút nào, nên mình dùng form Access để load trang Website này lên (nằm bên trái form, bên phải form mình lấy dữ liệu từ table Acces ra. Xong sau đó từ dữ liệu Access bên phải form mình copy rồi paste sang các textbox trên giao diện Web bên trái của form.
- Mà đối tác là Cấp quản lý của bên cty mình, nên không thể nào liên hệ web admin với lại mình cũng chẳng hiểu gì về Web cả.
- Bởi vậy, khi copy dữ liệu trên form Access thì mình dùng lệnh DBLick vào các textbox là tự copy, nhưng khi Click vào các ô trên cái Web Internet Control thì lệnh Paste không thực hiện được, đành vậy, mình phải paste bằng phím Ctrl + V. Một ngày cả trăm thông tin khách hàng, mỗi khách hàng nhập cả chục dòng. Bấm phím Ctrl + V đến nỗi đơ cái tay ra luôn. Mong bạn giúp đỡ, tks!

- 2 đoạn code trên mình dùng trên form Access thì OK, nhưng trên Web Internet Control cửa Access chẳn ăn thua:
Cách 1:
Mã:
Function PasteDL()
[/size]
[size=small]'On Error Resume Next[/size]
[size=small]On Error GoTo err[/size]
[size=small]DoCmd.RunCommand acCmdPaste[/size]
[size=small]err:[/size]
[size=small]If err.Number = 2046 Then[/size]
[size=small]MsgBox "Khong the thuc hien lenh Paste", vbCritical, "Xin loi...!"[/size]
[size=small]End If[/size]
[size=small]End Function



Cách 2:
Mã:
Option Compare Database
[/size]

[size=small]Declare Function OpenClipboard Lib "User32" (ByVal hwnd As Long) _[/size]
[size=small]  As Long[/size]
[size=small]Declare Function CloseClipboard Lib "User32" () As Long[/size]
[size=small]Declare Function GetClipboardData Lib "User32" (ByVal wFormat As _[/size]
[size=small]  Long) As Long[/size]
[size=small]Declare Function GlobalAlloc Lib "kernel32" (ByVal wFlags&, ByVal _[/size]
[size=small]  dwBytes As Long) As Long[/size]
[size=small]Declare Function GlobalLock Lib "kernel32" (ByVal hMem As Long) _[/size]
[size=small]  As Long[/size]
[size=small]Declare Function GlobalUnlock Lib "kernel32" (ByVal hMem As Long) _[/size]
[size=small]  As Long[/size]
[size=small]Declare Function GlobalSize Lib "kernel32" (ByVal hMem As Long) _[/size]
[size=small]  As Long[/size]
[size=small]Declare Function lstrcpy Lib "kernel32" (ByVal lpString1 As Any, _[/size]
[size=small]  ByVal lpString2 As Any) As Long[/size]

[size=small]Public Const GHND = &H42[/size]
[size=small]Public Const CF_TEXT = 1[/size]
[size=small]Public Const MAXSIZE = 4096[/size]

[size=small]Function ClipBoard_GetData()[/size]
[size=small]  Dim hClipMemory As Long[/size]
[size=small]  Dim lpClipMemory As Long[/size]
[size=small]  Dim MyString As String[/size]
[size=small]  Dim RetVal As Long[/size]

[size=small]  If OpenClipboard(0&) = 0 Then[/size]
[size=small]     MsgBox "Cannot open Clipboard. Another app. may have it open"[/size]
[size=small]     Exit Function[/size]
[size=small]  End If[/size]
[size=small]        [/size]
[size=small]  ' Obtain the handle to the global memory[/size]
[size=small]  ' block that is referencing the text.[/size]
[size=small]  hClipMemory = GetClipboardData(CF_TEXT)[/size]
[size=small]  If IsNull(hClipMemory) Then[/size]
[size=small]     MsgBox "Could not allocate memory"[/size]
[size=small]     GoTo OutOfHere[/size]
[size=small]  End If[/size]

[size=small]  ' Lock Clipboard memory so we can reference[/size]
[size=small]  ' the actual data string.[/size]
[size=small]  lpClipMemory = GlobalLock(hClipMemory)[/size]

[size=small]  If Not IsNull(lpClipMemory) Then[/size]
[size=small]     MyString = Space$(MAXSIZE)[/size]
[size=small]     RetVal = lstrcpy(MyString, lpClipMemory)[/size]
[size=small]     RetVal = GlobalUnlock(hClipMemory)[/size]
[size=small]     [/size]
[size=small]     ' Peel off the null terminating character.[/size]
[size=small]     MyString = Mid(MyString, 1, InStr(1, MyString, Chr$(0), 0) - 1)[/size]
[size=small]  Else[/size]
[size=small]     MsgBox "Could not lock memory to copy string from."[/size]
[size=small]  End If[/size]

[size=small]OutOfHere:[/size]

[size=small]  RetVal = CloseClipboard()[/size]
[size=small]  ClipBoard_GetData = MyString[/size]

[size=small]End Function[/size]
[size=small]
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


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 197 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 684 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