giúp em tạo câu lệnh thông báo khi bấm vào nút print (1 người xem)

[ki_calvin]

em muốn hỏi anh chị cách tạo dong lệch thông báo,khi em dùng common button(in) tạo một nút lệch in để hiện report em muốn in. nhưng em tạo nhiều bạn report .và combo box đễ tạo danh sách mả em chọn để khi bấm vào nút in nó sẽ hiện ra report mà em cần in.nhưng khi em không chọn trong combox ds cần chon.mà bấm thẳng nut common buton(in) nó cũng hiện ra cái report cuối cùng mà em tạo .vậy em muốn hỏi mình làm cách nào tạo một câu lệch hiện ra câu thông báo là bạn chua chọn mục trong danh sách cấn in ?cám ơn anh chị.

 

[Hai Lúa Miền Tây]

em muốn hỏi anh chị cách tạo dong lệch thông báo,khi em dùng common button(in) tạo một nút lệch in để hiện report em muốn in. nhưng em tạo nhiều bạn report .và combo box đễ tạo danh sách mả em chọn để khi bấm vào nút in nó sẽ hiện ra report mà em cần in.nhưng khi em không chọn trong combox ds cần chon.mà bấm thẳng nut common buton(in) nó cũng hiện ra cái report cuối cùng mà em tạo .vậy em muốn hỏi mình làm cách nào tạo một câu lệch hiện ra câu thông báo là bạn chua chọn mục trong danh sách cấn in ?cám ơn anh chị.

Cho mình hỏi thêm là bạn đang sử dụng Access mấy 2000 hay 2003... ?

 

[Hai Lúa Miền Tây]

Gửi bạn file ví dụ về cách thiết lập trang in, chọn báo biểu để in.

 

[ki_calvin]

em dùng 2003,ah cho em hỏi thêm ,nêú em muốn mặc thiêt kế form làm sao khi mặc định không chỉnh đổ dài của form nữa.em thử vào format rồi nhưng em không biết chỉnh ở mục nào hết.em thấy giống cái vd của anh ấy.khi bấm sang xem form em chỉnh vào thử kéo form thi không tác dụng.em muốn hỏi làm sao làm được như vậy.

 

[ki_calvin]

nếu tạo cái dòng thông báo vậy ,mình sẻ chền câu lêch như thê nào?xin được hướng dẫn.

 

[ki_calvin]

em xin gửi cái file lên mong anh hướng dẫn ,em làm sai như thế nào ,nhưng khi em chọn đường dẫn từ form sang report nó không hiện ra dữ liệu và khi em bấm vao combo box chon tài khoản em muốn nó hiện ra tên congty và địa chỉ của tài khoản đó.,và hướng dẫn em cách chỉnh form theo một độ dài và ngang nhất định.em thử vào format nhưng chỉnh hết cũng không làm được

 

[Hai Lúa Miền Tây]

em xin gửi cái file lên mong anh hướng dẫn ,em làm sai như thế nào ,nhưng khi em chọn đường dẫn từ form sang report nó không hiện ra dữ liệu và khi em bấm vao combo box chon tài khoản em muốn nó hiện ra tên congty và địa chỉ của tài khoản đó.,và hướng dẫn em cách chỉnh form theo một độ dài và ngang nhất định.em thử vào format nhưng chỉnh hết cũng không làm được

Về phần Form bạn chỉnh như sau (Chỉng các thuộc tính của form bạn chỉnh ở phần Properties của form chứ ai lại chỉnh trong Format ?):

Thuộc tính của combobox:

Code của form:

Option Compare Database
Private Sub cmdtk_AfterUpdate()
Txttencty = UCase(cmdtk.Column(1))
txtdiachi = UCase(cmdtk.Column(2))
End Sub
Private Sub cmdIn_Click()
On Error GoTo Err_cmdIn_Click
    Dim stDocName As String
    stDocName = "r1"
    DoCmd.OpenReport stDocName, acPreview
Exit_cmdIn_Click:
    Exit Sub
Err_cmdIn_Click:
    Resume Exit_cmdIn_Click
    
End Sub

Record Source của Report:

SELECT tbtencty.tk, tbtencty.diachi, tbtencty.tencty
FROM tbtencty
WHERE (((tbtencty.tk) Like [forms]![frmcty]![cmdtk]));

Code của Report:

Option Compare Database
Private Sub Report_Close()
    DoCmd.Close acForm, "frmcty"
End Sub
Private Sub Report_NoData(Cancel As Integer)
MsgBox "Khong co gi de in ca...", vbExclamation, "Bao Bieu"
    Cancel = -1
    End Sub
