[ boki026 @ 09.03.2008. 17:18 ] @
Moze li se na komandno dugme postaviti procedura da svojstvo FormView podforme koje je Single Form promeni u Datasheet?
[ Getsbi @ 09.03.2008. 18:02 ] @
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
[ boki026 @ 09.03.2008. 19:00 ] @
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?
[ domaci_a_nas @ 09.03.2008. 23:00 ] @
Recimo da se subform zove SF1 a forma frmSubform. Možeš uraditi sledeće:

Code:
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.
[ Trtko @ 10.03.2008. 08:46 ] @
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
[ domaci_a_nas @ 10.03.2008. 09:03 ] @
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
[ boki026 @ 10.03.2008. 20:02 ] @
Hvala svima, radi.