tui123 > 13-02-12, 10:22 AM
domfootwear > 13-02-12, 11:45 AM
(13-02-12, 10:22 AM)tui123 Đã viết: Chào mọi người!!
Mình có vấn đề là: Mình muốn thêm Record vào CSDL bằng VBA (Cái này mình làm được rùi).
Nhưng mà mình muốn thêm Record lấy ngày hiện hành làm tên Record và cộng thêm vào cột số lượng.
Ví dụ: Thêm Record ngay vào CSDL theo ngày hiện hành là ngay13/02/12 và cộng
thêm vào cột SL theo dạng [ngay13/02/12]+[SL] đến đây mình bí hu hu, mong các bạn giúp giùm vì
mình rất cần,Thank trước nhá. Link CSDL của mình nè:
http://www.mediafire.com/download.php?ne03n3k0130eftl
Trân trọng.
Function CreateField( _
ByVal strTableName As String, _
ByVal strFieldName As String) _
As Boolean
'References: Microsoft Access 11.0 Object Library, Microsoft DAO 3.6 Object Library
'Set references by Clicking Tools and Then References in the Code View window
'Creates a Text field, other data types listed
'
' strTableName : Name of table in which to create the field
'
' strFieldName : Name of the new field to add to table
' Returns True on success, false otherwise
'
'USAGE: CreateField "TABLENAME", "FIELDNAME"
On Error GoTo errhandler
Dim Db As DAO.Database
Dim fld As DAO.Field
Dim tdf As DAO.TableDef
Set Db = Application.CurrentDb
Set tdf = Db.TableDefs(strTableName)
' First create a field with data type = Text
Set fld = tdf.CreateField(strFieldName, dbText)
'A few Alternate datatypes: for DAO - Note: The listed Complex data types require
' Access 2007 or higher
'Long = dbLong or dbComplexLong
'Single = dbSingle or dbComplexSingle
'Double = dbDouble or dbComplexDouble
'Integer = dbInteger
'Decimal = dbDecimal or dbComplexDecimal
'Text = dbText or dbComplexText
'Memo = dbMemo
'Currency = dbCurrency
'Yes/No = dbBoolean
'Date = dbDate
' Appending the field
With tdf.Fields
.Append fld
.Refresh
End With
CreateField = True
ExitHere:
Set fld = Nothing
Set tdf = Nothing
Set Db = Nothing
MsgBox "Create Field Complete"
Exit Function
errhandler:
CreateField = False
With Err
MsgBox "Error " & .Number & vbCrLf & .Description, _
vbOKOnly Or vbCritical, "CreateField"
End With
Resume ExitHere
End Function
Private Sub Command0_Click()
'Dim MyWS As Workspace, MyDB As Database, MyFD As Field, MyTD As TableDef
'Set MyWS = DBEngine.Workspaces(0)
'Set MyDB = MyWS.OpenDatabase("C:\Tam.mdb")
'Set MyTD = MyDB![KH]
'Set MyFD = MyTD.CreateField("Ngay")
'MyFD.Type = dbLong
'MyTD.Fields.Append MyFD
CreateField "KH", "NGAY"
With DoCmd
.SetWarnings (False)
.RunSQL "UPDATE KH SET KH.NGAY = Format(Now(),'DD-MM-YYYY + ')& KH.[sl];"
.SetWarnings (True)
End With
End Sub