Moze li se na komandno dugme postaviti procedura da svojstvo FormView podforme koje je Single Form promeni u Datasheet?
promena izgleda forme
Zaključano
Zakačeno
Može. Možeš čak da napraviš Option group i da čekiranjem određuješ kako da se otvori forma.
Private Sub IZBOR_AfterUpdate()
Select Case Me![IZBOR]
Case 1: DoCmd.OpenForm "NazivForme", acFormDS
Case 2: DoCmd.OpenForm "NazivForme", acNormal
End Select
End Sub
Private Sub IZBOR_AfterUpdate()
Select Case Me![IZBOR]
Case 1: DoCmd.OpenForm "NazivForme", acFormDS
Case 2: DoCmd.OpenForm "NazivForme", acNormal
End Select
End Sub
To je OK kada zelim da otvorim "samo" formu. Problem je sto ja zelim da promenim izgled subforme, ali da ne zatvaram glavnu formu. Moze li to?
Recimo da se subform zove SF1 a forma frmSubform. Možeš uraditi sledeće:
Kada budeš načinio izmene u kodu glavne forme u design view treba da je zatvoriš i sačuvaš izmene, ako samo pređeš iz design view u normal view delovaće da kod ne radi.
Code:
SF1.SourceObject = ""
DoCmd.OpenForm "frmSubform", acDesign, , , , acHidden
Form_frmSubform.DefaultView = acDefViewDatasheet ' ili acDefViewContinuous ili acDefViewSingle
DoCmd.Close acForm, "frmSubform", acSaveYes
SF1.SourceObject = "frmSubform"
SF1.SourceObject = ""
DoCmd.OpenForm "frmSubform", acDesign, , , , acHidden
Form_frmSubform.DefaultView = acDefViewDatasheet ' ili acDefViewContinuous ili acDefViewSingle
DoCmd.Close acForm, "frmSubform", acSaveYes
SF1.SourceObject = "frmSubform"
Kada budeš načinio izmene u kodu glavne forme u design view treba da je zatvoriš i sačuvaš izmene, ako samo pređeš iz design view u normal view delovaće da kod ne radi.
Potpis
Ozbiljan i odgovoran mladić
Naravno da se može, ali trebaš dosta i programirati.
Napraviš si formu koja ti to radi..
Nešto ovako
Zakacit cu i tu formu, ali je treba prepraviti, nije univerzalna nego je vezana bas za tu aplikaciju
Inace ti to ovako izgleda u kodu
' mjenjanje izgleda sheeta vidi
[Forms]![pregled]![vidi].Form.DatasheetBackColor = bojapod
[Forms]![pregled]![vidi].Form.DatasheetGridlinesColor = bojagrid
[Forms]![pregled]![vidi].Form.DatasheetForeColor = bojaslova
[Forms]![pregled]![vidi].Form.DatasheetFontName = slovaime
[Forms]![pregled]![vidi].Form.DatasheetFontHeight = velslova
If tanka = True Then
[Forms]![pregled]![vidi].Form.DatasheetFontItalic = True
Else
[Forms]![pregled]![vidi].Form.DatasheetFontItalic = False
End If
If debela = True Then
[Forms]![pregled]![vidi].Form.DatasheetFontWeight = 700
Else
[Forms]![pregled]![vidi].Form.DatasheetFontWeight = normal
End If
Pozdrav
Napraviš si formu koja ti to radi..
Nešto ovako
Zakacit cu i tu formu, ali je treba prepraviti, nije univerzalna nego je vezana bas za tu aplikaciju
Inace ti to ovako izgleda u kodu
' mjenjanje izgleda sheeta vidi
[Forms]![pregled]![vidi].Form.DatasheetBackColor = bojapod
[Forms]![pregled]![vidi].Form.DatasheetGridlinesColor = bojagrid
[Forms]![pregled]![vidi].Form.DatasheetForeColor = bojaslova
[Forms]![pregled]![vidi].Form.DatasheetFontName = slovaime
[Forms]![pregled]![vidi].Form.DatasheetFontHeight = velslova
If tanka = True Then
[Forms]![pregled]![vidi].Form.DatasheetFontItalic = True
Else
[Forms]![pregled]![vidi].Form.DatasheetFontItalic = False
End If
If debela = True Then
[Forms]![pregled]![vidi].Form.DatasheetFontWeight = 700
Else
[Forms]![pregled]![vidi].Form.DatasheetFontWeight = normal
End If
Pozdrav
Imajući u vidu originalno pitanje, uz poštovanje truda koji je Trtko uložio, dodajem i najjednostavniji način da se prvobitni cilj ostvari. Recimo da imaš subform koji se zove SF1 i option group koji se zove SelectView
Private Sub SelectView_Click()
SF1.SetFocus
RunCommand acCmdSubformFormView ' ili acCmdSubformDatasheetView
End Sub
Private Sub SelectView_Click()
SF1.SetFocus
RunCommand acCmdSubformFormView ' ili acCmdSubformDatasheetView
End Sub
Potpis
Ozbiljan i odgovoran mladić
Hvala svima, radi.