CODING FORM PENDUDUK
Private Sub HAPUS_Click()
[Link] = False
'Menentukan Object acuan data yang akan dihapus
If [Link] = "" Then
Call MsgBox("Pilih data pada tabel data", vbInformation, "Hapus Data")
Else
'Membuat pesan konfirmasi hapus data
Select Case MsgBox("Anda akan menghapus data" _
& vbCrLf & "Apakah anda yakin?" _
, vbYesNo Or vbQuestion Or vbDefaultButton1, "Hapus data")
Case vbNo
Exit Sub
Case vbYes
End Select
'Menentukan tempat hapus data, menghapus data dan membersihkan form
Set Hapusdata = [Link]("N6:N500000").Find(What:=[Link], LookIn:=xlValues)
[Link](0, -13).ClearContents
[Link](0, -12).ClearContents
[Link](0, -11).ClearContents
[Link](0, -10).ClearContents
[Link](0, -9).ClearContents
[Link](0, -8).ClearContents
[Link](0, -7).ClearContents
[Link](0, -6).ClearContents
[Link](0, -5).ClearContents
[Link](0, -4).ClearContents
[Link](0, -3).ClearContents
[Link](0, -2).ClearContents
[Link](0, -1).ClearContents
[Link](0, 0).ClearContents
[Link](0, 1).ClearContents
[Link](0, 2).ClearContents
Call MsgBox("Data berhasil dihapus", vbInformation, "Hapus Data")
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
Call UrutPenduduk
End If
End Sub
Private Sub RESET_Click()
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = True
End Sub
Private Sub TAMBAH_Click()
[Link] = False
'Perintah untuk menentukan nama tempat simpan data
Dim DATAPENDUDUK As Object
'Perintah membuat tempat simpan data
Set DATAPENDUDUK = [Link]("A500000").End(xlUp)
'Perintah untuk menentukan Data inti / tambahan
If [Link] = "" _
Or [Link] = "" _
Or [Link] = "" _
Or [Link] = "" _
Or [Link] = "" _
Or [Link] = "" _
Or [Link] = "" _
Or [Link] = "" _
Or [Link] = "" _
Or [Link] = "" Then
'Perintah memunculkan pesan jika data inti kosong
Call MsgBox("Maaf, Data input harus lengkap", vbInformation, "Input Data")
'Perintah untuk menyimpan data pada tempat simpan data
Else
[Link](1, 0).Value = [Link]
[Link](1, 1).Value = [Link]
[Link](1, 2).Value = [Link]
[Link](1, 3).Value = [Link]
[Link](1, 4).Value = [Link]
[Link](1, 5).Value = [Link]
[Link](1, 6).Value = [Link]
[Link](1, 7).Value = [Link]
[Link](1, 8).Value = [Link]
[Link](1, 9).Value = [Link]
[Link](1, 10).Value = [Link]
[Link](1, 11).Value = [Link]
[Link](1, 12).Value = [Link]
[Link](1, 13).Value = [Link]
[Link](1, 14).Value = [Link]
[Link](1, 15).Value = [Link]
Call MsgBox("Data penduduk berhasil di tambah", vbInformation, "Tambah Data")
Call UpdateTabel
'Perintah untuk membersihkan form
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
End If
End Sub
Private Sub UBAH_Click()
[Link] = False
Dim BARIS As String
If [Link] = "" Then
Call MsgBox("Pilih data terlebih dahulu", vbInformation, "Pilih Data")
Else
[Link]
BARIS = [Link]
Cells(BARIS, 1) = [Link]
Cells(BARIS, 2) = [Link]
Cells(BARIS, 3) = [Link]
Cells(BARIS, 4) = [Link]
Cells(BARIS, 5) = [Link]
Cells(BARIS, 6) = [Link]
Cells(BARIS, 7) = [Link]
Cells(BARIS, 8) = [Link]
Cells(BARIS, 9) = [Link]
Cells(BARIS, 10) = [Link]
Cells(BARIS, 11) = [Link]
Cells(BARIS, 12) = [Link]
Cells(BARIS, 13) = [Link]
Cells(BARIS, 14) = [Link]
Cells(BARIS, 15) = [Link]
Cells(BARIS, 16) = [Link]
Call MsgBox("Data berhasil diubah", vbInformation, "Ubah Data")
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
End If
Unload Me
[Link]
End Sub
Private Sub UserForm_Initialize()
On Error Resume Next
[Link] = RGB(42, 45, 50)
With KELAMIN
.AddItem "Laki-Laki"
.AddItem "Perempuan"
End With
With PERNIKAHAN
.AddItem "Kawin"
.AddItem "Belum Kawin"
.AddItem "Cerai Hidup"
.AddItem "Cerai Mati"
End With
With AGAMA
.AddItem "Islam"
.AddItem "Kristen"
.AddItem "Hindu"
.AddItem "Budha"
.AddItem "Konghucu"
.AddItem "Penghayat Kepercayaan"
End With
With PENDIDIKAN
.AddItem "SD"
.AddItem "SMP"
.AddItem "SMA/MA/SMU/Sederajat"
.AddItem "D1"
.AddItem "D2"
.AddItem "D3"
.AddItem "S1"
.AddItem "S2"
End With
With MEMBACA
.AddItem "Latin"
.AddItem "Daerah"
.AddItem "Arab"
.AddItem "Arab, Latin"
.AddItem "Arab, Daerah"
.AddItem "Arab, Latin, Daerah"
End With
With WARGANEGARA
.AddItem "WNI"
.AddItem "WNA"
End With
With KEDUDUKAN
.AddItem "Kepala Keluarga"
.AddItem "Istri"
.AddItem "Anak Kandung"
.AddItem "Anak Tiri"
.AddItem "Pembantu"
.AddItem "Famili Lain"
End With
With PEKERJAAN
.AddItem "ASN"
.AddItem "Petani"
.AddItem "Buruh"
.AddItem "Wiraswasta"
End With
With DUSUN
.AddItem "Dusun 1"
.AddItem "Dusun 2"
.AddItem "Dusun 3"
End With
End Sub