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

tạo 1 trường rồi update luôn

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Query
  • tạo 1 trường rồi update luôn
• tạo 1 trường rồi update luôn

• tạo 1 trường rồi update luôn

  Đỗ Đức Lộc > 15-05-14, 10:51 AM

  tạo thêm trường xếp loại vào bảng sinh viên và cập nhật thông tin của trường này theo yêu cầu
  dưới đây là yêu cầu
  IIf([DIEMTBLAN1]<=5,"YẾU",IIf([DIEMTBLAN1]<=7,"TRUNG BÌNH",IIf([DIEMTBLAN1]<=8,"KHÁ","GIỎI")))
  em dùng bảng sinh viên và truy vấn II5 có DIEMTBLAN1 để làm
  nhưng ko biết lên viết đk và tên trường mới như thế nào và ở đâu
  mọi người chỉ giúp với ạ
  field:
  table:
  update to:
  crite:
  or;

• RE: tạo 1 trường rồi update luôn

  Minh Tiên > 15-05-14, 03:05 PM

  Chào bạn !
  Bạn có thể làm như sau:
  1. Tạo thêm trường mới (Xeploai) vào table (TableName) có sẳn.
  2. Update vào trường mới này theo điều kiện của bạn.
  Cụ thể:
  

  Mã:

  CurrentDb.Execute "ALTER TABLE TableName ADD COLUMN Xeploai TEXT(100)"
CurrentDb.Execute "UPDATE TableNam SET TableName.Xeploai = IIf([DIEM]<=5,'Yeu', IIf([DIEM]<=7,'Trung binh',IIf([DIEM]<=8,'Kha','Gioi')))"

  Thế làm OK !
  Lưu ý: Hãy chỉnh sửa dấu phân là ; hoặc , tùy theo format PC của bạn nhé !
  Chúc bạn thành công !

• RE: tạo 1 trường rồi update luôn

  Đỗ Đức Lộc > 15-05-14, 10:17 PM

  tks bạn nhiều

• RE: tạo 1 trường rồi update luôn

  Minh Tiên > 19-05-14, 10:49 AM

  Chào bạn "Đỗ Đức Lập" !
  Mình đã xem file bạn chuyển cho mình (Qua noname@thuthuataccess.com).
  Mình đã tạo form1 và tạo trường mới, Update Ketqua Ok rồi. Mình có tạo thêm 1 modCheckFieldExist (Kiểm tra tồn tại của Field trong table) để kiểm tra, nếu chưa có Field Xeploai thì tạo mới + Update, còn có rồi thì chỉ Update. Cụ thể:
  1. modCheckFieldExist:
  

  Mã:

  Function CheckFieldExist(tableName As String, fieldName As String) As Boolean
    CheckFieldExist = False
    Dim db As DAO.Database
    Dim tdf As DAO.TableDef
    Dim i As Integer
    Set db = CurrentDb
    Set tdf = db.TableDefs(tableName)
    For i = 0 To tdf.Fields.Count - 1
    If fieldName = tdf.Fields(i).Name Then
        CheckFieldExist = True
        Exit Function
    End If
    Next
End Function

  2. Tạo mới và Update kết quả xếp loại:
  

  Mã:

  Private Sub btnThuchien_Click()
    If CheckFieldExist("Ketqua", "Xeploai") = False Then 'Kiem tra Field Xeploai trong table Ketqua, neu chua co thi tao Field Xep loai.
        CurrentDb.Execute "ALTER TABLE KETQUA ADD COLUMN Xeploai TEXT(100)"
    End If
        CurrentDb.Execute "UPDATE KETQUA SET KETQUA.Xeploai = IIf([DIEMLAN1]<=5,'Yeu', IIf([DIEMLAN1]<=7,'Trung binh',IIf([DIEMLAN1]<=8,'Kha','Gioi')))"
        DoCmd.OpenTable "KETQUA"'Mo table Ketqua ra xem
End Sub

  3.File demo: Demo
  Chúc bạn thành công !

• RE: tạo 1 trường rồi update luôn

  Đỗ Đức Lộc > 21-05-14, 04:41 PM

  sao mình vẫn ko làm được nhỉ
• Bài trước Bài tiếp