[RESOLVED] how to prevent that at the input to the msflexgrid not duplicate

[andisyarif]

hello all
i have problem to prevent that at the input to the grid not duplicate

this is my form


in my form there is duplicate data

this is my coding insert data from textbox to msflexgrid

Private Sub Command2_Click()
If Text2.Text = "" Then
MsgBox "Kode Voucher Masih Kosong !", vbOKOnly + vbCritical, "KONFIRMASI"
Command1.SetFocus
    ElseIf Val(Text8.Text) > Val(Text5.Text) Then
        MsgBox " Stok Voucher Tidak Memadai !", vbOKOnly + vbCritical, "KONFIRMASI"
    ElseIf Gridtransaksi.Rows = 1 Then
        MsgBox "Belum Ada Voucher Yang Akan Dijual !", vbOKOnly + vbCritical, "KONFIRMASI"
    Else
        With Gridtransaksi
            .Rows = baris + 1
            .TextMatrix(baris, 0) = Text2.Text
            .TextMatrix(baris, 1) = Text3.Text
            .TextMatrix(baris, 2) = Text4.Text
            .TextMatrix(baris, 3) = Text8.Text
            .TextMatrix(baris, 4) = Text6.Text
        End With
            Call Total
            baris = baris + 1
            Call bersihvoucher
        End If
End Sub

is there any idea to solve my problem ?

Thanks

Andi

Regard's

[codesearcher]

you may want to loop in the column of your grid that you want only nique record and compare it to something, so if there is a result in your loop, then you have already an existing record else otherwise.

[andisyarif]

Can you give me an example
How to do it ?

Thanks

Andi

regard's

[SamOscarBrown]

What do you want to prevent duplication of? Kode? Does it matter if the OTHER columns may be the same?

If it is Kode, then do this:

Private Sub Command2_Click()
    Dim baris As Integer
    baris = Gridtransaksi.Rows
    Dim x As Integer
    If Text2.Text = "" Then
    MsgBox "Kode Voucher Masih Kosong !", vbOKOnly + vbCritical, "KONFIRMASI"
    Command1.SetFocus
    Else
        For x = 1 To Gridtransaksi.Rows - 1
            If Gridtransaksi.TextMatrix(x, 0) = Text2.Text Then
                MsgBox "Kode already exists!", vbCritical
                Exit Sub
            End If
        Next x

        With Gridtransaksi
            .Rows = baris + 1
            .TextMatrix(baris, 0) = Text2.Text
            .TextMatrix(baris, 1) = Text3.Text
            .TextMatrix(baris, 2) = Text4.Text
            .TextMatrix(baris, 3) = Text8.Text
            .TextMatrix(baris, 4) = Text6.Text
        End With
            Call Total
            baris = baris + 1
            Call bersihvoucher
        End If
End Sub

[andisyarif]

thanks a lot for your help

Andi

regard's

[SamOscarBrown]

Here...I did a bit more for you.....might help as you try to type in new voucher numbers...finds largest number in your grid and adds 1 to it if you want to do that.



Attachment 127851