Slmat malam mas,,,saya punya kasus script dibawah ini dan database saya lampirkan juga yg mana menolak input data ganda berdasarkan tanggal berangkat yaitu pada kolom "L "di database sudah berhasil dengan scrip dibawah ini,,permasalahannya adalah bagaimana/seperti apa script vba bilamana menolak data ganda berdasarkan 2 kriteria yaitu berdasarkan Nama dan tanggal berangkat yaitu pada kolom "B" dan kolom "L"?bilamana ada kesamaan input nama dan tanggal berangkat saya ingin ada peringatan"Nama dan tanggal berangkat sudah digunakan", mohon pencerahannya para suhu...terima kasih...
Private Sub lbsave_Click()
On Error Resume Next
Dim tgl As Object
Dim WAWAN As Object
Dim SETIAWAN As String
SETIAWAN = Me.CbxNama.value
Set tgl = Sheet2.Range("L500").End(xlUp)
Set WAWAN = Sheet2.Range("A500").End(xlUp)
If Me.lbsave.Caption = "Save" Then
If Me.CbxNama.value = "" _
Or Me.TxtNip_.value = "" _
Or Me.TxtGol_.value = "" _
Or Me.TxtJabatan_.value = "" _
Or Me.CbxKegiatan = "" _
Or Me.CbxSubKeg.value = "" _
Or Me.TxtTujuan.value = "" _
Or Me.TxtLokasi.value = "" _
Or Me.TxtPengikut.value = "" _
Or Me.TxtBerangkat.value = "" _
Or Me.TxtKembali.value = "" _
Or Me.TxtLamaHari.value = "" _
Or Me.TxtUangHarian.value = "" _
Or Me.CbxJenisSPPD.value = "" _
Or Me.CbxAlatAngkut.value = "" _
Or Me.CbxPPTK.value = "" _
Or Me.CbxPemPPTK.value = "" _
Or Me.TxtPenandatangan.value = "" _
Or Me.TxtNipPejabat.value = "" _
Or Me.TxtDobel.value > 0 Then
Call MsgBox("Maaf tanggal sudah dipakai silahkan ganti tanggal berbeda", vbInformation, "Input SPPD")
Else
WAWAN.Offset(1, 0).value = "=ROW()-ROW($A$1)"
WAWAN.Offset(1, 1).value = Me.CbxNama.value
WAWAN.Offset(1, 2).value = Me.TxtNip_.value
WAWAN.Offset(1, 3).value = Me.TxtGol_.value
WAWAN.Offset(1, 4).value = Me.TxtJabatan_.value
WAWAN.Offset(1, 5).value = Me.CbxKegiatan.value
WAWAN.Offset(1, 6).value = Me.CbxSubKeg.value
WAWAN.Offset(1, 7).value = Me.TxtTujuan.value
WAWAN.Offset(1, 8).value = Me.TxtLokasi.value
WAWAN.Offset(1, 9).value = Pengikut_.CbxPengikut1.value
WAWAN.Offset(1, 10).value = Pengikut_.CbxPengikut2.value
WAWAN.Offset(1, 11).value = Me.TxtBerangkat.value
WAWAN.Offset(1, 12).value = Me.TxtKembali.value
WAWAN.Offset(1, 13).value = Me.TxtLamaHari.value
WAWAN.Offset(1, 14).value = CDbl(Me.TxtUangHarian.Text)
WAWAN.Offset(1, 15).value = Me.CbxJenisSPPD.value
WAWAN.Offset(1, 16).value = Me.CbxAlatAngkut.value
WAWAN.Offset(1, 17).value = Me.CbxPPTK.value
WAWAN.Offset(1, 18).value = Me.CbxPemPPTK.value
WAWAN.Offset(1, 19).value = Me.TxtPenandatangan.value
WAWAN.Offset(1, 20).value = Me.TxtNipPejabat.value
Me.TABELSP.RowSource = Sheet2.Range("A2:U500").Address(External:=True)
Call UserForm_Initialize
Call MsgBox("Data berhasil Disimpan", vbInformation, "Simpan Data")
Me.TxtNo_.value = ""
Me.CbxNama.value = ""
Me.TxtNip_.value = ""
Me.TxtGol_.value = ""
Me.TxtJabatan_.value = ""
Me.CbxKegiatan.value = ""
Me.CbxSubKeg.value = ""
Me.TxtTujuan.value = ""
Me.TxtLokasi.value = ""
Me.TxtPengikut.value = ""
Me.TxtBerangkat.value = ""
Me.TxtKembali.value = ""
Me.TxtLamaHari.value = ""
Me.TxtUangHarian.value = ""
Me.CbxJenisSPPD.value = ""
Me.CbxAlatAngkut.value = ""
Me.CbxPPTK.value = ""
Me.CbxPemPPTK.value = ""
Me.TxtPenandatangan.value = ""
Me.TxtNipPejabat.value = ""
Me.TxtDobel.value = ""
Pengikut_.CbxPengikut1.value = ""
Pengikut_.CbxPengikut2.value = ""
End If
End If
Call UpdateSurtug
Exit Sub
End Sub