Tùy chọn
Dùng Form thống kê để mở form chi tiết
- Dùng Form thống kê để mở form chi tiết
-
Dùng Form thống kê để mở form chi tiết
cuong0202 > 03-08-13, 12:41 PM
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]](https://lh5.googleusercontent.com/-wxHPXHOBATs/UfyJSm4iFSI/AAAAAAAAA_U/S4kvQ6ysez8/untitled1.JPG)
![[Hình: untitled2.JPG]](https://lh4.googleusercontent.com/-GfRsg5Ub6Gs/UfyJTbNWRqI/AAAAAAAAA_c/CCVTDBgSUcI/untitled2.JPG)
code mình như sau
kết quả sai ,,, nhờ anh chị giúp đỡ ,,,, chúc anh chị cuồi tuần vui vẻMã:Private Sub sophieunhap_Click(Cancel As Integer)
DoCmd.OpenForm "FnhapnoiboMrdung", , , "sophieunhap=" ' & [sophieunhap] & "'"
End Sub -
RE: Dùng Form thống kê để mở form chi tiết
ttm20062008 > 03-08-13, 04:36 PM
Tại form sophieunhap nhap bạn nhập đoạn này xem thế nào
Khi double click đầu dòng form sophieunhap sẽ mở form FnhapnoimrdungMã:Private Sub form_DblClick(Cancel As Integer)
On Error Resume Next
DoCmd.OpenForm "Fnhapnoibomrdung", acNormal, , "[sophieunhap] = [Forms]![sophieunhap]![sophieunhap]"
End Sub -
RE: Dùng Form thống kê để mở form chi tiết
quan_pc > 03-08-13, 10: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. @@ -
RE: Dùng Form thống kê để mở form chi tiết
cuong0202 > 05-08-13, 10:48 AM
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 -
RE: Dùng Form thống kê để mở form chi tiết
khải nguyên > 05-08-13, 11:17 PM
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 -
RE: Dùng Form thống kê để mở form chi tiết
cuong0202 > 06-08-13, 09:46 AM
(05-08-13, 11:17 PM)khải nguyên Đã viết: VDỤ : DoCmd.OpenForm "FnhapnoiboMrdung", , , "sophieunhap=" ' & [Combosophieunhap] & "'"
em làm theo ,, nhưng bị báo lỗi,,,
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
với lại link em đính kèm,, đã chuyển file thành 2003
http://www.mediafire.com/?s04hih9h09bd14b
![[Hình: loiac.JPG]](https://lh5.googleusercontent.com/-QgRRqBGf0lE/UgBVPDUAnYI/AAAAAAAAA_8/VAdDBCXJY0Y/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
Khi double click đầu dòng form sophieunhap sẽ mở form FnhapnoimrdungMã:Private Sub form_DblClick(Cancel As Integer)
On Error Resume Next
DoCmd.OpenForm "Fnhapnoibomrdung", acNormal, , "[sophieunhap] = [Forms]![sophieunhap]![sophieunhap]"
End Sub
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