element editor

[genusis]

Here's one for ya dave.

well runtime error 380
invalid property value

Code:

Public Sub ElementEditorInit()
    frmElementEditor.txtName.Text = Trim(Element(EditorIndex).Name)
    frmElementEditor.scrlStrong.Value = Element(EditorIndex - 1).Strong
    frmElementEditor.scrlWeak.Value = Element(EditorIndex - 1).Weak
    frmElementEditor.Show vbModal
End Sub

H8ighlights this.
frmElementEditor.txtName.Text = Trim(Element(EditorIndex).Name)


____________________________________________________________
The rest of the code for that part.

Code:

Private Sub scrlStrong_Change()
    lblStrong.Caption = Element(scrlStrong.Value).Name
End Sub

Code:

Public Sub ElementEditorOk()
    Element(EditorIndex - 1).Name = frmElementEditor.txtName.Text
    Element(EditorIndex - 1).Strong = frmElementEditor.scrlStrong.Value
    Element(EditorIndex - 1).Weak = frmElementEditor.scrlWeak.Value
    Call SendSaveElement(EditorIndex - 1)
    Call ElementEditorCancel
End Sub

Code:

Public Sub ElementEditorCancel()
    InElementEditor = False
    Unload frmElementEditor
End Sub

Someone please help me.

[Ramsey]

Can you post the Rec?

[genusis]

well da undead fixed it for me. he didnt need to use the rec. but the fix was:

Code:

Public Sub ElementEditorInit()
    Element(EditorIndex).Name = frmElementEditor.txtName.Text
    Element(EditorIndex).Strong = frmElementEditor.scrlStrong.Value
    Element(EditorIndex).Weak = frmElementEditor.scrlWeak.Value
    frmElementEditor.Show vbModal
End Sub

Code:

Public Sub ElementEditorOk()
    Element(EditorIndex).Name = frmElementEditor.txtName.Text
    Element(EditorIndex).Strong = frmElementEditor.scrlStrong.Value
    Element(EditorIndex).Weak = frmElementEditor.scrlWeak.Value
    Call SendSaveElement(EditorIndex)
    Call ElementEditorCancel
End Sub

I would have never guessed that. But thanks for offering your help Xero, and Dave.