Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Dùng Form thống kê để mở form chi tiết
#1
Mình có 1 form thống kê để xem tất cả các sophieunhap ( hoặc xuất) và form nhập liệu,, như hình đính kèm,,,
làm cách nào khi mình click chuột vào From thống ke untitled1 thì sẽ mở sophieunhap kho tương ứng ở untited2

[Hình: untitled1.JPG]
[Hình: untitled2.JPG]

code mình như sau
Mã:
Private Sub sophieunhap_Click(Cancel As Integer)
DoCmd.OpenForm "FnhapnoiboMrdung", , , "sophieunhap=" ' & [sophieunhap] & "'"
End Sub
kết quả sai ,,, nhờ anh chị giúp đỡ ,,,, chúc anh chị cuồi tuần vui vẻ
Chữ ký của cuong0202 Xin chào, mình là cuong0202, Tham gia http://thuthuataccess.com/forum từ ngày 11-01 -13.
Reply
Những người đã cảm ơn
#2
Tại form sophieunhap nhap bạn nhập đoạn này xem thế nào
Mã:
Private Sub form_DblClick(Cancel As Integer)
On Error Resume Next
DoCmd.OpenForm "Fnhapnoibomrdung", acNormal, , "[sophieunhap] = [Forms]![sophieunhap]![sophieunhap]"
End Sub
Khi double click đầu dòng form sophieunhap sẽ mở form Fnhapnoimrdung
Reply
Những người đã cảm ơn cuong0202
#3
gởi csdl lên đi bạn, nói chay thì cũng chẳng biết nói gì cho bạn làm được. @@
Chữ ký của quan_pc Lắp đặt Internet VNPT tại Điện Bàn - Quảng Nam - Hotline: 0915.636.745
ღღღღღTài sản của quan_pc (View All Items) ღღღღღ
Reply
Những người đã cảm ơn cuong0202
#4
Posted by quan_pc - 03-08-13 09:26 PM
gởi csdl lên đi bạn, nói chay thì cũng chẳng biết nói gì cho bạn làm được. @@


Đây là file của em,,,

http://www.mediafire.com/?s04hih9h09bd14b


Posted by ttm20062008 - 03-08-13 03:36 PM
Tại form sophieunhap nhap bạn nhập đoạn này xem thế nào
Mã:
Private Sub form_DblClick(Cancel As Integer)
On Error Resume Next
DoCmd.OpenForm "Fnhapnoibomrdung", acNormal, , "[sophieunhap] = [Forms]![sophieunhap]![sophieunhap]"
End Sub
Khi double click đầu dòng form sophieunhap sẽ mở form Fnhapnoimrdung

Mình làm rồi,,nhưng không dc bạn oi....hic
Chữ ký của cuong0202 Xin chào, mình là cuong0202, Tham gia http://thuthuataccess.com/forum từ ngày 11-01 -13.
Reply
Những người đã cảm ơn
#5
Trong code trên của Cuong0202 thấy có khả năng là Access không thể nhận biết đc vì trong Form Thống kê đặt tên của Combo để chọn số phiều nhhập lại trùng tên với cột sophieunhap kho tương ứng ở untited2
nên nó không hiểu ......nếu đổi tên của Combo để chọn số phiều nhhập trong Form thống kê =Combophieu thì chắc không lỗi đâu
VDỤ : DoCmd.OpenForm "FnhapnoiboMrdung", , , "sophieunhap=" ' & [Combosophieunhap] & "'"
xem sao
Vì chương trình của Cuong0202 chạy trên Office 2010 máy này không có cài nhưng tham khảo code sau:

Private Sub Command75_Click()
If IsNull(Combosophieu) = True Then
Msgbox "Khong co DL" & Chr(10) & "Phai Chon So phieu ", vbCritical, "Khai Vat Tu "
Else
DoCmd.OpenForm "F NHAP VAT TU1", , , "Sophieu='" & [Combosophieu] & "'"
End If
End Sub

Nghiên cứu xem ,Có gì thì hồi âm lại sau nhé .Chúc thành công !
Khải Nguyên
Chữ ký của khải nguyên Khải Nguyên Xin Gửi lời chào tới Tất cả các bạn trên Diễn Đàn Thủ Thuật Access
Chúc cả nhà may mắn và  thành đạt ! Lightbulb
Reply
Những người đã cảm ơn cuong0202
#6
(05-08-13, 11:17 PM)khải nguyên Đã viết: VDỤ : DoCmd.OpenForm "FnhapnoiboMrdung", , , "sophieunhap=" ' & [Combosophieunhap] & "'"

Private Sub Command75_Click()
If IsNull(Combosophieu) = True Then
Msgbox "Khong co DL" & Chr(10) & "Phai Chon So phieu ", vbCritical, "Khai Vat Tu "
Else
DoCmd.OpenForm "F NHAP VAT TU1", , , "Sophieu='" & [Combosophieu] & "'"
End If
End Sub
em làm theo ,, nhưng bị báo lỗi,,,

với lại link em đính kèm,, đã chuyển file thành 2003
http://www.mediafire.com/?s04hih9h09bd14b

[Hình: loiac.JPG]

(03-08-13, 04:36 PM)ttm20062008 Đã viết: Tại form sophieunhap nhap bạn nhập đoạn này xem thế nào
Mã:
Private Sub form_DblClick(Cancel As Integer)
On Error Resume Next
DoCmd.OpenForm "Fnhapnoibomrdung", acNormal, , "[sophieunhap] = [Forms]![sophieunhap]![sophieunhap]"
End Sub
Khi double click đầu dòng form sophieunhap sẽ mở form Fnhapnoimrdung

cảm ơn sự giúp đỡ của bạn ttm20062008 - KHai Nguyen cùng moi người rất nhiều rất nhieu ,,mình làm dc rồi,,, chân thành cảm ơn,,,

Mã:
Private Sub combosophieunhap_DblClick(Cancel As Integer)
DoCmd.OpenForm "FnhapnoiboMrdung", , , "sophieunhap=[forms]![FxemsophieunhapkhoMrdung]![combosophieunhap]"
End Sub
Chữ ký của cuong0202 Xin chào, mình là cuong0202, Tham gia http://thuthuataccess.com/forum từ ngày 11-01 -13.
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
  [Hỏi] Refresh Form và tiếp tục hoạt động Godspear 2 47 3 Giờ trước
Bài mới nhất: Godspear
  [Hỏi] Cách thêm dữ liệu vào form Main_Sub NganNguyen 1 38 06-12-16, 02:23 AM
Bài mới nhất: maidinhdan
  Tự động hiện Form khi loading hết thời gian ChiMai 1 49 02-12-16, 08:59 PM
Bài mới nhất: ongke0711
Photo [Hỏi] Mở Form trên access 2007 báo lỗi jason 5 195 22-11-16, 09:23 AM
Bài mới nhất: jason
  Query hiện lên trên form? feeling 4 165 09-11-16, 09:49 PM
Bài mới nhất: toancvp

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ơ