Scribd
Upload
44 views3 pages

Coding Form Surat Kematian

The document contains code for generating and managing death certificates. It includes subroutines for updating form fields, saving certificate data and PDF files, deleting the deceased person's data, printing the certificate, and resetting the form fields.

Uploaded by

NoorSodhiq
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
44 views3 pages

Coding Form Surat Kematian

The document contains code for generating and managing death certificates. It includes subroutines for updating form fields, saving certificate data and PDF files, deleting the deceased person's data, printing the certificate, and resetting the form fields.

Uploaded by

NoorSodhiq
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
You are on page 1/ 3

CODING FORM SURAT KEMATIAN

1. Private Sub TXTNOMORSURAT2_Change()


Sheet10.Range("C11").Value = Me.TXTNOMORSURAT2.Value
End Sub

2. Private Sub TXT_PENDUDUK1_Change()


Sheet10.Range("E15").Value = Me.TXT_PENDUDUK1.Value
End Sub

3. Private Sub TXT_JK_Change()


Sheet10.Range("E16").Value = Me.TXT_JK.Value
End Sub

4. Private Sub TXT_TTL1_Change()


Sheet10.Range("E17").Value = Me.TXT_TTL1.Value
End Sub

5. Private Sub TXT_AGAMA1_Change()


Sheet10.Range("E18").Value = Me.TXT_AGAMA1.Value
End Sub

6. Private Sub TXT_PEKERJAAN1_Change()


Sheet10.Range("E19").Value = Me.TXT_PEKERJAAN1.Value
End Sub

7. Private Sub TXT_NOKK1_Change()


Sheet10.Range("E20").Value = Me.TXT_NOKK1.Value
End Sub

8. Private Sub TXT_NOMORNIK1_Change()


Sheet10.Range("E21").Value = Me.TXT_NOMORNIK1.Value
End Sub

9. Private Sub TXT_ALAMAT1_Change()


Sheet10.Range("E22").Value = Me.TXT_ALAMAT1.Value
End Sub

10. Private Sub TXT_HARI2_Change()


Sheet10.Range("E27").Value = Me.TXT_HARI2.Value
End Sub

11. Private Sub TXT_TANGGAL2_Change()


Sheet10.Range("E28").Value = Me.TXT_TANGGAL2.Value
End Sub
12. Private Sub TXT_SEBAB_Change()
Sheet10.Range("E29").Value = Me.TXT_SEBAB.Value
End Sub

13. Private Sub TXT_TEMPATMENINGGAL_Change()


Sheet10.Range("E30").Value = Me.TXT_TEMPATMENINGGAL.Value
End Sub

14. Private Sub CMDSIMPAN2_Click()


Application.ScreenUpdating = False
Dim NamaFile As String

Dim SimpanSuratKematian As Object


Set SimpanSuratKematian = Sheet4.Range("A800000").End(xlUp)
Set HapusPendudukMeninggal =
Sheet2.Range("N6:N500000").Find(What:=Me.TXT_NOMORNIK1.Value, LookIn:=xlValues)

If Me.TXTNOMORSURAT2.Value = "" _
Or Me.TXT_HARI2.Value = "" _
Or Me.TXT_TANGGAL2.Value = "" _
Or Me.TXT_SEBAB.Value = "" _
Or Me.TXT_TEMPATMENINGGAL.Value = "" Then
Call MsgBox("Harap isi data surat dengan lengkap", vbInformation, "Surat Kematian")
Else

NamaFile = Sheet1.TXTFOLDER.Value & "SKM-" & Me.TXT_NOMORNIK1.Value & ".Pdf"


Sheet10.Select
Sheet10.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=NamaFile

SimpanSuratKematian.Offset(1, 0).Value = Me.TXT_PENDUDUK1.Value


SimpanSuratKematian.Offset(1, 1).Value = Me.TXT_NOMORNIK1.Value
SimpanSuratKematian.Offset(1, 2).Value = Me.TXT_NOKK1.Value
SimpanSuratKematian.Offset(1, 3).Value = Me.TXT_ALAMAT1.Value
SimpanSuratKematian.Offset(1, 4).Value = Me.LABELJUDUL.Caption
SimpanSuratKematian.Offset(1, 5).Value = Me.TXTNOMORSURAT2.Value
SimpanSuratKematian.Offset(1, 6).Value = NamaFile
Call MsgBox("Data surat berhasil disimpan", vbInformation, "Surat Kelahiran")
Sheet1.Select

End If
'Perintah ini digunakan untuk menghapus data penduduk yang meninggal dunia
HapusPendudukMeninggal.Offset(0, -13).ClearContents
HapusPendudukMeninggal.Offset(0, -12).ClearContents
HapusPendudukMeninggal.Offset(0, -11).ClearContents
HapusPendudukMeninggal.Offset(0, -10).ClearContents
HapusPendudukMeninggal.Offset(0, -9).ClearContents
HapusPendudukMeninggal.Offset(0, -8).ClearContents
HapusPendudukMeninggal.Offset(0, -7).ClearContents
HapusPendudukMeninggal.Offset(0, -6).ClearContents
HapusPendudukMeninggal.Offset(0, -5).ClearContents
HapusPendudukMeninggal.Offset(0, -4).ClearContents
HapusPendudukMeninggal.Offset(0, -3).ClearContents
HapusPendudukMeninggal.Offset(0, -2).ClearContents
HapusPendudukMeninggal.Offset(0, -1).ClearContents
HapusPendudukMeninggal.Offset(0, 0).ClearContents
HapusPendudukMeninggal.Offset(0, 1).ClearContents
HapusPendudukMeninggal.Offset(0, 2).ClearContents

End Sub

15. Private Sub CMDCETAK2_Click()


If Me.TXTNOMORSURAT2.Value = "" Then
Call MsgBox("Nomor Surat belum diisi", vbInformation, "Cetak Surat")
Else
Select Case MsgBox("Surat akan dicetak" _
& vbCrLf & "Apakah anda yakin?" _
, vbYesNo Or vbQuestion Or vbDefaultButton1, "Cetak Surat")
Case vbNo
Exit Sub
Case vbYes
End Select
Sheet10.PrintOut
Sheet1.Select
End If

End Sub

16. Private Sub CMDRESET2_Click()


Me.TXT_AGAMA1.Value = ""
Me.TXT_PENDUDUK1.Value = ""
Me.TXT_TTL1.Value = ""
Me.TXT_JK.Value = ""
Me.TXT_PEKERJAAN1.Value = ""
Me.TXT_NOMORNIK1.Value = ""
Me.TXT_NOKK1.Value = ""
Me.TXT_ALAMAT1.Value = ""
Me.TXTNOMORSURAT2.Value = ""
Me.TXT_HARI2.Value = ""
Me.TXT_SEBAB.Value = ""
Me.TXT_TANGGAL2.Value = ""
Me.TXT_TEMPATMENINGGAL.Value = ""

End Sub

You might also like