• 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ủ
•   Lưu record vào table theo điều kiện combo box
  

  Viết bởi: tantai1983 20-01-21, 05:02 PM Chuyên mục: Table - Bài trả lời (2)

• Nhờ anh chị em giúp đỡ !!!!
  Mình có 3 bảng
  
  bảng A                             bảng B                          bảng C
  12345    Sản phẩm A           55655    Vật liệu A          12444   Dụng cụ A 
  34567    Sản phẩm B           75856    Vật liệu B          95574   Dụng cụ B
  11234    Sản phẩm C           47775    Vật liệu C
  
  Mình có 1 form để nhập liệu thông tin gồm
  1 combo box (Sản phẩm, Vật liệu, Dụng cụ)
  2 text box
  1 nút nhập
  
  Mình muốn nếu chọn "Sản phẩm" ở ô combo box. Thì 2 nội dung trong text box tự cập nhật vào "Bảng A" khi bấm nút "Nhập"
  Nếu chọn "Dụng cụ" ở ô combo box. Thì 2 nội dung trong text box tự cập nhật vào "Bảng C"..... khi bấm nút "Nhập"
  
  Mong anh chị em xem hướng dẫn giúp đỡ. Xin cám ơn tất cả
  


•   Lọc ngày tháng: cho kết quả sai?
  

  Viết bởi: pvhung76 18-01-21, 08:54 AM Chuyên mục: Query - Bài trả lời (9)

• Xin mọi người chỉ giúp em sai chổ nào ạ?
  
  Em dùng hàm Day hay Month để lọc ra ngày hay tháng thì đúng...
  ...nhưng nếu có thêm lệnh Format để định dạng ngày tháng thì cho kết quả sai (lùi lại 1 giá trị?)
  
  File của em đây ạ! https://www.mediafire.com/file/0ztpr69f3...accdb/file
  
  Rất mong anh chị chỉ giúp!
  


• Demo_Code Xuất Lý lịch 2C sang Word (Full)
  

  Viết bởi: maidinhdan 15-01-21, 03:11 PM Chuyên mục: Tương tác Chương trình ngoài - Bài trả lời (7)

• Vài hôm trước có bạn hỏi về xuất dữ liệu Access sang word thông qua chương trình có Lý lịch/ hợp đồng
  Ở bài viết này, có thể xem là những kiểu xuất được tập hợp thông qua phiếu lý lịch viên chức.
  
  Trong đoạn code bao gồm:
  1. Code Xuất Phiếu Lý lịch, gồm:
  + Xuất Ảnh sang Word
  + Xuất Dữ liệu của nhiều Table trong Access sang Nhiều Table trong Word ( trong word table được kẻ đầu tiên được mặt định là table(0))
  + Tạo dòng mới cho table trong Word
  + Chỉnh kích thước, In đậm, In nghiêm.... trong word khi xuất
  + Xuất sang word lưu với tên mặc định/ có thể lựa chọn theo kiểu chỉnh mở (Add lên file mẫu)
  + Hàm hiển thị thông báo tiếng việt.
  
  * Lưu ý: những dòng màu xanh không dùng trong đoạn code, để lại cho các bạn tham khảo tùy vào mục đích sử dụng của các bạn.
  
  2. Hàm loại bỏ dấu tiếng việt.
  Video minh họa
  
  
  Code
  
  Mã PHP:

  Sub XuatLyLich()
On Error GoTo Loi
' Khoi tao Muon
Dim oApp As Object, oDoc As Object

' Ket noi som
'Dim oApp As Word.Application
'Dim oDoc As Word.Document

Dim LinkMau2c As String
Dim Dong As Long, Cot As Long

LinkMau2c = CurrentProject.Path & "\Mau\MauLyLich2C.dot"  ' Noi luu file Mau

' Khoi tao Word
'Set oApp = New Word.Application
Set oApp = CreateObject("Word.Application")
oApp.Visible = True ' An file Word

' Khoi tao Mau 2C moi
Set oDoc = oApp.Documents.Open(LinkMau2c, , True) 'Chi xem:  Neu dung (LinkMau2c, , False) thi nhan mo lan 2 se hoi la Read Only:
'Set Doc = oApp.Documents.Add(LinkMau2c)        ' Khoi tao Mau 2C moi
With oDoc