Private Sub Report_Open(Cancel As Integer)
    DoCmd.OpenForm "frmcty", , , , , acDialog, "Bao Bieu"
    If Not IsLoaded("frmcty") Then
        Cancel = True
    End If
End Sub

Thêm 1 cái Module:

Option Compare Database
Option Explicit
Function IsLoaded(ByVal strFormName As String) As Integer
    
    Const conObjStateClosed = 0
    Const conDesignView = 0
    
    If SysCmd(acSysCmdGetObjectState, acForm, strFormName) <> conObjStateClosed Then
        If Forms(strFormName).CurrentView <> conDesignView Then
            IsLoaded = True
        End If
    End If
  
End Function

 

[ki_calvin]

anh cho em hỏi mấy cái code php anh có biết sách nào hay luồn nào viết gủi tặng cho em đi.vì em cũng có khá mập mờ .em muốn biết ý nghĩa của từng công thức và cách ứng dụng trong từng trường hợp. trường hợp nếu em bấm vào in chẳng hạn thì nó hiện thông báo thôi.mình không cần đóng lại thì em bỏ đi
Private Sub Report_Close()
DoCmd.Close acForm, "frmcty"
End Sub
đúng không anh ?

 

[Hai Lúa Miền Tây]

anh cho em hỏi mấy cái code php anh có biết sách nào hay luồn nào viết gủi tặng cho em đi.vì em cũng có khá mập mờ .em muốn biết ý nghĩa của từng công thức và cách ứng dụng trong từng trường hợp. trường hợp nếu em bấm vào in chẳng hạn thì nó hiện thông báo thôi.mình không cần đóng lại thì em bỏ đi
Private Sub Report_Close()
DoCmd.Close acForm, "frmcty"
End Sub
đúng không anh ?

Trên đây là code chỉ ví dụ cho bạn xem thôi, còn bạn muốn chỉnh sửa cho phù hợp với yêu cầu thì tuỳ bạn.
Bạn có thể vào Link sau để tải bộ giáo trình về học nhé.
http://www.4shared.com/file/191830141/c3fcc3d4/Giao_trinh_Access20001.html

 

[ki_calvin]

mà hình như access 2000 khi chay trên 2003 thỉnh thoảng nó báo lỗi phải không anh?cái in ấn anh làm mẩu em vào modlue thấy có cả code về đọc chữ ,vậy nếu em thếm vào công thức vnd và usd ,số tiền thì có thể áp dụng từ cái của anh không?

 

[Hai Lúa Miền Tây]

mà hình như access 2000 khi chay trên 2003 thỉnh thoảng nó báo lỗi phải không anh?cái in ấn anh làm mẩu em vào modlue thấy có cả code về đọc chữ ,vậy nếu em thếm vào công thức vnd và usd ,số tiền thì có thể áp dụng từ cái của anh không?

* Ủa hình như mình đâu có gửi code đọc số cho bạn.
Nếu có thì đọc bình thường thôi
VD như sau:

TextBox1=500.000
Thì bạn muốn nó đọc thì phải vẽ 1 label ví dụ label1 thì làm như sau:
-Muốn đọc USD thì trong code bạn gõ vào 1 sự kiện nào đó cho nó đọc:

Label1.Caption=USD(Textbox1)

-Ngược lại muốn đọc số tiếng Việt thì bạn sửa USD tha2nh VND.

* Dĩ nhiên là phiên bản sau có những tính năng mà phiên bản trước không có. Nhưng bộ giáo trình mà tôi gửi cho bạn là căn bản để học hỏi và sử dụng.

 

[ki_calvin]

dạ dụ em thiết kế thêm một nút lệch nhập dự liệu trong trường hợp trong ds em không có,vậy em sẽ thiế kế thêm một form nữa phải không ?

 

[Hai Lúa Miền Tây]

dạ dụ em thiết kế thêm một nút lệch nhập dự liệu trong trường hợp trong ds em không có,vậy em sẽ thiế kế thêm một form nữa phải không ?

Chưa hiểu hết ý bạn, bạn nên miêu tả đầy đủ và chi tiết cho mọi người xem mới có thể giúp bạn được.

 

[ki_calvin]

vâng em đưa vd như thế này anh xem nha

