how to save rest of my fields

[indhu]

Private Sub cmdsave_Click()
 
If imagebox.Picture = LoadPicture("") Then
    MsgBox "Please browse the image you want to add to your database.", vbExclamation, "Image required"
    browseimage
    Exit Sub
 
ElseIf shotcombo = vbNullString Then
 
    MsgBox "Please provide shot number.", vbExclamation, "shot number required"
    shotcombo.SetFocus
     Exit Sub
End If
 
'Add mode only
If addmode = True Then
 
Set storyboard = New Recordset
    storyboard.Open "SELECT * FROM shot", CON, adOpenKeyset, adLockOptimistic
    storyboard.AddNew
    storyboard("shot") = shotcombo
    storyboard("filename") = Filename
    storyboard.Update
 
    SavePicture imagebox.Picture, App.Path & "\" & Filename
 
    question = MsgBox("Image saved to database. Do you want to add another image?", vbExclamation + vbYesNo, "Image saved")
 
    If question = vbYes Then
        resetfields
    Else
        Unload Me
    End If
End If

i can able to add only my 2 fields using this save command. i want rest of my fields get saved using this save command. how to do that.

other fields are, sequence, scene, action and dialogue. i tried using if condition but didn't work.

help me out

[willakawill]

Hi. You can add the other fields in this section:

Set storyboard = New Recordset
    storyboard.Open "SELECT * FROM shot", CON, adOpenKeyset, adLockOptimistic
    storyboard.AddNew
    storyboard("shot") = shotcombo
    storyboard("filename") = Filename
    storyboard("anotherfield") = anotherfield
    storyboard.Update

[indhu]

Hi. You can add the other fields in this section:

Set storyboard = New Recordset
    storyboard.Open "SELECT * FROM shot", CON, adOpenKeyset, adLockOptimistic
    storyboard.AddNew
    storyboard("shot") = shotcombo
    storyboard("filename") = Filename
    storyboard("anotherfield") = anotherfield
    storyboard.Update

thank u so much, its working.

[willakawill]

thank u so much, its working.

You are very welcome :)