'Ket noi tung Field rieng le, ' Chep thong tin vao file Word
'.FormFields("Madonvi").Result = Me.Madonvi
.FormFields("Socmnd").Result = Nz(Me.Socmnd)
Dim NC As String: NC = Format(Me.NgaycapCMND, "dd/MM/yyyy")
.FormFields("NgaycapCMND").Result = NC
.FormFields("Noicap").Result = Me.Noicap
.FormFields("Sobhxh").Result = Nz(Me.Sobhxh)
'.FormFields("Machucvus").Result = Me.Machucvus
.FormFields("Mangachs").Result = Me.Mangachs.Column(0)
.FormFields("Tenngach").Result = Me.Mangachs.Column(1)
'.FormFields("TenPhong").Result = Me.TenPhong
'.FormFields("Masothue").Result = Me.Masothue
.FormFields("Hoten").Result = Me.Hoten
.FormFields("Hoten2").Result = Me.Hoten
.FormFields("Ngaysinh").Result = Format(Day(Me.Ngaysinh), "00")
.FormFields("Thangsinh").Result = Format(Month(Me.Ngaysinh), "00")
.FormFields("Namsinh").Result = Year(Me.Ngaysinh)

' Dien ngay thang nam
.FormFields("Ngay").Result = Format(Day(Date), "00")
.FormFields("Thang").Result = Format(Month(Date), "00")
.FormFields("Nam").Result = Year(Date)

.FormFields("Gioitinh").Result = Me.Gioitinh
.FormFields("Noisinh").Result = Me.Noisinh
.FormFields("Quequan").Result = Me.Quequan
.FormFields("Noiohiennay").Result = Me.Noiohiennay
.FormFields("Noiohiennay2").Result = Me.Noiohiennay
.FormFields("Dantoc").Result = Me.Dantoc
.FormFields("Tongiao").Result = Me.Tongiao
.FormFields("Nghekhituyendung").Result = Me.Nghenghiepkhituyendung.Value
Dim NTD As String: NTD = Format(Me.Ngaytuyendung, "dd/MM/yyyy")
.FormFields("Ngaytuyendung").Result = NTD
.FormFields("Coquantuyendung").Result = Nz(Me.Coquantuyendung)
.FormFields("Chucdanhhientai").Result = Nz(Me.Chucdanhhientai)
.FormFields("Totnghieplopmay").Result = Nz(Me.Totnghieplopmay)
.FormFields("Trinhdochuyenmon").Result = Nz(Me.Trinhdochuyenmon)
.FormFields("Chuyennganh").Result = Nz(Me.Chuyennganh)
'.FormFields("Chuyenkhoa").Result = Me.Chuyenkhoa
'.FormFields("Thanhphanxuathan").Result = Me.Thanhphanxuathan
'.FormFields("Loaihopdong").Result = Me.Loaihopdong
Dim NVD As String: NVD = Format(Me.NgayvaoDang, "dd/MM/yyyy")
.FormFields("NgayvaoDang").Result = Nz(NVD)
Dim NCT As String: NCT = Format(DateAdd("YYYY", 1, Me.NgayvaoDang), "dd/MM/yyyy")
.FormFields("NgayChinhThuc").Result = Nz(NCT)
.FormFields("Lyluanchinhtri").Result = Nz(Me.Lyluanchinhtri)
.FormFields("Quanlynhanuoc").Result = Nz(Me.Quanlynhanuoc)
Dim NVDoan As String: NVDoan = Format(Me.NgayvaoDoan, "dd/MM/yyyy")
.FormFields("NgayvaoDoan").Result = Nz(NVDoan)
.FormFields("Bacluong").Result = Nz(Me.Bacluong)
.FormFields("Heso").Result = Nz(Me.Heso)
Dim NH As String: NH = Format(Me.Ngayhuong, "dd/MM/yyyy")
.FormFields("Ngayhuong").Result = Nz(NH)
.FormFields("Congviecduocgiao").Result = Nz(Me.Congviecduocgiao)
.FormFields("Chieucao").Result = Nz(Me.Chieucao)
.FormFields("Cangnang").Result = Nz(Me.Cangnang)
.FormFields("Nhommau").Result = Nz(Me.Nhommau)
.FormFields("Tenngoaingu").Result = Nz(Me.Tenngoaingu)
.FormFields("Trinhdongoaingu").Result = Nz(Me.Trinhdongoaingu)
.FormFields("Trinhdotinhoc").Result = Nz(Me.Trinhdotinhoc)
.FormFields("Ngoaingukhac").Result = Nz(Me.Ngoaingukhac)
.FormFields("pccv").Result = Me.pccv
'.FormFields("pckv").Result = Me.pckv
'.FormFields("vk").Result = Me.vk
'.FormFields("hsvk").Result = Me.hsvk
'.FormFields("pcth").Result = Me.pcth
'.FormFields("pctn").Result = Me.pctn
.FormFields("pcud").Result = Me.pcud
.FormFields("pcdh").Result = Me.pcdh
'.FormFields("pcbl").Result = Me.pcbl
'.FormFields("NgaythamgiaBHXH").Result = Me.NgaythamgiaBHXH
'.FormFields("BHXH").Result = Me.BHXH
'.FormFields("BHYT").Result = Me.BHYT
'.FormFields("BHTN").Result = Me.BHTN
'.FormFields("Giadinhchinhsach").Result = Me.Giadinhchinhsach
'.FormFields("Sotaikhoannganhang").Result = Me.Sotaikhoannganhang
'.FormFields("Dangkytainganhang").Result = Me.Dangkytainganhang
'.FormFields("Hinhthe").Result = Me.Hinhthe
'.FormFields("Thannhannuocngoai").Result = Me.Thannhannuocngoai
'.FormFields("Davehuu").Result = Me.Davehuu
'.FormFields("Ngayvehuu").Result = Me.Ngayvehuu
'.FormFields("Ghichukhac").Result = Me.Ghichukhac

