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
 

[Dököll]

Greetings, squrel!

I am not sure what the problem is, are you having problems with just your save mechanism? Did you know you can run the code in debug mode to follow what is happening. Please write if you need to know how to do that.

Do stay tuned for a better answer on this one, like I said I am not certain how this could go.

In a bit!

Dököll

[squrel]

plz tel me how to run it in a dubug mode... and non of my button is working... dont knw why? thank u

[QVeen72]

Hi,

First Remove the error Handling and Run the Code.
Keep a BreakPoint on First Line of the Code.
and Check the Run-Sequence..

Regards
Veena

[squrel]

Hi... i have changed the code to this but still i have error in this line :

'txtAddressId.T ext = GetNextCode("Ad dress", "AdrID")

why my getnextcode is not working? it gives me the error of Sub or function not defined? i dont get wht is the problem.... plz help... thankx



Option Explicit

Private Sub Form_Initialize ()
On Error GoTo ChkErr
Db.Close
Db.ConnectionSt ring = pStrConnectionS tring
Db.ConnectionTi meout = 0
Db.Open
Db.CursorLocati on = adUseClient
DoEvents
Exit Sub
ChkErr:
If Err.Number > 0 Then
MsgBox Err.Number & vbNewLine & Err.Description
Call ErrHand(Me.Capt ion, "Form_Initializ e")
'Resume Next
End If
End Sub
Private Sub Form_Load()
On Error GoTo ChkErr
FormUpdateSQL1. ConnectionStrin g = pStrConnectionS tring
FormUpdateSQL1. TableName = "Address"
FormUpdateSQL1. FieldList = "AdrId;AdrOf;Ad dress;City;Pin; Entrydt;Closedt ;Ind;"
FormUpdateSQL1. ControlList = "txtId;cmbadrof ;txtAddress;txt City;txtPin;DTP entrydt;DTPclos edt;ChkInd;"
FormUpdateSQL1. ViewFields = "AdrId;AdrOf;Ad dress;City;Pin; Entrydt;Closedt ;Ind;"
FormUpdateSQL1. FormatString = "AdrId;AdrOf;Ad dress;City;Pin; Entrydt;Closedt ;Ind;"
FormUpdateSQL1. DoVisible 4, False
FormUpdateSQL1. DoVisible 6, False
FormUpdateSQL1. DoVisible 8, False
FormUpdateSQL1. AllowEdit = True
FormUpdateSQL1. Refresh
cmbadrof.Enable d = False
Call Grid_Data
Exit Sub
ChkErr:
If Err.Number > 0 Then
MsgBox Err.Number & vbNewLine & Err.Description
Call ErrHand("Addres s", "Form_Load" )
'Resume Next
End If

Grid_Data
End Sub
Public Sub Grid_Data()
On Error GoTo ChkErr
Adodc1.Connecti onString = pStrConnectionS tring
Adodc1.RecordSo urce = "Select AdrID as ID,Adrof,Addres s,City,Pin,entr ydt as EntryDate,close dt as CloseDate from Address"
Adodc1.Refresh
MSHFlexGrid1.Co lWidth(1) = 800
MSHFlexGrid1.Co lWidth(2) = 1000
MSHFlexGrid1.Co lWidth(3) = 2000
MSHFlexGrid1.Co lWidth(4) = 1000
MSHFlexGrid1.Co lWidth(5) = 800
MSHFlexGrid1.Co lWidth(6) = 1000
MSHFlexGrid1.Co lWidth(7) = 2000
MSHFlexGrid1.Re fresh
Exit Sub
ChkErr:
If Err.Number > 0 Then
MsgBox Err.Number & vbNewLine & Err.Description
Call ErrHand("Addres s", "Grid_Data" )
'Resume Next
End If
End Sub

Private Sub FormUpdateSQL1_ AddClick()
cmbadrof.Enable d = True
'txtAddressId.T ext = GetNextCode("Ad dress", "AdrID")
cmbadrof.Enable d = True
ChkInd.Value = 1
End Sub

Private Sub FormUpdateSQL1_ AfterControlsEn abled()
cmbadrof.Enable d = True
End Sub
Private Sub FormUpdateSQL1_ AfterUpdate()
cmbadrof.Enable d = False
Call Grid_Data
End Sub
Private Sub FormUpdateSQL1_ BeforeValidate( )
If cmbadrof.Text = "" Then
MsgBox " Enter the selected address"
cmbadrof.SetFoc us
Exit Sub
FormUpdateSQL1. CancelEvent = True
End If
End Sub
Private Sub MSHFlexGrid1_Db lClick()
FormUpdateSQL1. ViewRecord True, Val(MSHFlexGrid 1.Text)
End Sub

[squrel]

Is anyone can help me in this matter??

[QVeen72]

txtAddressId.Te xt = GetNextCode("Ad dress", "AdrID")

This looks like you are calling a Function...
and you may not have that Function in your code, and the Error is the same...

Regards
Veena

[squrel]

Hi
In this code how can i get the next Id?? I mean if i have 7 record saved in this, when i press the add button i want the no 8 appears in my txtId... Can anyone help me plz... thankx a lot

[squrel]

Hi Guys..
I need some help here if anyone can.. thankx

[QVeen72]

Hi,

Write this Function :
{AIRCODE}

Private Function MyNextID() As Long
Dim RSI As New ADODB.RecordSet
MyNextID = 0
RSI.Open "Select Max(ID) From MyTable",Conn
If Not RSI.EOF Then
    RSI.MoveFirst
    MyNextID = Val(RSI(0) & "")
End If
MyNextID = MyNextID + 1
RSI.Close
Set RSI = Nothing
End Function
 

Call the above Function, In cmdADD_Click

txtID.Text = MyNextID
 

Regards
Veena