unique input(VB6)

[hustlas4ever]

---

hi...

unsaun mani kanang arun dli na pwd mag balik-balik ang ID number nga i-input sa user??

kay kani man gud aq gibuhat mu dawat lang gypn maski ga exist na ang gi-input...

ug unsa pud diay purpose anang "Adodc1"??




salmat...

[-_-]

auto increment

[rhex_tendo]

' before nimo isave ang data, icheck sa database bro kung mi.exist naba na nga data, kung mi.exist na, ayaw ipadaun ug save, hatagi message ang user nga me.exist na para mu.input siya ug iba. .
' Adodc - gamit para makita nimo ang data or records sa table sa database
'

[hustlas4ever]

' before nimo isave ang data, icheck sa database bro kung mi.exist naba na nga data, kung mi.exist na, ayaw ipadaun ug save, hatagi message ang user nga me.exist na para mu.input siya ug iba. .

awh...salamat kau sir...
unsa may keyword ana nga step sir arun mag search nlang q...

[rhex_tendo]

SELECT IDNumber FROM tblOwner WHERE IDNumber=" & txtIDnumber.text
'
'

[hustlas4ever]

asa ko mani dapit i-singit sir??

sa command button nga "Add"??

o sa table mismo??

[rhex_tendo]

' sa imo code bro. . sa command button.
' before i.save, i.validate sa ang mga data
'

[rhex_tendo]

' i.post imo code pag.save

[hustlas4ever]

mao ning code sir sa pag save paghuman ug fill-up sa user sa "add" nga form...

Private Sub CmdCancel_Click()
Unload Me
End Sub

Private Sub CmdSave_Click()
    If CmdSave.Caption = "&Save New" Then
        If MsgBox("Are you sure you want to add new record?", vbYesNo, "Add New Record") = vbYes Then
            Adodc1.Refresh
            With Adodc1.Recordset
                .AddNew
                .Fields(0) = Text1.Text
                .Fields(1) = Text2.Text
                .Fields(2) = Text3.Text
                .Update
            End With
            If MsgBox("Do you want to add another new record?", vbYesNo, "Add New Record") = vbYes Then
                Text1.Text = ""
                Text2.Text = ""
                Text3.Text = ""
                Text1.SetFocus
            Else
            mainownerfrm.Adodc1.Refresh
            mainownerfrm.DataGrid1.Refresh
            Unload Me
            End If
        Else
            Text1.SetFocus
        End If
    Else
        If MsgBox("Do you want to save the changes you have made to the current record?", vbYesNo, "Save") = vbYes Then
            With mainownerfrm.Adodc1.Recordset
                .Fields(0) = Text1.Text
                .Fields(1) = Text2.Text
                .Fields(2) = Text3.Text
                .Update
                .Close
            End With
            MsgBox ("Changes made successfully saved.")
            mainownerfrm.Adodc1.Refresh
            mainownerfrm.DataGrid1.Refresh
            Unload Me
        Else
            Text1.SetFocus
        End If
    End If
End Sub

[boloygabs]

nag assume ko bro nga imu nang ghimu ug primary key ang ID Number..
ibutang ang code sa pag check sa duplicate sa imu add button before sa imu first condition nga:
'If CmdSave.Caption = "&Save New" Then'