Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Hỏi: Làm sao để khóa định dạng subform và lam tươi Subform
#1
Chào các Bạn!
Các bạn giúp mình xử lý subform trong tab Nghỉ phép như sau:
1. Khóa định dạng “Ch_Nghiphep” không cho thay đổi độ rộng của dòng và cột, vì mình muốn sử dụng thanh cuộn dọc (Scroll Vertical) để xem dữ liệu khi có nhiều bản ghi nên mình không sử dụng thuộc tính Visible để khóa subform.
2. Tại nút lệnh “comm_luu” trong Subform “Ch_Nghiphep1” làm thế nào để nó làm tươi dữ liệu trong “Ch_Nghiphep” sau khi nhập dữ liệu. Hoặc tại nút lệnh “Lưu 1” làm sao để nó nhảy đến bản ghi mới trong Subform “Ch_Nghiphep1”.
3. Tính tổng ngày phép đã nghỉ tại “Tongphep”.
File đính kèm: http://www.mediafire.com/?yzadcpg5izn3t29
Chữ ký của hoangthanhhai Xin chào, mình là hoangthanhhai, Tham gia http://thuthuataccess.com/forum từ ngày 20-04 -11.
Reply
Những người đã cảm ơn
#2
(13-06-11, 06:14 PM)hoangthanhhai Đã viết: Chào các Bạn!
Các bạn giúp mình xử lý subform trong tab Nghỉ phép như sau:
1. Khóa định dạng “Ch_Nghiphep” không cho thay đổi độ rộng của dòng và cột, vì mình muốn sử dụng thanh cuộn dọc (Scroll Vertical) để xem dữ liệu khi có nhiều bản ghi nên mình không sử dụng thuộc tính Visible để khóa subform.
2. Tại nút lệnh “comm_luu” trong Subform “Ch_Nghiphep1” làm thế nào để nó làm tươi dữ liệu trong “Ch_Nghiphep” sau khi nhập dữ liệu. Hoặc tại nút lệnh “Lưu 1” làm sao để nó nhảy đến bản ghi mới trong Subform “Ch_Nghiphep1”.
3. Tính tổng ngày phép đã nghỉ tại “Tongphep”.
File đính kèm: http://www.mediafire.com/?yzadcpg5izn3t29

Câu 1:
Chép code sau vào trên cùng của code form

Mã:
Option Compare Database
    Dim intColumn(8 - 1) As Integer

Mã:
Private Sub Form_Load()
    intColumn(0) = Me!Nam.ColumnWidth
    intColumn(1) = Me!Thang.ColumnWidth
    intColumn(2) = Me!Lan.ColumnWidth
    intColumn(3) = Me!Thang.ColumnWidth
    intColumn(4) = Me!Ngaynghi.ColumnWidth
    intColumn(5) = Me!Nghiviecrieng.ColumnWidth
    intColumn(6) = Me!Note.ColumnWidth
    intColumn(7) = Me!Tongcong.ColumnWidth
End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
        If Me!Nam.ColumnWidth <> intColumn(0) Then
            Me!Nam.ColumnWidth = intColumn(0)
        End If
        
        If Me!Thang.ColumnWidth <> intColumn(1) Then
            Me!Thang.ColumnWidth = intColumn(1)
        End If
'cac cot con lai ban tu viet nhe

End Sub
Câu 2 :
Cú pháp
Mã:
Tenform.Requery
Thân[/php]
Chữ ký của domfootwear Xin chào Guest, nếu Guest biết thủ thuật nào thì nên chia sẻ cho cộng đồng nhé.
ღღღღღTài sản của domfootwear (View All Items) ღღღღღ
Reply
Những người đã cảm ơn haquocquan , Cafe Via He
#3
Cám ơn Bạn domfootwear nhé, mình đã làm được phần 1 và 2 theo hướng dẫn của Bạn.

Thanks.
Chữ ký của hoangthanhhai Xin chào, mình là hoangthanhhai, Tham gia http://thuthuataccess.com/forum từ ngày 20-04 -11.
Reply
Những người đã cảm ơn
#4
(14-06-11, 01:05 PM)hoangthanhhai Đã viết: Cám ơn Bạn domfootwear nhé, mình đã làm được phần 1 và 2 theo hướng dẫn của Bạn.

Thanks.
Câu 3: Ý bạn là tổng cộng những dòng của subform vào main form ? Nếu vậy thì tên MainForm Tab Nghỉ phép bạn vẽ 1 textbox rồi gõ vào Control Source của nó như sau là được.

Trích dẫn:=Forms!F3_QlyNhansu1_Nhap1!Ch_nghiphep.Form!tongcong
Chữ ký của domfootwear Xin chào Guest, nếu Guest biết thủ thuật nào thì nên chia sẻ cho cộng đồng nhé.
ღღღღღTài sản của domfootwear (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#5
Cám ơn Bạn nhé, mình cũng vừa mới làm được câu 3 cũng giống như cách của bạn.
Tiện đây Bạn cho mình hỏi làm sao không cho phép xóa dữ liệu ở "Ch_Nghiphep", khi bấm chuột phải thì không xóa được thì ok rồi, nhưng mình bấm phím delete trên bàn phím thì nó vẫn xóa như thường, làm sao mình khóa được phím Delete trên bàn phím nhỉ?
Chữ ký của hoangthanhhai Xin chào, mình là hoangthanhhai, Tham gia http://thuthuataccess.com/forum từ ngày 20-04 -11.
Reply
Những người đã cảm ơn
#6
(14-06-11, 02:56 PM)hoangthanhhai Đã viết: Cám ơn Bạn nhé, mình cũng vừa mới làm được câu 3 cũng giống như cách của bạn.
Tiện đây Bạn cho mình hỏi làm sao không cho phép xóa dữ liệu ở "Ch_Nghiphep", khi bấm chuột phải thì không xóa được thì ok rồi, nhưng mình bấm phím delete trên bàn phím thì nó vẫn xóa như thường, làm sao mình khóa được phím Delete trên bàn phím nhỉ?

Bạn thiết lập Property cho form với cái Allow deletions là No là được.
Chữ ký của domfootwear Xin chào Guest, nếu Guest biết thủ thuật nào thì nên chia sẻ cho cộng đồng nhé.
ღღღღღTài sản của domfootwear (View All Items) ღღღღღ
Reply
Những người đã cảm ơn Cafe Via He , hoangthanhhai
#7
Cám ơn bạn domfootwear nhiều!
Chữ ký của hoangthanhhai Xin chào, mình là hoangthanhhai, Tham gia http://thuthuataccess.com/forum từ ngày 20-04 -11.
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
  Tạo Menu dạng TreeView bằng Query (không dùng ActiveX) ongke0711 4 267 06-12-16, 09:16 PM
Bài mới nhất: toancvp
  [Hỏi] Làm sao để ấn định Null cho trường Date khi sử dụng Class Module Minh Tiên 8 614 18-11-16, 09:29 AM
Bài mới nhất: MinhnHang
  [Hỏi] Sử dụng chuột giữa trong subform là report. toancvp 10 360 12-10-16, 01:01 AM
Bài mới nhất: toancvp
  Định dạng trong listbox feeling 3 160 06-10-16, 02:44 PM
Bài mới nhất: jeck09nt
  [Hỏi] Combo box trong subform killer113 4 276 31-08-16, 10:02 AM
Bài mới nhất: killer113

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ơ