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
-
NHẬP DỮ LIỆU VÀO Ô TRÊN FORM WEB ACCESS
trungn077 > 20-04-18, 07:37 PM
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!
-
RE: NHẬP DỮ LIỆU VÀO Ô TRÊN FORM WEB ACCESS
duynamvnn1208 > 21-04-18, 05:42 PM
Ủ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 -
RE: NHẬP DỮ LIỆU VÀO Ô TRÊN FORM WEB ACCESS
trungn077 > 21-04-18, 07:15 PM
(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]maidinhdan: http://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! -
RE: NHẬP DỮ LIỆU VÀO Ô TRÊN FORM WEB ACCESS
duynamvnn1208 > 22-04-18, 10:37 AM
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é
-
RE: NHẬP DỮ LIỆU VÀO Ô TRÊN FORM WEB ACCESS
trungn077 > 24-04-18, 06:13 PM
(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é
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.
- 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...
-
RE: NHẬP DỮ LIỆU VÀO Ô TRÊN FORM WEB ACCESS
trungn077 > 24-04-18, 06:21 PM
(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é
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.
- 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...
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! -
RE: NHẬP DỮ LIỆU VÀO Ô TRÊN FORM WEB ACCESS
duynamvnn1208 > 24-04-18, 09:46 PM
Đâ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
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 -
RE: NHẬP DỮ LIỆU VÀO Ô TRÊN FORM WEB ACCESS
ongke0711 > 24-04-18, 11:26 PM
(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.
- 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...
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. -
RE: NHẬP DỮ LIỆU VÀO Ô TRÊN FORM WEB ACCESS
trungn077 > 25-04-18, 08:34 AM
(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.
- 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...
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! -
RE: NHẬP DỮ LIỆU VÀO Ô TRÊN FORM WEB ACCESS
trungn077 > 25-04-18, 09:29 AM
(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.
- 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...
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]