' Chen Anh vao file Word bang link anh
    .Activate
'    Set oDoc = ActiveDocument
    .Tables(1).Cell(1, 1).Range.InlineShapes.AddPicture (CurrentProject.Path & "\Hinh\" & Me.Hinhthe)        ' Chen hinh
    .Tables(1).Cell(1, 1).Range.InlineShapes(1).ScaleHeight = 13
    .Tables(1).Cell(1, 1).Range.InlineShapes(1).ScaleWidth = 13
    .Tables(1).Cell(1, 1).Width = 13
    .Tables(1).Cell(1, 1).Height = 13
' Ket noi den cac Table
    Dong = 2
    ' Nap Table 2 trong Word: Dao tao boi duong
    Dim rs As Recordset
    Dim sql As String
    sql = "Select * from tbdaotaotaphuan where Socmnd='" & Me.Socmnd & "'"
    Set rs = CurrentDb.OpenRecordset(sql, dbOpenDynaset)  ' hoac dbOpenTable
    If rs.EOF Then
    Else
        rs.MoveFirst
        Do Until rs.EOF
                .Tables(2).Rows.Add  ' Tao dong moi
                .Tables(2).Cell(Dong, 1).Range.Text = rs.Fields("Tentruongdaotao")
                .Tables(2).Cell(Dong, 2).Range.Text = rs.Fields("Tenkhoahoc")
                .Tables(2).Cell(Dong, 3).Range.Text = rs.Fields("TungayDenNgay")
                .Tables(2).Cell(Dong, 4).Range.Text = rs.Fields("Hinhthucdaotao")
                .Tables(2).Cell(Dong, 5).Range.Text = rs.Fields("Vanbangchungchi")
                Dong = Dong + 1    ' Tang len 1 dong
        rs.MoveNext
        Loop
                .Tables(2).Rows(Dong).Delete  ' Xoa dong cuoi
    End If
        rs.Close
        Set rs = Nothing
    ' Nap Table 3 trong Word: Tom tat qua trinh cong tac
    Dong = 2
    Dim Rs2 As Recordset
    Dim Sql2 As String
    Sql2 = "Select * from tbquatrinhcongtac where Socmnd='" & Me.Socmnd & "'"
    Set Rs2 = CurrentDb.OpenRecordset(Sql2, dbOpenDynaset)  ' hoac dbOpenTable
    If Rs2.EOF Then
    Else
        Rs2.MoveFirst
        Do Until Rs2.EOF
                .Tables(3).Rows.Add  ' Tao dong moi
                .Tables(3).Cell(Dong, 1).Range.Text = Rs2.Fields("Tudenthangnam")
                .Tables(3).Cell(Dong, 2).Range.Text = Rs2.Fields("Chitiet")
                Dong = Dong + 1    ' Tang len 1 dong
        Rs2.MoveNext
        Loop
        
                        .Tables(3).Rows(Dong).Delete  ' Xoa dong cuoi
    End If
        Rs2.Close
        Set Rs2 = Nothing
    ' Nap Table 4 trong Word: Bang quan he nhan than cua Minh
    Dong = 2
    Dim Rs3 As Recordset
    Dim Sql3 As String
    Sql3 = "Select * from tbnhanthan where Socmnd='" & Me.Socmnd & "' AND CuaBanthanhayBenVoChong=Yes"
    Set Rs3 = CurrentDb.OpenRecordset(Sql3, dbOpenDynaset)  ' hoac dbOpenTable
    If Rs3.EOF Then
    Else
        Rs3.MoveFirst
        Do Until Rs3.EOF
                .Tables(4).Rows.Add  ' Tao dong moi
                .Tables(4).Cell(Dong, 1).Range.Text = Rs3.Fields("Moiquanhe")
                .Tables(4).Cell(Dong, 2).Range.Text = Rs3.Fields("Hoten")
                .Tables(4).Cell(Dong, 3).Range.Text = Rs3.Fields("Namsinh")
                .Tables(4).Cell(Dong, 4).Range.Text = Rs3.Fields("Chitiet")
                Dong = Dong + 1    ' Tang len 1 dong
        Rs3.MoveNext
        Loop
                        .Tables(4).Rows(Dong).Delete  ' Xoa dong cuoi
    End If
        Rs3.Close
        Set Rs3 = Nothing
    ' Nap Table 5 trong Word: Bang quan he nhan than cua Vo minh (Neu co)
    Dong = 2
    Dim Rs4 As Recordset
    Dim Sql4 As String
    Sql4 = "Select * from tbnhanthan where Socmnd='" & Me.Socmnd & "' AND CuaBanthanhayBenVoChong=No"
    Set Rs4 = CurrentDb.OpenRecordset(Sql4, dbOpenDynaset)  ' hoac dbOpenTable
    If Rs4.EOF Then
    Else
        Rs4.MoveFirst
        Do Until Rs4.EOF
                .Tables(5).Rows.Add  ' Tao dong moi
                .Tables(5).Cell(Dong, 1).Range.Text = Rs4.Fields("Moiquanhe")
                .Tables(5).Cell(Dong, 2).Range.Text = Rs4.Fields("Hoten")
                .Tables(5).Cell(Dong, 3).Range.Text = Rs4.Fields("Namsinh")
                .Tables(5).Cell(Dong, 4).Range.Text = Rs4.Fields("Chitiet")
                Dong = Dong + 1    ' Tang len 1 dong
        Rs4.MoveNext
        Loop
                        .Tables(5).Rows(Dong).Delete  ' Xoa dong cuoi
    End If
        Rs4.Close
        Set Rs4 = Nothing

' Nap Table 6 trong Word: Bang Qua trinh Luong
    Cot = 2
    Dim Rs5 As Recordset
    Dim Sql5 As String
    Dim SoLanNangLuong As Byte, i As Byte, n As Byte
    Sql5 = "SELECT * FROM tblichsunangluong WHERE Hoten='" & Me.Hoten & "' ORDER BY Hesoselen"
'    Sql5 = "SELECT TOP 9 * FROM tblichsunangluong WHERE Hoten='" & Me.Hoten & "' ORDER BY Hesoselen"
    Set Rs5 = CurrentDb.OpenRecordset(Sql5, dbOpenDynaset)  ' hoac dbOpenTable
    If Rs5.EOF Then
    Else
    'xac dinh de lay 9 dong cuoi cung
    Rs5.MoveLast    ' dich chuyen con tro den dong cuoi cung va dem
    SoLanNangLuong = Rs5.RecordCount
    Rs5.MoveFirst
    
    If SoLanNangLuong > 9 Then
    n = SoLanNangLuong - 9
        For i = 1 To n
            Rs5.MoveNext    'dich chuyen con tro len tren 1 buoc
        Next i
    End If
        Do Until Rs5.EOF
'                .Tables(6).Column(Cot).Select
'                .Selection.InsertColumnsRight  ' Tao dong moi
                .Tables(6).Cell(1, Cot).Range.Text = Format(Month(Rs5.Fields("Ngaynangluong")), "00") & "/" & Format(Year(Rs5.Fields("Ngaynangluong")), "0000")
                .Tables(6).Cell(2, Cot).Range.Text = Rs5.Fields("Mangach") & "/" & Rs5.Fields("Baclen")
                .Tables(6).Cell(3, Cot).Range.Text = Rs5.Fields("Hesoselen")
                Cot = Cot + 1    ' Tang len 1 cot
        Rs5.MoveNext
        Loop
    End If
        Rs5.Close
        Set Rs5 = Nothing
End With




' Luu voi ten moi
oDoc.SaveAs FileName:=CurrentProject.Path & "\Mau\" & Replace(LoaibodauTiengviet(Me.Hoten) & "_" & Me.Socmnd & "_" & Format(Now(), "YYYY_MM_hh_ss"), " ", "_") & ".doc"


'    ' Dong file vua Luu
'    oDoc.Close
'    ' Thoat khoi file Word
'    oApp.Quit

' Xoa bien khoi tao
Set oApp = Nothing
    MsgBox "Xu" & ChrW(7845) & "t lý l" & ChrW(7883) & "ch 2c hoàn t" & ChrW(7845) & "t", vbInformation, "Thông báo"

Exit_Loi:
    Exit Sub
Loi:
    MsgBox "Nh" & ChrW(7853) & "p thông tin Lý l" & ChrW(7883) & "ch 2C ch" & ChrW(432) & "a " & ChrW(273) & ChrW(7847) & "y " & ChrW(273) & ChrW(7911) & ", nên không th" & ChrW(7875) & " th" & ChrW(7921) & "c hi" & ChrW(7879) & "n", vbInformation, "Thông báo"
    Resume Exit_Loi
End Sub

Function LoaibodauTiengviet(ByVal ChuTiengVietCoDau As String) As String

  Dim i As Long
  Dim intCode As Long
  Dim sChar As String
  Dim sConvert As String

  LoaibodauTiengviet = AscW(ChuTiengVietCoDau)
  For i = 1 To Len(ChuTiengVietCoDau)
      sChar = Mid(ChuTiengVietCoDau, i, 1)
      If sChar <> "" Then
          intCode = AscW(sChar)
      End If
      Select Case intCode
      Case 273
          sConvert = sConvert & "d"
      Case 272
          sConvert = sConvert & "D"
      Case 224, 225, 226, 227, 259, 7841, 7843, 7845, 7847, 7849, 7851, 7853, 7855, 7857, 7859, 7861, 7863
          sConvert = sConvert & "a"
      Case 192, 193, 194, 195, 258, 7840, 7842, 7844, 7846, 7848, 7850, 7852, 7854, 7856, 7858, 7860, 7862
          sConvert = sConvert & "A"
      Case 232, 233, 234, 7865, 7867, 7869, 7871, 7873, 7875, 7877, 7879
          sConvert = sConvert & "e"
      Case 200, 201, 202, 7864, 7866, 7868, 7870, 7872, 7874, 7876, 7878
          sConvert = sConvert & "E"
      Case 236, 237, 297, 7881, 7883
          sConvert = sConvert & "i"
      Case 204, 205, 296, 7880, 7882
          sConvert = sConvert & "I"
      Case 242, 243, 244, 245, 417, 7885, 7887, 7889, 7891, 7893, 7895, 7897, 7899, 7901, 7903, 7905, 7907
          sConvert = sConvert & "o"
      Case 210, 211, 212, 213, 416, 7884, 7886, 7888, 7890, 7892, 7894, 7896, 7898, 7900, 7902, 7904, 7906
          sConvert = sConvert & "O"
      Case 249, 250, 361, 432, 7909, 7911, 7913, 7915, 7917, 7919, 7921
          sConvert = sConvert & "u"
      Case 217, 218, 360, 431, 7908, 7910, 7912, 7914, 7916, 7918, 7920
          sConvert = sConvert & "U"
      Case 253, 7923, 7925, 7927, 7929
          sConvert = sConvert & "y"
      Case 221, 7922, 7924, 7926, 7928
          sConvert = sConvert & "Y"
      Case Else
          sConvert = sConvert & sChar
      End Select
  Next

  LoaibodauTiengviet = sConvert

End Function 

  
  
  
  File đính kèm

  
    DemoXuatLyLich_2.zip (Kích cỡ: 130.5 KB / Tải về: 31)
  
  


•   Query giá trị cùng 1 bảng
  

  Viết bởi: tantai1983 14-01-21, 11:53 AM Chuyên mục: Query - Bài trả lời (9)

• Mình có một bảng dự liệu có 2 filed:
  - filed A: có các record và mỗi record gồm 18 ký tự
  - filed B: cũng có các record
  Mình muốn làm query Kết quả: Chỉ hiển thị các record filed A không trùng filed B
  Mong các bạn hướng dẫn giúp mình. Mình đã dùng Dlookup, IIf đủ mọi cách mà không làm ra được  
  Xin cám ơn các bạn trước.
  


•   Lỗi report hiển thị gấp đôi số trang
  

  Viết bởi: GaDauBac 07-01-21, 12:31 PM Chuyên mục: Report - Bài trả lời (24)

• Các bác nghiên cứu giúp!
  Mình tạo một report để in hợp đồng gồm có 4 trang, tuy nhiên khi xem và in luôn là gấp đôi số trang thực tế (8 trang). Vậy là lỗi gì ạ và các chỉnh sửa cho đúng với thực tế 4 trang khi xem và in ra ạ.
  



Chủ đề Mới nhất

Demo_Code Xuất Lý lịch 2C... -Chuyên mục: Tương tác Chương trình ngoài-Đăng bởi lần cuối: GaDauBac-1 Giờ trước- » Bài trả lời: 7- » Lượt xem: 157

Lỗi report hiển thị gấp đ... -Chuyên mục: Report-Đăng bởi lần cuối: GaDauBac-1 Giờ trước- » Bài trả lời: 24- » Lượt xem: 352

Lưu record vào table theo... -Chuyên mục: Table-Đăng bởi lần cuối: tantai1983-21-01-21, 01:57 PM- » Bài trả lời: 2- » Lượt xem: 62

[Góc thơ] THAO THỨC -Chuyên mục: Góc Thơ -Đăng bởi lần cuối: Nguyễn Thành Sáng-20-01-21, 10:54 PM- » Bài trả lời: 1,168- » Lượt xem: 154,249

Lọc ngày tháng: cho kết q... -Chuyên mục: Query-Đăng bởi lần cuối: ongke0711-19-01-21, 11:49 PM- » Bài trả lời: 9- » Lượt xem: 138

Demo Login + Phân quyền (... -Chuyên mục: Share Code-Đăng bởi lần cuối: songlong1424-19-01-21, 05:36 PM- » Bài trả lời: 69- » Lượt xem: 16,371

[Shared code]_Login + Phâ... -Chuyên mục: Share Code-Đăng bởi lần cuối: songlong1424-19-01-21, 05:34 PM- » Bài trả lời: 220- » Lượt xem: 82,808

Chuyển công thức ở chuỗi ... -Chuyên mục: Ms Excel-Đăng bởi lần cuối: gobi-19-01-21, 04:43 PM- » Bài trả lời: 4- » Lượt xem: 1,125

Demo Import/Export Excel ... -Chuyên mục: Tương tác Chương trình ngoài-Đăng bởi lần cuối: maidinhdan-19-01-21, 02:47 PM- » Bài trả lời: 116- » Lượt xem: 29,900

[Phần 1]Demo Link Table n... -Chuyên mục: Thư viện thủ thuật-Đăng bởi lần cuối: maidinhdan-19-01-21, 02:46 PM- » Bài trả lời: 18- » Lượt xem: 1,232




Diễn đàn Thống kê

» Thành viên: 3,519 » Thành viên mới nhất: iyalolo » Các chủ đề diễn đàn: 9,344 » Các bài viết diễn: 44,692 Thống kê đầy đủ