Membuat Query Dengan Script

Ok, di bab ini kita akan bahas bagai mana membuat query dengan script dan memasukkan formula ke setiaf fields nya.
ini hanya query sederhana, selanjutnya kreasikan aja sendiri yak....

dan jika ada yang kurang di mengerti silahkan comment dan pasti akan di respon secepatnya...

Sub CreateQueryA()
On Error Resume Next
Dim db As Database
Dim qrydef As QueryDef
Dim mysql As String
Dim Skol As Long
Dim mulai As Long
Dim selesai As Long
Dim aformula1 As String
mulai = Format(Date, 0)
selesai = Format(Month(Date) & "/1/" & Year(Date) + 1, 0)
For Skol = mulai To selesai
If Format(Skol, "d") = 1 Then
aformula1 = aformula1 & ", IIF(Format([tglcuti],0) = " & Skol & ",0,1) As [" & Format(Skol, "mmm-yy") & "]"
End If
Next Skol
mysql = "Select [nama], [jabatan], [departement], [level], [tglmasuk], [tglcuti]" & aformula1 & " from [Table_Roster" & Format(Date, "mmmm yyyy") & "]"
Set db = CurrentDb()
db.QueryDefs.Delete "Query1"
Set qrydef = db.CreateQueryDef("Query1", mysql)
Debug.Print mysql
End Sub
Salam...