• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

Vừa là nhập liêu, hoặc tự tính kết quả khi không nhập

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Table
  • Hướng Dẫn Vừa là nhập liêu, hoặc tự tính kết quả khi không nhập
• Vừa là nhập liêu, hoặc tự tính kết quả khi không nhập

• RE: Vừa là nhập liêu, hoặc tự tính kết quả khi không nhập

  huuduy.duy > 04-07-13, 09:21 PM

  (04-07-13, 12:56 PM)bomnhauag Đã viết: Potay với bạn, để vầy sao mà nó chạy được:
  
  

  Mã PHP:

  Private Sub Form_KeyPress(KeyAscii As Integer)
Private Sub Form_KeyPress(KeyAscii As Integer)
    If KeyAscii = 43 Then ngaybatdau = DateAdd("d", 1, ngaybatdau)
    If KeyAscii = 95 Then ngaybatdau = DateAdd("d", -1, ngaybatdau)
End Sub
End Sub 


  
  1. Bạn chưa bật thuộc tính Key Preview là Yes cho form mà sao nó chạy được:
  
  
  2. Chỉnh code lại cho đúng:
  

  Mã PHP:

  Option Compare Database

Private Sub Form_KeyPress(KeyAscii As Integer)
    If KeyAscii = 43 Then ngaybatdau = DateAdd("d", 1, ngaybatdau)
    If KeyAscii = 95 Then ngaybatdau = DateAdd("d", -1, ngaybatdau)
End Sub

Private Sub ngayketthuc_AfterUpdate()
    If IsDate(ngayketthuc) Then NGAYNGHI = DateDiff("d", ngaybatdau, ngayketthuc)
End Sub

Private Sub NGAYNGHI_AfterUpdate()
    If Not IsNull(NGAYNGHI) Then ngayketthuc = DateAdd("d", NGAYNGHI, ngaybatdau)
End Sub 


  
  3. Chỉnh thuộc tính input mask của 2 textbox: ngaybatdau và ngayketthuc là: 00/00/0000 như trong hình sẽ ok thôi!
  
  Thân!

  Bạn thông cảm nhe, mình đang tự học nên kiến thức Access chưa nhiều, bạn giúp mình nhe
  
  Cái này thì cho ngày bắt đầu thì Ok rồi.
  Mà bạn ơi KeyAscii = 95 thì bấm nút trừ nó không được mình đỏi lại thành 45
  
  

  Mã PHP:

  Private Sub Form_KeyPress(KeyAscii As Integer)
    If KeyAscii = 43 Then ngaybatdau = DateAdd("d", 1, ngaybatdau)
    If KeyAscii = 95 Then ngaybatdau = DateAdd("d", -1, ngaybatdau)
End Sub 


  
  Nhưng nếu mình muốn cho ngày kết thúc thì như vậy đúng không bạn
  

  Mã PHP:

  Private Sub Form_KeyPress(KeyAscii As Integer)
    If KeyAscii = 43 Then ngaybatdau = DateAdd("d", 1, ngaybatdau)
    If KeyAscii = 95 Then ngaybatdau = DateAdd("d", -1, ngaybatdau)
    If KeyAscii = 43 Then ngayketthuc = DateAdd("d", 1, ngayketthuc)
    If KeyAscii = 95 Then ngayketthuc = DateAdd("d", -1, ngayketthuc)
End Sub 


• RE: Vừa là nhập liêu, hoặc tự tính kết quả khi không nhập

  bomnhauag > 05-07-13, 10:51 AM

  bạn làm như vầy:
  

  Mã PHP:

  Private Sub Form_KeyPress(KeyAscii As Integer)
    If KeyAscii = 43 Then ngaybatdau = DateAdd("d", 1, ngaybatdau)
    If KeyAscii = 95 Then ngaybatdau = DateAdd("d", -1, ngaybatdau)
    If KeyAscii = 43 Then ngayketthuc = DateAdd("d", 1, ngayketthuc)
    If KeyAscii = 95 Then ngayketthuc = DateAdd("d", -1, ngayketthuc)
End Sub 


  
  thì khi nhấn nút + hay - sẽ tăng và giảm 1 lượt cả 2 ngày luôn, chọn phím khác cho ngayketthuc đi là ok chứ j.

• RE: Vừa là nhập liêu, hoặc tự tính kết quả khi không nhập

  huuduy.duy > 05-07-13, 11:12 AM

  (05-07-13, 10:51 AM)bomnhauag Đã viết: bạn làm như vầy:
  

  Mã PHP:

  Private Sub Form_KeyPress(KeyAscii As Integer)
    If KeyAscii = 43 Then ngaybatdau = DateAdd("d", 1, ngaybatdau)
    If KeyAscii = 95 Then ngaybatdau = DateAdd("d", -1, ngaybatdau)
    If KeyAscii = 43 Then ngayketthuc = DateAdd("d", 1, ngayketthuc)
    If KeyAscii = 95 Then ngayketthuc = DateAdd("d", -1, ngayketthuc)
