Save button using toolbar

[squrel]

Hello everyone,
I m using some button using toolbar such as Add,Save,View,. ... my save button is not working.... it doesnt give me any error but does not save to my database.... or showing in my gird... Plz Help
here is my code for save button

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
On Error GoTo ChkErr
    If Button.Index = 1 Then
            Mode = "Add"
            Call AddMode
            Call ClearControl
            Toolbar1.Buttons.Item(1).Enabled = False ' Add
            Toolbar1.Buttons.Item(2).Enabled = False ' View
            Toolbar1.Buttons.Item(3).Enabled = False ' Sort
            Toolbar1.Buttons.Item(4).Enabled = False ' Edit
            Toolbar1.Buttons.Item(5).Enabled = True ' save
            Toolbar1.Buttons.Item(9).Enabled = True 'Exit
 
              End If
 
    If Button.Index = 4 Then
        'If Val(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.RowSel, 8)) = "0" Then
            Mode = "Edit"
            Toolbar1.Buttons.Item(5).Enabled = True ' save buton
              Call Enable
        Else
            MsgBox " Cannot Edit "
        End If
 
    If Button.Index = 5 Then
 
            Call SaveMode
            Call ClearControl
            Call Desable
            MsgBox " Record Saved For Id '" & txtId.Text & "'"
            Toolbar1.Buttons.Item(5).Enabled = False
            Toolbar1.Buttons.Item(1).Enabled = True ' Add
 
            Call Address
    End If
 
    'End If
 
    If Button.Index = 2 Then ' View
        'Toolbar1.Buttons.Item(7).Enabled = False ' Final
        Toolbar1.Buttons.Item(1).Enabled = False ' Add
        Toolbar1.Buttons.Item(4).Enabled = True ' Edit
 
    End If
 
 
 
    If Button.Index = 7 Then ' Cancel
            Db.Execute "Update Address"
            Call Address
 
    End If
 
 
    If Button.Index = 9 Then ' Exit
            Unload Me
    End If
 
Exit Sub
ChkErr:
    If Err.Number > 0 Then
    MsgBox Err.Number & vbNewLine & Err.Description
               Call ErrHand(Me.Caption, "cmdSave_Click")
 
    End If
End Sub
 
 
Public Function SaveMode()
'On Public Function SaveMode()
If Mode = "Add" Then
    ' To Get ReqNo from Mslastdoc
    Dim Rs As New ADODB.Recordset
        If Rs.State = adStateOpen Then Rs.Close
         Rs.Open ("SELECT * FROM MsLastDoc where YY ='" & FinancialYear & "'"), Db, adOpenKeyset, adLockPessimistic
                  txtId.Text = Rs("LastDocNo").Value + 1
             Rs.Close
         ' End
 
    ' Save LastDoc
    Dim LastDoc As New ADODB.Recordset
    Dim DocNo As Integer
                DocNo = Val(txtId.Text)
                If LastDoc.State = adStateOpen Then LastDoc.Close
                LastDoc.Open ("Select * From MsLastDoc where YY ='" & FinancialYear & "' "), Db, adOpenKeyset, adLockPessimistic
                Db.Execute "Update MsLastDoc set LastDocNo ='" & DocNo & "' where YY ='" & FinancialYear & "' "
    ' End Save
End If
 
Call SaveAddress
Call ClearControl
 
End Function
Public Function SaveAddress()
    Db.Execute " Delete from Adress where Id = '" & txtId.Text & "' "
 
        Dim RsAddress As New ADODB.Recordset
       'If RsReqHdr.State = adStateOpen Then RsReqHdr.Close
        RsAddress.Open ("Address"), Db, adOpenKeyset, adLockPessimistic
        With RsAddress
        RsAddress.AddNew
                .Fields("Id") = Val(txtId.Text)
                .Fields("Addressof") = Val(cmbadrof.Text)
                .Fields("Address") = Val(txtAddress.Text)
                .Fields("city") = Val(txtCity.Text)
                .Fields("Pin") = Val(txtPin.Text)
                .Fields("entrydt") = Format(DTPentrydt, "DD-MMM-YYYY")
                .Fields("closedt") = Format(DTPClosedt, "DD-MMM-YYYY")
 
            .Update
                End With
            RsAddress.Close
End Function
 

[squrel]

Hi Veena..

That Code is not working in my project... my add function is this

Private Sub FormUpdateSQL1_ AddClick()

cmbadrfor.Enabl ed = True
'txtId.Text = GetNextCode("Ad dress", "AdrID")
cmbadrfor.Enabl ed = True
txtId.Enabled = False
ChkInd.Value = 1
End Sub

tht part of the code is not working in my function... wht else i can do..
thanks a lot

[QVeen72]

Hi,

you are using VB6 or VBA....?

My code is for VB6

Regards
Veena

[squrel]

I m using VB6 with SQLserver 2000

[QVeen72]

Hi,

Did you add the Function what I said in My previous post..?

[squrel]

Yes i added tht function the same way u told me but it is not working and still getting error