runtime error: you cannot add or change a record

[indhu]

Hi

i am getting this kind of error

while saving the records this error comes.
runtime error:
you cannot add or change a record because a related record is required in table scene

Private Sub scenecbo_Click()
 
myconnection
 
myquery = scenecbo.Text
 
Call sceneLOAD
 
 MSaccs = "SELECT scene FROM scene WHERE sceneid =  '" & myquery & "' "
'Load SQL query into a variable
 
Set storyboard = CON.Execute(MSaccs, adOpenStatic)
 
End Sub

form load

Call sceneLOAD
Do While Not storyboard.EOF
scenecbo.AddItem storyboard!scene
storyboard.MoveNext
Loop

Sub sceneLOAD()
 
Set storyboard = New ADODB.Recordset
 
storyboard.Open "select * from scene ", CON, adOpenStatic, adLockReadOnly
 
End Sub

help me, i couldn't able to save the field.

[willakawill]

Where are you saving a record in this code?

[indhu]

Where are you saving a record in this code?

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 Panelcombo = vbNullString Then
 
    MsgBox "Please provide panel number.", vbExclamation, "Panel field required"
    Panelcombo.SetFocus
     Exit Sub
End If
 
'Add mode only
If addmode = True Then
Randomize
panelId_txt = Format(Round(Rnd() * 99999), "PAL00000")
 
Set storyboard = New Recordset
    storyboard.Open "SELECT * FROM panel", CON, adOpenKeyset, adLockOptimistic
    storyboard.AddNew
    storyboard("episode") = episodecbo
    storyboard("panelid") = panelId_txt
    storyboard("panel") = Panelcombo
    storyboard("filename") = Filename
  'storyboard("scenes") = scenecbo i ve commented this becos of error
    storyboard("sequence") = seqcombo
    storyboard("action") = Action
    storyboard("dialogue") = dialogue_txt
    storyboard.Update
 
    SavePicture imagebox.Picture, App.Path & "\images\" & 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
End Sub
 

[willakawill]

And which part of this code fails?

[indhu]

And which part of this code fails?

storyboard("scenes") = scenecbo