End Sub 


  
  thì khi nhấn nút + hay - sẽ tăng và giảm 1 lượt cả 2 ngày luôn, chọn phím khác cho ngayketthuc đi là ok chứ j.

  
  Ý của mình là làm tăng / giảm rieng biet cho từng textbox

• RE: Vừa là nhập liêu, hoặc tự tính kết quả khi không nhập

  bomnhauag > 05-07-13, 11:23 AM

  Bạn kông hiểu ý của mình ah:
  
  

  Mã PHP:

  Private Sub Form_KeyPress(KeyAscii As Integer)
    If KeyAscii = 43 Then ngaybatdau = DateAdd("d", 1, ngaybatdau)  'phím dấu + được nhấn
    If KeyAscii = 95 Then ngaybatdau = DateAdd("d", -1, ngaybatdau)  'phím dấu - được nhấn
    If KeyAscii = <stt của phím khác> Then ngayketthuc = DateAdd("d", 1, ngayketthuc)  'bạn chọn phím nào thì để mã phím đó vô đây
    If KeyAscii = <stt của phím khác> Then ngayketthuc = DateAdd("d", -1, ngayketthuc)
End Sub 


  
  khi đó nhấn phím + thì chỉ có ngaybaydau tăng thôi hà.

• RE: Vừa là nhập liêu, hoặc tự tính kết quả khi không nhập

  huuduy.duy > 05-07-13, 11:32 AM

  (05-07-13, 11:23 AM)bomnhauag Đã viết: Bạn kông hiểu ý của mình ah:
  
  

  Mã PHP:

  Private Sub Form_KeyPress(KeyAscii As Integer)
    If KeyAscii = 43 Then ngaybatdau = DateAdd("d", 1, ngaybatdau)  'phím dấu + được nhấn
    If KeyAscii = 95 Then ngaybatdau = DateAdd("d", -1, ngaybatdau)  'phím dấu - được nhấn
    If KeyAscii = <stt của phím khác> Then ngayketthuc = DateAdd("d", 1, ngayketthuc)  'bạn chọn phím nào thì để mã phím đó vô đây
    If KeyAscii = <stt của phím khác> Then ngayketthuc = DateAdd("d", -1, ngayketthuc)
End Sub 


  
  khi đó nhấn phím + thì chỉ có ngaybaydau tăng thôi hà.

  
  Không phải bạn ơi, ý của mình là khi chọn Ngày bắt đầu và bấm phím +/- thi nó chỉ tăng giảm ngày bắt đầu thôi (ngay kết thúc vẫn không thay đổi)
  Khi chọn ngày kết thúc và bấm phím +/- thi nó chỉ tăng giảm ngày kết thúc thôi

• RE: Vừa là nhập liêu, hoặc tự tính kết quả khi không nhập

  bomnhauag > 05-07-13, 03:43 PM

  Mã PHP:

  Option Compare Database
Dim i as byte

Private Sub ngaybatdau_GotFocus()
    i = 1
End Sub

Private Sub ngaybatdau_LostFocus()
    i = 0
End Sub

Private Sub ngayketthuc_GotFocus()
    i = 2
End Sub

Private Sub ngayketthuc_LostFocus()
    i = 0
End Sub


Private Sub Form_KeyPress(KeyAscii As Integer)
select case i
case 1
    If KeyAscii = 43 Then ngaybatdau = DateAdd("d", 1, ngaybatdau)  'phím dấu + được nhấn
    If KeyAscii = 95 Then ngaybatdau = DateAdd("d", -1, ngaybatdau)  'phím dấu - được nhấn
case 2
    If KeyAscii = 43 Then ngayketthuc = DateAdd("d", 1, ngayketthuc)  
    If KeyAscii = 95 Then ngayketthuc = DateAdd("d", -1, ngayketthuc)
end select
End Sub 


  
  bạn dùng biến i để kiểm soát xem con nháy đang ở đâu để mà biết tăng thằng nào nhé.
  khi ngaybatdau có được con nháy (GotFocus) thì bật i lên, khi nó mất con nháy (LostFocus) thì hạ i xuống. tương tự cho ngayketthuc.
  
  dựa vào i thì biết là con nháy đang ở xứ nào mà tăng ngày cho nó đúng. kiểm tra lại và phát triển thêm bạn nhé !! ^^

• RE: Vừa là nhập liêu, hoặc tự tính kết quả khi không nhập

  huuduy.duy > 06-07-13, 11:25 PM

  (04-07-13, 12:56 PM)bomnhauag Đã viết: Potay với bạn, để vầy sao mà nó chạy được:
  
  

  Mã PHP:

  Private Sub Form_KeyPress(KeyAscii As Integer)
Private Sub Form_KeyPress(KeyAscii As Integer)
    If KeyAscii = 43 Then ngaybatdau = DateAdd("d", 1, ngaybatdau)
    If KeyAscii = 95 Then ngaybatdau = DateAdd("d", -1, ngaybatdau)
End Sub
End Sub 


  
  1. Bạn chưa bật thuộc tính Key Preview là Yes cho form mà sao nó chạy được:
  
  
  2. Chỉnh code lại cho đúng:
  

  Mã PHP:

  Option Compare Database

