sebetulnya kalau gak males lihat-lihat posting lama (mengenai entri
data); contoh seperti yg ditanyakan sudah banyak.....
Private Sub cmdSaveDatabase_Click()
'----------------------------------
' ModifiedBy: Markonah, Jun 23 2012
' ModifiedBy: ~Rara, Jun 23 2012
'----------------------------------
Dim lRowsDB As Long, Responz, t As String
If LenB(Me.Range("A2").Value) > 0 Then
'buat ngesave
Me.Range("E2").Value = Now
Me.Range("E2").NumberFormat = "dd-mmm-yyyy hh:mm:ss"
lRowsDB = Sheet2.Range("a1").CurrentRegion.Rows.Count
t = "Apakah anda yakin untuk menyimpan data ini?" & vbCrLf & vbCrLf
t = t + "OK untuk melanjutkan, Cancel untuk membatalkan"
Responz = MsgBox(t, vbOKCancel + vbQuestion, "Entry Data")
If Responz = vbOK Then
Me.Range("A2:E2").Copy
Sheet2.Range("a1").Offset(lRowsDB).PasteSpecial 12
Me.Range("A2:E2").ClearContents
End If
End If
End Sub
~Rr
2012/6/23 lapendosol opik <[email protected]>
>
> 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
> -----------------------------------
>
