Dibawah adalah tombol untuk menyimpan data ke database. Saya ingin buat tombol
tambahan semacam notifikasi/peringatan dimana setelah klik cmdSaveDatabase
muncul peringatan "Apakah anda yakin untuk menyimpan data ini?" OK untuk
melanjutkan, Cancel untuk membatalkan.
Kira2 begitu, tolong bantuan para master2 suhu excel sekali lagi. Trimakasih
sebelumnya
_______________________________________________________
Private Sub cmdSaveDatabase_Click()
'----------------------------------
' ModifiedBy: Markonah, Jun 23 2012
'----------------------------------
Dim lRowsDB As Long
If LenB(Me.Range("A2").Value) > 0 Then
' buat ngesave (saya belum tahu: "nge" itu "termasuk awalan Ya ?)
Me.Range("E2").Value = Now
Me.Range("E2").NumberFormat = "dd-mmm-yyyy hh:mm:ss"
lRowsDB = Sheet2.Range("a1").CurrentRegion.Rows.Count
Me.Range("A2:E2").Copy
Sheet2.Range("a1").Offset(lRowsDB).PasteSpecial 12
Me.Range("A2:E2").ClearContents
MsgBox "Sip sip sip", vbInformation
End If
End Sub
-----------------------------------
