Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
tạo 1 trường rồi update luôn
#1
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;
Chữ ký của Đỗ Đức Lộc Xin chào, mình là Đỗ Đức Lộc, Tham gia http://thuthuataccess.com/forum từ ngày 14-04 -14.
Reply
Những người đã cảm ơn
#2
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 !
Chữ ký của Minh Tiên -----------------------------------------------
Đường tuy ngắn, không đi không đến
Việc tuy nhỏ, không làm không nên.
                                           Tuân Tử
-----------------------------------------------
Reply
Những người đã cảm ơn Noname , Đỗ Đức Lộc
#3
tks bạn nhiều
Chữ ký của Đỗ Đức Lộc Xin chào, mình là Đỗ Đức Lộc, Tham gia http://thuthuataccess.com/forum từ ngày 14-04 -14.
Reply
Những người đã cảm ơn
#4
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 !
Chữ ký của Minh Tiên -----------------------------------------------
Đường tuy ngắn, không đi không đến
Việc tuy nhỏ, không làm không nên.
                                           Tuân Tử
-----------------------------------------------
Reply
Những người đã cảm ơn
#5
sao mình vẫn ko làm được nhỉ
Chữ ký của Đỗ Đức Lộc Xin chào, mình là Đỗ Đức Lộc, Tham gia http://thuthuataccess.com/forum từ ngày 14-04 -14.
Reply
Những người đã cảm ơn


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  [Hỏi] cách lọc giá trị trên 2 trường khác nhau? hoanghai902 1 70 18-11-16, 09:27 AM
Bài mới nhất: vulhu06
  [Help] Tính tổng theo điều kiện các trường trong nhiều table,đưa ra kết quả bignosevinatex 6 760 06-09-16, 10:56 PM
Bài mới nhất: maidinhdan
  [Help] Update từ query A sang B phamvanvy2003 8 451 28-08-16, 10:11 PM
Bài mới nhất: tranthanhan1962
  [Hỏi] nếu cột trường dữ liệu đểu rỗng thì không hiển thị cột trường dữ liệu đó... duynghiep89 2 328 22-12-15, 09:43 PM
Bài mới nhất: duynghiep89
  Update table tu query adamtitan37 3 413 05-11-15, 02:00 PM
Bài mới nhất: tranthanhan1962

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