Private Sub Form_KeyPress(KeyAscii As Integer)
    If KeyAscii = 43 Then ngaybatdau = DateAdd("d", 1, ngaybatdau)
    If KeyAscii = 95 Then ngaybatdau = DateAdd("d", -1, ngaybatdau)
End Sub

Private Sub ngayketthuc_AfterUpdate()
    If IsDate(ngayketthuc) Then NGAYNGHI = DateDiff("d", ngaybatdau, ngayketthuc)
End Sub

Private Sub NGAYNGHI_AfterUpdate()
    If Not IsNull(NGAYNGHI) Then ngayketthuc = DateAdd("d", NGAYNGHI, ngaybatdau)
End Sub 


  
  3. Chỉnh thuộc tính input mask của 2 textbox: ngaybatdau và ngayketthuc là: 00/00/0000 như trong hình sẽ ok thôi!
  
  Thân!

  Bạn ơi cho mình hỏi làm sao minh có thể chọ giá trị cột 2 trong Combobox trên Form vậy? Mình chỉnh Bound culumn = 2 nhưng không được. File mình nè! Chọn cột 2 trong ComboboxCám ơn bạn nhiều

• RE: Vừa là nhập liêu, hoặc tự tính kết quả khi không nhập

  trav2t > 07-07-13, 01:21 AM

  Đây là kết quả tính toán dữ liệu ngày:
  Ngày + Ngày = số ngày (01/01/2013 + 03/01/2013 = 2)
  Ngày - Ngày = số ngày (04/01/2013 - 03/01/2013 = 10
  Ngày + số = Ngày (01/01/2013 + 4 = 05/01/2013)
  Ngày - số = Ngày (01/01/2013 - 1 = 31/12/2012)

• RE: Vừa là nhập liêu, hoặc tự tính kết quả khi không nhập

  bomnhauag > 07-07-13, 09:03 AM

  (06-07-13, 11:25 PM)huuduy.duy Đã viết: Bạn ơi cho mình hỏi làm sao minh có thể chọ giá trị cột 2 trong Combobox trên Form vậy? Mình chỉnh Bound culumn = 2 nhưng không được. File mình nè! Chọn cột 2 trong ComboboxCám ơn bạn nhiều

  
  Bạn chỉ h lại như sau thử xem nhé:
  Bound culumn = 1
  Column Count = 2
  Column Width = 0;2
  
  Thân!

• RE: Vừa là nhập liêu, hoặc tự tính kết quả khi không nhập

  paulsteigel > 08-07-13, 12:05 PM

  (07-07-13, 09:03 AM)bomnhauag Đã viết: Bạn chỉ h lại như sau thử xem nhé:
  Bound culumn = 1
  Column Count = 2
  Column Width = 0;2
  Thân!

  
  Xin phép vắt thêm tí chanh cho chua nhé...
  Bound Column: Giá trị mà combo/listbox trả về khi người dùng chọn 1 mục. Nếu mục này để là 1 thì Combo/Listbox sẽ lấy giá trị ứng với dòng đã chọn trong danh sách, tại cột 1.
  Column Count: Số cột dữ liệu của Combo/listbox
  Column Width: Độ rộng cột, phân cách với nhau bằng dấu ";". Nếu muốn ẩn cột nào thì cho giá trị cột đó bằng 0.
  Quay lại ví dụ của bạn, nếu cboKhohang có
  

  Mã PHP:

  Rowsource là: SELECT tblKhohang.Khohang, tblKhohang.TenKho FROM tblKhohang; 
Column Count: 2
Bound Coumn:1
Column Width = 0;2 


  Thì, mặc dù, trong combo, ta chọn "Kho Hàng điện gia dụng", nhưng đưa về dữ liệu nó lại trả lại kết quả là Y02 (mã kho "Kho Hàng điện gia dụng" là Y02).
  Khi đó nếu ta lấy Msgbox cboKhohang , nó sẽ thông báo là Y02 thay vì "Kho Hàng điện gia dụng".
  Nếu muốn trả về cái ta cần nhìn thì phải dùng cái này cboKhohang.Column(1)
  

  Mã PHP:

  Hic: hay nhỉ rõ ràng có 2 cột mà tham chiếu lại là 1. Vậy trường khóa của combo trong bounfcolum là mấy?
Câu trả lời cboKhohang.[b]Column(0)[/b] sẽ trả về giá trị Y02. 


  Đấy là điểm đáng lưu ý trong tham chiếu kết quả của combo và listbox nhé.
  Vì 2 điều khiển này nó quản lý giá trị theo cấu trúc mảng và bắt đầu từ phần tử đầu tiên có số thứ tự là 0.
  Vậy nếu muốn lấy phần tử cuối cùng của danh sách, ta phải dùng
  

  Mã PHP:

  cboKhohang.Column(1, cboKhohang.ListCount - 1) '- trả về tên bằn chữ của kho hàng
cboKhohang.Column(1) '- trả về mã kho hàng.
Cú pháp là  cboKhohang.Column(Cột,[Dòng]) 

• Bài trước Bài tiếp