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

Thủ Thuật Access

• Trang chủ

  • Thủ Thuật Access
  • Trang chủ
•   Cách reset trường AutoNumber sau khi xóa Recordset
  

  Viết bởi: quoctrong_2311 26-04-12, 12:19 AM Chuyên mục: Table - Bài trả lời (2)

• Cho mình hỏi, trong thiết kế table, mình chọn số thứ tự kiểu dữ liệu number, chọn định dạng là auto number, mình tạo from nhập liệu cho table trên, khi mình nhập liệu thì số nhảy theo đúng thứ tự nhưng nếu mình xóa 1 record rồi nhập mới thì số nhảy không đúng theo thứ tự nữa. ví dụ: mình nhập liệu được 3 dòng record, số thứ tự nhảy là 3, nhưng nếu mình xóa đi 01 record rồi nhập record mới thì nó lại nhảy là số 4, không phải là số 3. có cách nào làm cho số thứ tự nhảy đúng với số dòng mình đã nhập ko?
  
  Thank mọi người!!
  


•   Tạo biểu thức ghi số thứ tự record hiện tại và tổng số record
  

  Viết bởi: Xuân Thanh 25-04-12, 01:11 PM Chuyên mục: Thủ thuật VBA - Không có hồi đáp

• Để thể hiện số thư tự record hiện tại và tổng số record hiện có của form, chúng ta thường tạo một textbox và ghi trong Control Source của nó = [CurrentRecord] & "/" & Count([MaKhach])
  hoặc = [CurrentRecord] & " of " & Count([MaKhach])
  
  Nếu thích dùng VBA, các bạn có thể sử dụng sự kiện Form_Current như sau :
  
  
  Mã PHP:

  Private Sub Form_Current()
    If Me.NewRecord Then        
        Me!lblNavigate.Caption = "New Record"  'Neu dung Label
        'Me.txtNavigate.ControlSource = "New Record"      Neu dung Textbox
    Else
        With Me.RecordsetClone
            .Bookmark = Me.Bookmark
            'Neu dung Label
             Me!lblNavigate.Caption = "Record " & _
                    .AbsolutePosition + 1 _
                    & " of " & .RecordCount
            'Me.txtNavigate.ControlSource = "Record " & _
                    .AbsolutePosition + 1 _
                    & " of " & .RecordCount     Neu dùng Textbox
        End With
    End If
End Sub 

  
  


•   Bài giảng về VBA cho Access của Phạm Thị Kim Ngoan
  

  Viết bởi: Xuân Thanh 25-04-12, 12:23 PM Chuyên mục: Thư Viện Giáo Trình - Bài trả lời (12)

• Bài giảng VBA cho Access của Phạm Thị Kim Ngoan viết bằng PP
  https://dl.dropbox.com/u/38360355/Access...ss_vba.ppt
  


•   Ngăn chặn không cho lưu record vào table
  

  Viết bởi: Xuân Thanh 25-04-12, 12:07 PM Chuyên mục: Forms - Bài trả lời (2)

• Như đã một lần trao đổi, nếu nguồn của một form là table thì khi cập nhật dữ liệu trên form nó sẽ tự động lưu vào table. Nếu bạn muốn có một cảnh báo trước khi lưu thì dùng sự kiện Form_BeforUpdate sau đây
  
  Mã PHP:

  Private Sub Form_BeforeUpdate(Cancel As Integer)
    Dim strMsg As String
    strMsg = "Data has changed."
    strMsg = strMsg & "@Do you wish to save the changes?"
    strMsg = strMsg & "@Click Yes to Save or No to Discard changes."
    If MsgBox(strMsg, vbQuestion + vbYesNo, "Save Record?") = vbYes Then
        'Do Nothing
    Else
        DoCmd.RunCommand acCmdUndo       
    End If
End Sub 

  
  


•   Xóa record trên form bằng hàm VBA
  

  Viết bởi: Xuân Thanh 25-04-12, 11:21 AM Chuyên mục: Thư viện thủ thuật - Không có hồi đáp

• Nếu bạn không thích mã DoMenuItem do Wizard Button tạo ra để Xóa bản ghi hiện hành, bạn có thể sử dụng hàm sau để thay thế.
  
  
  Mã PHP:

  Function fDelCurrentRec(ByRef frmSomeForm As Form) As Boolean
    On Error GoTo Err_Section
    
    With frmSomeForm
        If .NewRecord Then
            .Undo
            fDelCurrentRec = True
            GoTo Exit_Section
        End If
    End With
    
    With frmSomeForm.RecordsetClone
        .Bookmark = frmSomeForm.Bookmark
        .Delete
        frmSomeForm.Requery
    End With
    fDelCurrentRec = True
Exit_Section:
    Exit Function

Err_Section:
    fDelCurrentRec = False
    Resume Exit_Section
End Function 

  
  Tại nút cmdXoa của form, bạn chèn câu lệnh sau :
  
  
  Mã PHP:

  Private Sub cmdXoa_Click()
    If Not (fDelCurrentRec(Me)) Then
        MsgBox "An Error occurred!"
    End If
End Sub 

  
  (Sưu tầm)
  Thân mến
  



Chủ đề Mới nhất

Quản Lý Phòng Khám Tư Nhâ... -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: Le Duc-24-09-26, 12:03 AM- » Bài trả lời: 34- » Lượt xem: 8,310

Tạo Form không có khung v... -Chuyên mục: Thư viện thủ thuật-Đăng bởi lần cuối: ongke0711-05-09-26, 10:12 PM- » Bài trả lời: 0- » Lượt xem: 132

Tải hàng loạt hóa đơn PDF... -Chuyên mục: Thành viên giúp nhau-Đăng bởi lần cuối: dotrung-16-08-26, 10:29 PM- » Bài trả lời: 6- » Lượt xem: 150

Quản lý kho bằng Accesss -Chuyên mục: Thảo Luận Access-Đăng bởi lần cuối: AKBui-09-08-26, 12:52 AM- » Bài trả lời: 77- » Lượt xem: 7,912

Tra cứu Mã số thuế - phần... -Chuyên mục: Share Code-Đăng bởi lần cuối: ongke0711-03-07-26, 02:10 PM- » Bài trả lời: 0- » Lượt xem: 168

Đồ cổ đây - một chút hoài... -Chuyên mục: Góc ảnh-Đăng bởi lần cuối: Noname-12-06-26, 09:21 AM- » Bài trả lời: 1- » Lượt xem: 606

Tra cứu thông tin DN qua ... -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: ongke0711-02-06-26, 11:36 PM- » Bài trả lời: 0- » Lượt xem: 178

Homestay chill đà lat -Chuyên mục: Góc Blogger-Đăng bởi lần cuối: tt1212-01-06-26, 02:51 PM- » Bài trả lời: 0- » Lượt xem: 548

Quản lý quầy thuốc nhỏ lẻ -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: ongke0711-09-05-26, 11:24 AM- » Bài trả lời: 4- » Lượt xem: 3,598

TẠO THÔNG BÁO NHẮC NHỞ CÔ... -Chuyên mục: Tương tác Chương trình ngoài-Đăng bởi lần cuối: ongke0711-07-04-26, 10:46 AM- » Bài trả lời: 2- » Lượt xem: 275




Diễn đàn Thống kê

» Thành viên: 0 » Thành viên mới nhất: Không có ai » Các chủ đề diễn đàn: 0 » Các bài viết diễn: 0 Thống kê đầy đủ