Phương thức Create Tabledef Trong access vba

Option Compare DatabaseSub TaoChiTietHD()On Error GoTo loiDim db As DAO.DatabaseSet db = CurrentDb()Dim tbl As DAO.TableDefDim index As DAO.index Set tbl = db.CreateTableDef("ChiTietHD")tbl.Fields.Append tbl.CreateField("MaHD", dbText, 6)tbl.Fields.Append tbl.CreateField("MaHang", dbText, 10)tbl.Fields.Append tbl.CreateField("SLB", dbSingle)'Cho phép de trong du lieutbl.Fields("MaHD").AllowZeroLength = Truetbl.Fields("MaHang").AllowZeroLength = True'tbl.Fields("SLB").AllowZeroLength = True'Giá tri mac dinh neu nhu không có du lieutbl.Fields("MaHD").DefaultValue = "None"'Tao mot index cho bang TblSet index = tbl.CreateIndex("MaHD")Set index = tbl.CreateIndex("MaHang")'Tao chi muc cho 2 field mac dinhindex.Fields.Append index.CreateField("MaHD")index.Fields.Append index.CreateField("MaHang")'Và...

Read more »

Tạo đối tượng Relation Trong access vba

Private Sub cmdkhvapt_Click()On Error GoTo loiDim db As DAO.DatabaseDim rls As DAO.RelationSet db = CurrentDbSet rls = db.CreateRelation("TaoQuanHe9", "KhachHang", "PhieuThu", dbRelationUpdateCascade)rls.Fields.Append rls.CreateField("MaKH")rls.Fields("MaKH").ForeignName = "MaKH"db.Relations.Append rlsloi:If Err.Number = 3012 ThenMsgBox "Da ton tai quan he nay!"End IfEnd S...

Read more »

Tạo Form Đăng Ký Trong access vba

Private Sub buttoin_Click()Dim db As DAO.DatabaseDim rs As DAO.RecordsetSet db = CurrentDbSet rs = db.OpenRecordset("acount")Dim dem As Integerdem = 0Do While rs.EOF = FalseIf rs!user = txtuser.Value Thendem = 1Exit DoExit DoEnd Ifrs.MoveNextLoopIf dem = 1 ThenMsgBox "Ten nay da ton tai"Exit SubEnd Ifrs.AddNewrs.Fields("user") = txtuser.Valuers.Fields("pass") = txtpass.Valuers.Fields("Ten") = txtten.Valuers.Fields("Ho") = txtho.Valuers.Fields("Email") = txtemail.Valuers.Fields("SoDT") = txtsdt.ValueOn Error Resume Nextrs.UpdateMsgBox "Ban Da Dang Ky Thanh Cong", vbOKOnly, "Thong Bao!"DoCmd.CloseEnd S...

Read more »

Tạo Form đăng nhập Trong access vba

Private Sub txtdn_Click()Dim db As DAO.DatabaseDim rs As DAO.RecordsetSet db = CurrentDb()Dim user, pass As Stringuser = Trim(txtuser.Value)On Error Resume Nextpass = Trim(txtpass.Value)Set rs = db.OpenRecordset("acount")Dim tam As Integertam = 0Do While rs.EOF = FalseIf rs!user = user And rs!pass = pass Then    labela.Caption = "ban da dang nhap thanh cong"    If MsgBox("Ok de vao thang chuong trinh", vbOKOnly + vbQuestion, "Thong bao!") = vbOK Then    DoCmd.OpenForm "F_Khoi_Tao"    DoCmd.Close acForm, "DANG_NHAP"    End If    tam = 1    Exit DoElse    tam = 0 End If    rs.MoveNextLoopIf tam = 0 Then    If dem <= 3 Then    ...

Read more »

Thêm xóa Sửa Trong access vba

Private Sub cmdthem_Click()Dim db As DAO.DatabaseDim rs As DAO.RecordsetSet db = CurrentDbSet rs = db.OpenRecordset("HoaDon")Dim dem As Integerdem = 0Do While rs.EOF = FalseIf rs!MaHD = txtmahd.Value Thendem = 1Exit DoEnd Ifrs.MoveNextLoopIf dem = 1 ThenMsgBox "Ma nay da ton tai", vbOKOnly, "Thong bao!"Exit SubElsers.AddNewrs!MaHD = txtmahd.Valuers!NgayLHD = txtnlhd.Valuers!MaKH = txtmakh.Valuers!MaNV = txtmanv.ValueOn Error Resume Nextrs.UpdateMsgBox "Ban da luu du lieu thanh cong"txtmahd.Value = Deletetxtnlhd.Value = Deletetxtmakh.Value = Deletetxtmanv.Value = DeleteEnd IfEnd Sub Private Sub cmdsua_Click()Dim db As DAO.DatabaseDim rs As DAO.RecordsetSet db = CurrentDbSet rs = db.OpenRecordset("HoaDon")Do While rs.EOF = FalseIf rs!MaHD = txtmahd.Value Thenrs.Editrs!MaHD = txtmahd.Valuers!NgayLHD...

Read more »