Menolak Data ganda berdasarkan 2 kriteria

  1. 4 bulan yang lalu
    Di sunting 4 bulan yang lalu oleh wawan setiawan

    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

  2. Mungkin seperti ini

  3. Terima Kasih banyak Mas Herry....

 

atau Mendaftar untuk ikut berdiskusi!