[es] - File/path access error '75'

negative7
Ivan Raic

Član broj: 186110
Poruke: 151
*.CARNet.hr.

Profil

^{08.03.2011. u 22:34 - pre 159 meseci}

Uvjek nakon nekog vremena,a obicno kad nista ne radim nego samo stoji otvoren sheet na neko vrijeme,i kad probam da otvorim formu
izbaci mi ovaj error: na
Sub_LoadForm
formName.Show
End Sub

a ovo je kod od forme:

Code:

Private Sub btnGo_Click()
    If main_form.cmb_Lines.Text = "Jela" Then

        Sheet1.Img1_Click

    ElseIf main_form.cmb_Lines.Text = "Nosni X Stup" Then

        Sheet1.Img2_Click
    ElseIf main_form.cmb_Lines.Text = "Jela s Nul Vodicem" Then

        Sheet1.Img3_Click
    ElseIf main_form.cmb_Lines.Text = "Portal" Then

        Sheet1.Img4_Click
    ElseIf main_form.cmb_Lines.Text = "Dunav" Then

        Sheet1.Img5_Click
    ElseIf main_form.cmb_Lines.Text = "Bacva" Then

        Sheet1.Img6_Click
    ElseIf main_form.cmb_Lines.Text = "Horizontalni Raspored Vodica" Then

        Sheet1.Img7_Click
    ElseIf main_form.cmb_Lines.Text = "Y-Stup" Then

        Sheet1.Img8_Click
    ElseIf main_form.cmb_Lines.Text = "Bacva s nul vodicima" Then

       Sheet1.Img9_Click
    End If
End Sub

Private Sub cmb_Lines_Change()
Select Case cmb_Lines.Text
    Case "Jela"
    With Img_Lines
    main_form.Img_Lines.Picture = LoadPicture(ThisWorkbook.Path & "\Resources\1a.jpg")
    main_form.Img_Lines.PictureSizeMode = fmPictureSizeModeStretch
    End With

    Case "Nosni X Stup"
    With Img_Lines
    main_form.Img_Lines.Picture = LoadPicture(ThisWorkbook.Path & "\Resources\1b.jpg")
    main_form.Img_Lines.PictureSizeMode = fmPictureSizeModeStretch
    End With

    Case "Jela s Nul Vodicem"
    With Img_Lines
    main_form.Img_Lines.Picture = LoadPicture(ThisWorkbook.Path & "\Resources\1c.jpg")
    main_form.Img_Lines.PictureSizeMode = fmPictureSizeModeStretch
    End With

    Case "Portal"
    With Img_Lines
    main_form.Img_Lines.Picture = LoadPicture(ThisWorkbook.Path & "\Resources\1d.jpg")
    main_form.Img_Lines.PictureSizeMode = fmPictureSizeModeStretch
    End With

    Case "Dunav"
    With Img_Lines
    main_form.Img_Lines.Picture = LoadPicture(ThisWorkbook.Path & "\Resources\2a.jpg")
    main_form.Img_Lines.PictureSizeMode = fmPictureSizeModeStretch
    End With

    Case "Bacva"
    With Img_Lines
    main_form.Img_Lines.Picture = LoadPicture(ThisWorkbook.Path & "\Resources\2b.jpg")
    main_form.Img_Lines.PictureSizeMode = fmPictureSizeModeStretch
    End With

    Case "Horizontalni Raspored Vodica"
    With Img_Lines
    main_form.Img_Lines.Picture = LoadPicture(ThisWorkbook.Path & "\Resources\2d.jpg")
    main_form.Img_Lines.PictureSizeMode = fmPictureSizeModeStretch
    End With

    Case "Y-Stup"
    With Img_Lines
    main_form.Img_Lines.Picture = LoadPicture(ThisWorkbook.Path & "\Resources\2c.jpg")
    main_form.Img_Lines.PictureSizeMode = fmPictureSizeModeStretch
    End With

    Case "Bacva s nul vodicima"
    With Img_Lines
    main_form.Img_Lines.Picture = LoadPicture(ThisWorkbook.Path & "\Resources\2e.jpg")
    main_form.Img_Lines.PictureSizeMode = fmPictureSizeModeStretch
    End With
End Select
End Sub

Private Sub UserForm_Initialize()
main_form.cmb_Lines.AddItem "Jela"
main_form.cmb_Lines.AddItem "Nosni X Stup"
main_form.cmb_Lines.AddItem "Jela s Nul Vodicem"
main_form.cmb_Lines.AddItem "Portal"
main_form.cmb_Lines.AddItem "Dunav"
main_form.cmb_Lines.AddItem "Bacva"
main_form.cmb_Lines.AddItem "Horizontalni Raspored Vodica"
main_form.cmb_Lines.AddItem "Y-Stup"
main_form.cmb_Lines.AddItem "Bacva s nul vodicima"
main_form.cmb_Lines.Text = "Jela"
End Sub

nemogu nikako ni manualno ja da otvorim formu(nakon sto se error pojavio da odem u vba editor),kao da je nema,a mogu vidit kod.

Odgovor na temu