Tùy chọn
Xin các bác giúp đỡ về Code nút Trở về Record trước đó khi đã bấm qua Record mới
- Xin các bác giúp đỡ về Code nút Trở về Record trước đó khi đã bấm qua Record mới
-
Xin các bác giúp đỡ về Code nút Trở về Record trước đó khi đã bấm qua Record mới
kaise86 > 10-03-13, 10:58 AM
closeeeeeeeeeeeee -
RE: Xin các bác giúp đỡ về Code nút Trở về Record trước đó khi đã bấm qua Record mới
nauthna > 10-03-13, 01:39 PM
(10-03-13, 10:58 AM)kaise86 Đã viết: Xin các bác giúp đỡ về Code nút Trở về Record trước đó khi đã bấm qua Record mới
Như hình, khi e bấm nút thêm, table sẽ nhảy về record mới, ý e là muốn bấm nút trờ về thì record sẽ trờ về Record đang đứng như lúc chưa bấm nút thêm
[img]![[Hình: Untitled-2_zpseed3b368.jpg]](http://i1236.photobucket.com/albums/ff449/kaise86/Untitled-2_zpseed3b368.jpg)
link file của em, Mong các bác chỉ giúp.
http://www.mediafire.com/download.php?dt9yop1ty9159tv
Như thế này bạn tạo biến trangthai as Boolean, biến luuvetrecord kiểu dữ liệu như khóa chính của bảng,
sự kiên click nút thêm bạn gán trangthai = true, luuvetrecord =me.khoachinhcuaban.value
su kien clck nút hủy bạn viết như thế này
If trangthai = True Then
Dim rs As Recordset
Set rs = Me.Recordset.Clone
rs.FindFirst "[khoachinh] = " & luuvetrecord
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End If
Mình đã test thành công trong chương trình của mình. -
RE: Xin các bác giúp đỡ về Code nút Trở về Record trước đó khi đã bấm qua Record mới
kaise86 > 10-03-13, 08:25 PM
(10-03-13, 01:39 PM)nauthna Đã viết:
A ơi, a post cái bài của a cho e được ko, e làm thì nó nhảy về dòng đầu.(10-03-13, 10:58 AM)kaise86 Đã viết: Xin các bác giúp đỡ về Code nút Trở về Record trước đó khi đã bấm qua Record mới
Như hình, khi e bấm nút thêm, table sẽ nhảy về record mới, ý e là muốn bấm nút trờ về thì record sẽ trờ về Record đang đứng như lúc chưa bấm nút thêm
[img]
link file của em, Mong các bác chỉ giúp.
http://www.mediafire.com/download.php?dt9yop1ty9159tv
Như thế này bạn tạo biến trangthai as Boolean, biến luuvetrecord kiểu dữ liệu như khóa chính của bảng,
sự kiên click nút thêm bạn gán trangthai = true, luuvetrecord =me.khoachinhcuaban.value
su kien clck nút hủy bạn viết như thế này
If trangthai = True Then
Dim rs As Recordset
Set rs = Me.Recordset.Clone
rs.FindFirst "[khoachinh] = " & luuvetrecord
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End If
Mình đã test thành công trong chương trình của mình. -
RE: Xin các bác giúp đỡ về Code nút Trở về Record trước đó khi đã bấm qua Record mới
nauthna > 11-03-13, 02:11 PM
(10-03-13, 08:25 PM)kaise86 Đã viết:
(10-03-13, 01:39 PM)nauthna Đã viết:
A ơi, a post cái bài của a cho e được ko, e làm thì nó nhảy về dòng đầu.(10-03-13, 10:58 AM)kaise86 Đã viết: Xin các bác giúp đỡ về Code nút Trở về Record trước đó khi đã bấm qua Record mới
Như hình, khi e bấm nút thêm, table sẽ nhảy về record mới, ý e là muốn bấm nút trờ về thì record sẽ trờ về Record đang đứng như lúc chưa bấm nút thêm
[img]
link file của em, Mong các bác chỉ giúp.
http://www.mediafire.com/download.php?dt9yop1ty9159tv
Như thế này bạn tạo biến trangthai as Boolean, biến luuvetrecord kiểu dữ liệu như khóa chính của bảng,
sự kiên click nút thêm bạn gán trangthai = true, luuvetrecord =me.khoachinhcuaban.value
su kien clck nút hủy bạn viết như thế này
If trangthai = True Then
Dim rs As Recordset
Set rs = Me.Recordset.Clone
rs.FindFirst "[khoachinh] = " & luuvetrecord
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End If
Mình đã test thành công trong chương trình của mình.
Sửa lại dòng này nè, do kiểu dữ liệu khóa chính của bạn là Text
rs.FindFirst "[Sochungtu] = ' " & luuvet & " ' "
mình test được rồi đó -
RE: Xin các bác giúp đỡ về Code nút Trở về Record trước đó khi đã bấm qua Record mới
Xuân Thanh > 11-03-13, 02:26 PM
1/ Dùng Macro :
Action : GoToRecord
Object Type : Form
Object Name : [Tên Form muốn gán Macro]
Record : Previous
Trên form tạo một commandbutton và gán sự kiện click bằng macro trên
2/ Dùng lệnh VBA
DoCmd.GoToRecord , , acPrevious
Thân mến -
RE: Xin các bác giúp đỡ về Code nút Trở về Record trước đó khi đã bấm qua Record mới
nauthna > 11-03-13, 02:31 PM
Thu tục LockObject của bạn nên viết như thế này cho tiện, đặt vào 1 module nào đó gọi cho tất cả các form trong chương trình.
Sub LockOject(frmAny As Form, khoa As Boolean)
Dim ctl As Control
For Each ctl In frmAny.Controls
' neu muon them loai dieu khien nao do cu them vao
If ctl.ControlType = acTextBox Or ctl.ControlType = acComboBox Or ctl.ControlType = acCheckBox Then
ctl.Locked = khoa
End If
Next ctl
End Sub
khi khóa điều khiển call lockobject(tenform,True)
khi mở điều khiển call lockobject(tenform,false) -
RE: Xin các bác giúp đỡ về Code nút Trở về Record trước đó khi đã bấm qua Record mới
kaise86 > 11-03-13, 02:39 PM
(11-03-13, 02:11 PM)nauthna Đã viết:
(10-03-13, 08:25 PM)kaise86 Đã viết:
(10-03-13, 01:39 PM)nauthna Đã viết:
A ơi, a post cái bài của a cho e được ko, e làm thì nó nhảy về dòng đầu.(10-03-13, 10:58 AM)kaise86 Đã viết: Xin các bác giúp đỡ về Code nút Trở về Record trước đó khi đã bấm qua Record mới
Như hình, khi e bấm nút thêm, table sẽ nhảy về record mới, ý e là muốn bấm nút trờ về thì record sẽ trờ về Record đang đứng như lúc chưa bấm nút thêm
[img]
link file của em, Mong các bác chỉ giúp.
http://www.mediafire.com/download.php?dt9yop1ty9159tv
Như thế này bạn tạo biến trangthai as Boolean, biến luuvetrecord kiểu dữ liệu như khóa chính của bảng,
sự kiên click nút thêm bạn gán trangthai = true, luuvetrecord =me.khoachinhcuaban.value
su kien clck nút hủy bạn viết như thế này
If trangthai = True Then
Dim rs As Recordset
Set rs = Me.Recordset.Clone
rs.FindFirst "[khoachinh] = " & luuvetrecord
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End If
Mình đã test thành công trong chương trình của mình.
Sửa lại dòng này nè, do kiểu dữ liệu khóa chính của bạn là Text
rs.FindFirst "[Sochungtu] = ' " & luuvet & " ' "
mình test được rồi đó
A ơi a post cái bài test lên dùm e được ko anh, e làm nó ko chạy, e dùng ctrl+G để kiểm tra thì cái biến Trangthai ko nhảy về true khi bấm nút thêm -
RE: Xin các bác giúp đỡ về Code nút Trở về Record trước đó khi đã bấm qua Record mới
kaise86 > 11-03-13, 02:55 PM
(11-03-13, 02:31 PM)nauthna Đã viết: Thu tục LockObject của bạn nên viết như thế này cho tiện, đặt vào 1 module nào đó gọi cho tất cả các form trong chương trình.
Cái này a viết thiếu cái call lockobject(form_tenform,True)
Sub LockOject(frmAny As Form, khoa As Boolean)
Dim ctl As Control
For Each ctl In frmAny.Controls
' neu muon them loai dieu khien nao do cu them vao
If ctl.ControlType = acTextBox Or ctl.ControlType = acComboBox Or ctl.ControlType = acCheckBox Then
ctl.Locked = khoa
End If
Next ctl
End Sub
khi khóa điều khiển call lockobject(tenform,True)
khi mở điều khiển call lockobject(tenform,false) -
RE: Xin các bác giúp đỡ về Code nút Trở về Record trước đó khi đã bấm qua Record mới
nauthna > 11-03-13, 03:11 PM
Dim trangthai as boolean
Dim luuvet as string
Khai báo hai biến này nằm tong form của bạn
Nút cmdThem như trong ct của bạn nè:
Private Sub CmdThem_Click()
On Error GoTo Err_cmdthem_Click
trangthai = True
luuvet = Me.Sochungtu.Value
Call UnlockObject
Me.Sochungtu.SetFocus
DoCmd.GoToRecord , , acNewRec
Me.CmdCuoi.Enabled = False
Me.CmdKe.Enabled = False
Me.CmdDau.Enabled = False
Me.CmdTruoc.Enabled = False
Me.CmdLuu.Enabled = True
Me.CmdLuu.SetFocus
Me.CmdThem.Enabled = False
Me.CmdSua.Enabled = False
Me.CmdTim.Enabled = False
Me.CmdXem.Enabled = False
Me.CmdXoa.Enabled = False
Me.CmdThoat.Enabled = False
Me.Sochungtu.SetFocus
Me.CmdTrove.Enabled = True
Exit_CmdThem_Click:
Exit Sub
Err_cmdthem_Click:
MsgBox Err.Description
Resume Exit_CmdThem_Click
End Sub
Nút cmdTroVe như trong ct của bạn nè:
Private Sub CmdTrove_Click()
If trangthai = True Then
Dim rs As Recordset
Set rs = Me.Recordset.Clone
rs.FindFirst "tblChungtu.Sochungtu = '" & luuvet & "'"
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
' Me.Sochungtu.SetFocus
'
End If
Call LockObject
Me.CmdDau.Enabled = True
Me.CmdTruoc.Enabled = True
Me.CmdCuoi.Enabled = True
Me.CmdKe.Enabled = True
Me.CmdThem.Enabled = True
Me.CmdLuu.Enabled = False
Me.CmdThem.SetFocus
Me.CmdTrove.Enabled = False
Me.CmdThem.SetFocus
Me.CmdSua.Enabled = True
Me.CmdTim.Enabled = True
Me.CmdXem.Enabled = True
Me.CmdXoa.Enabled = True
Me.CmdThoat.Enabled = True
End Sub -
RE: Xin các bác giúp đỡ về Code nút Trở về Record trước đó khi đã bấm qua Record mới
kaise86 > 11-03-13, 03:40 PM
Báo lỗi như này nè bác
[img]![[Hình: Untitled-2_zps4dfb930d.png]](http://i1236.photobucket.com/albums/ff449/kaise86/Untitled-2_zps4dfb930d.png)
Debug thì báo ngay đây Me.Bookmark = rs.Bookmark