vâng em muốn thiết kế như thế này.vd ;
1.hàng ngày mình mình tiếp nhận hồ sơ đang ký của khách hàng.sau đó em gửi hồ sơ về nơi sản xuất .
2.chứng từ gồm có stt ,maspham,tenkh,makh,ngaylap,ngaygui,banlan1,bánlân2,nhanvienlaphoso,tình trạng,nhận&chuanhận,lýdo
3.,sau khi hàng làm xong.1 nhân vien kho gui hang ve.
4.bảng số liệu em nhập bàng excel sau đó em import vào access.
*
em muốn sẽ thiết kế như sau.
1.sau khi nhập file excel vao,em sẽ tiến hành
2.1 thiết kế danh sách hồ sơ của từng ngày khi khách hàng mua.bao gốm field như trên.
2.2.tiêu chi em muốn tìm là.
ở frmds chọn
-từngàylap đến ngày(vd.ngày:01/01/2010 đên ngày 07/01/2010)
-nhanvienlaphoso(nhan vien nguyen van a)
-tinhtrang(xong)
=>serach ;in baocao(xuât ra reporbaocao)
ở frmbaocao xuất hiệntenkh,makh,ngaylap,ngaygui,banlandau,banlansau,nhanvienlaphoso,tình trang,nhận&chuanhận,lýdo)
+một nút lệch(command) click hiện ra frmcapnhat(để cập nhật dựa trong danh sách lập hồ sơ ban đầu nhửng hàng nào chưa làm xong ở trong field tình trang.(xong,or chưa xong)em nghĩ trong field tình trạng mình chọn list(chỉ có 2 giá trị nhận và chưa nhận)hoặc tô màu,em thỉ có y tưởng nghĩ đến đánh dấu giống như chọn nam hay nữ ấy.
+field lýdo.em muồn đánh chữ trực tiếp như đánh vào table ấy.vd là do thiếu côngcụ
=>1 câu lệch save lại mã khách hàng đó trong danh sách ban đầu.
trở về frmbaocaobanhang ,chon in thì những tiêu chí mình chọn sẻ hiện ra đúng như yêu câu.

anh xem hộ em làm thế nào ?em thủ làm như thế này em xem và trợ giúp em .

 

[ptm0412]

Lập 1 form nhập liệu chuẩn (bổ sung cho bảng mã) rất dễ dàng, bạn cứ làm theo wizard (create form by using wizard). Giả sử bạn đặt tên là "NhapMa"

Sau đó trên form chính:

- Bạn đang dùng combobox để chọn mã, hãy set Property Event "On Not In List" là procedure
- Gán code mở form "NhapMa" cho sự kiện này
- Nếu có thể, bạn đặt 1 câu hỏi YesNo trước khi mở form

Thí dụ:

Private Sub combobox1_NotInList(NewData As String, Response As Integer)
Them = MsgBox("troi oi! Them ma moi di!", vbYesNo, "Them")
If Them = vbYes Then DoCmd.OpenForm "NhapMa", acFormDS, , , acFormAdd
End Sub

Sau khi thêm mã và đóng form NhapMa, phải refresh lại Form chính để Form chính nhận dạng mã mới:

Private Sub Form_Activate()
Me.combobox1.RowSource = "query2"
Me.combobox1 = ""
End Sub

 

[ki_calvin]

cám ơn anh .để em thử xem sao.

 

[ki_calvin]

anh query2 trong trường hợp anh nói là gì?em chưa tạo query .trong trường hợp của em ,vậy em nên tao như thế nào.để nó hiêu.

 

[ki_calvin]

em thử làm được nhưng mà chưa như ý em ,giúp em chỉnh cái combox ,vì em chọn nó ra cả cái list gồm stt,ngaylap,.....,em chọn coloum cout là 1,thì hiện stt,mà chọn 5 thì ra 5 cái field ,vậy làm sao em chỉ hiện ra cài em cần ,như trong trường hợp này em xem giúp em .chỉnh sao ah,và cái thông bao cũng chưa hiện ra.

 

[ptm0412]

Em chưa thiết kế bộ CSDL chuẩn thì không làm được đâu.
Em cần ít nhất là 3 bảng (table) mã:
- Table DSNV : MaNV, TenNV
- Table DSKH: MaKH, Ten KH
- Table DSHH: MaHH, Ten HH, Dvt

Em còn phải thiết lập những mối quan hệ giữa các table với nhau nữa.

Các combobox trên form nhập liệu sẽ lấy dữ liệu từ các bảng mã tương ứng, 2 hoặc tối đa 3 fields thôi. Field nào ẩn thì cho column width = 0, Field nào là trường khóa thì bound column trường đó.

Thí dụ Combobox NVien:

Row Source = DSNV
Row Source Type = Table/Query
Column Count = 2
Bound Column = 1
Column width = 0; 100
ListWidth = 100

Cái thông báo muốn hiện ra thì

Limit to List = Yes
On Not in List = procedure

Nói chung, em phải học cơ bản nhiều lên mới được, nhảy ngang thế này chạy không hay đâu.

 

[ki_calvin]

vâng cám ơn anh .em sẽ rút kinh nghiệm!