Function AdaData(Optional NamaSheet As String) As Boolean
If NamaSheet = vbNullString Then NamaSheet = ActiveSheet.Name
On Error GoTo Penjara:
Worksheets(NamaSheet).Activate
Cells.Find(What:=TxNama.Text).Activate
If ActiveCell.Row > 0 Then AdaData = True
Exit Function
Penjara:
AdaData = False
End Function
Private Sub CmdSave_Click()
If AdaData Then If MsgBox("Data Iki Wis Ono Mas Bro", vbCritical +
vbOKOnly) = vbOK Then Exit Sub
End Sub
Rgds,
[dp]
Pada 07/07/2013 2:35, Misbahul Anwar menulis:
Mohon penyempurnaan untuk mencegah data ganda dalam sheet Alamat &
Pend, kode VB berikut masih tidak bekerja, file-nya saya lampirkan :
----------------------------------------------
Private Sub CmdSave_Click()
CekData = CariData(“Alamat″)
If CekData 0 Then
MsgBox “Data Sudah pernah direkam”
End If
End Sub
-----------------------------------------------
Function CariData(Optional NamaSheet As String) As Long
If NamaSheet = vbNullString Then
NamaSheet = ActiveSheet.Name
End If
On Error Resume Next
With Worksheets(NamaSheet)
CariData = .Cells.Find(FrmAlamat.TxNama.Text, .Cells(1), xlFormulas,
xlWhole, xlByRows, xlPrevious).Row
End With
End Function
-----------------------------------------------
Terimakasih
