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




code mình như sau
kết quả sai ,,, nhờ anh chị giúp đỡ ,,,, chúc anh chị cuồi tuần vui vẻ

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 Fnhapnoimrdung

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. @@

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

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

(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

---

(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,,,