Ðề: Các viết lệnh trong AC
Mã nguồn PHP:
[COLOR=#000000]
Sub MoExcel[/COLOR][COLOR=#007700]()
[/COLOR][COLOR=#0000BB]Dim fileEx [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]String
fileEx [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]CurrentProject[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Path [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#DD0000]"\" & Me.TextBox1 & "[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]xls[/COLOR][COLOR=#DD0000]"
If (Dir(fileEx) <> "") Then
Shell "[/COLOR][COLOR=#0000BB]Excel[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]exe [/COLOR][COLOR=#DD0000]" & """" & fileEx & """", vbMaximizedFocus
Else
MsgBox "[/COLOR][COLOR=#0000BB]File [/COLOR][COLOR=#DD0000]" & fileEx & " [/COLOR][COLOR=#0000BB]khong ton tai[/COLOR][COLOR=#DD0000]",,"[/COLOR][COLOR=#0000BB]Thong Bao[/COLOR][COLOR=#DD0000]"
End If
End Sub[/COLOR]
Trong Form có một TextBox1 chứa file Excel cần mở
Theo phong tục của người M’nông, khi đứa trẻ vừa tròn một mùa rẫy (nghĩa là vừa tròn một năm tuổi), cha mẹ đứa trẻ phải tiến hành làm lễ cắt tóc (krah soh) và lễ xỏ tai (chuh tor) cho con mình, nhằm...
Lễ cắt tóc (krah soh) và lễ xỏ tai (chuh tor) cho trẻ sơ sinh của người M’nông