Cannot enter design view on one form

Hmm, just peeking in and noticing you are are trying to go to design view while the Form is open in what looks like Dialog Mode (or Pop-Up Mode). That won't work, you need to either open from Navigation Pane with right mouse click or change your Form to open Pop-Up = No.
 
I opened form with Popup and Model properties set to yes, no problem with right click and switching to design view. Also opened with VBA acDialog is not an issue.
 
I think I might just get up, step backwards a few meters then run into a wall!! Urgh. I will try and see if I can use it on a completely different installation of access. Thanks @June7 & @theDBguy
Okay. Good luck. If nothing still works, you might consider contacting where you got the form from. If it came from MajP, you should be able to send him a message here. Cheers!
 
No problem getting into Design View here, either by right-clicking from Navigation Pane or the title bar of the form. Access 2019.
 
Hmm, just peeking in and noticing you are are trying to go to design view while the Form is open in what looks like Dialog Mode (or Pop-Up Mode). That won't work, you need to either open from Navigation Pane with right mouse click or change your Form to open Pop-Up = No.
 
Ok so that is another weird thing I have noticed with my installation, I cannot right click on anything in the navigation panel - I was trying to rename something a while ago and it wouldnt work.
 
I can also open it in design view using Access 365 64-bit.
In the full version, do you have the class module required for the FindAsYouTypeForm functionality?
Does your database compile?
Try decompiling (After making a backup) in case your compilation code is corrupted
 
Can you right click anywhere and get menu?
 
@June7
Not sure if you are asking the OP or me. I also have right click context menus.
 
I am running a very old version of Office (2010) so that may be the issue.
So if you have not imported this into a fresh db that should be step 1.
1. Import everything into a new fresh db.
2. You can try a decompile, but I doubt that is the problem
3. If that does not work you can actually save a form into a text file and re import it. It is a hidden feature
If that does not work, I would be shocked.
4. If that does not work. Maybe one of these nice people with a compatible version could save and post the db.
2. Worst case the form is really not that complicated. May be faster to rebuild than try 1-4. The form is not that complicated you can rebuild it pretty quickly. It is just a form with a subform. The whole code in that form is:
Code:
Option Compare Database
Option Explicit
Dim FAYT_Form As FindAsYouTypeForm



Private Sub Form_Load()
  Set FAYT_Form = New FindAsYouTypeForm
  FAYT_Form.Initialize Me.subFrmSearch.Form, Me.txtFilter, "ClientOrganisationName", ffrm_FromBeginning
End Sub

Private Sub frameFields_AfterUpdate()
  Select Case frameFields
  Case 1
    FAYT_Form.FieldToSearch = "ClientorganisationName"
  Case 2
    FAYT_Form.FieldToSearch = "ProjectTitle"
  End Select

End Sub

Private Sub frameType_AfterUpdate()
  If frameType = 1 Then
   FAYT_Form.FilterType = ffrm_FromBeginning
  Else
   FAYT_Form.FilterType = ffrm_anywhereinstring
  End If
End Sub


Private Sub lbl_ClientSearch_Click()
  If Me.lbl_ClientSearch.Tag <> "ASC" Then
    SortSub "ClientOrganisationName"
    Me.lbl_ClientSearch.Tag = "ASC"
  Else
    SortSub "ClientOrganisationName desc"
    Me.lbl_ClientSearch.Tag = "DESC"
  End If
End Sub

Private Sub lbl_ProjectNameSearch_Click()
  If Me.lbl_ProjectNameSearch.Tag <> "ASC" Then
    SortSub "ProjectTitle"
    Me.lbl_ProjectNameSearch.Tag = "ASC"
  Else
    SortSub "ProjectTitle desc"
    Me.lbl_ProjectNameSearch.Tag = "DESC"
  End If
End Sub

Private Sub lblProjectNumberSearch_Click()
  If Me.lblProjectNumberSearch.Tag <> "ASC" Then
    SortSub "ProjectNumber"
    Me.lblProjectNumberSearch.Tag = "ASC"
  Else
    SortSub "ProjectNumber desc"
    Me.lblProjectNumberSearch.Tag = "DESC"
  End If
 
End Sub

Public Sub SortSub(strSort As String)
  Dim frm As Access.Form
  Set frm = Me.subFrmSearch.Form
  frm.OrderBy = strSort
  frm.OrderByOn = True
End Sub
 
Before doing anything drastic I would try opening db with shift bypass (just in case) and going directly to nav pane and attempt to go into design view. Rather than posting a db sample where you exported this form to, consider posting a copy of the original db. We might experience the same behaviour, which I think would indicate an issue with a system table. I may have missed where it was said that you exported this form and still could not put it into design view in that new db. If you didn't try it before posting it, what is the result?

I have W10 and 2016 and can test your full db if you like.
 
@MajP that worked! I imported into a whole new one and it worked. There are some things broken now but I can work through them, possibly they were causing the glitch. Thank you so much everyone. I feel silly not doing that in the first place.
 
@MajP that worked! I imported into a whole new one and it worked. There are some things broken now but I can work through them, possibly they were causing the glitch. Thank you so much everyone. I feel silly not doing that in the first place.
This is a technique you should use often; however, you probably want to tag those other links I posted as well for future reference. I always develop in one DB and import into a fresh DB. Decompiling and saving objects to text files are invaluable and may be the only way to recover your work.
 
you may have moved on, but perhaps you could have just imported a working version of the form from a saved copy of the database.
 

Users who are viewing this thread

Back
Top Bottom