Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Postavljanje jpg fajla kao pozadine forme (svake) ???

[es] :: Access :: Postavljanje jpg fajla kao pozadine forme (svake) ???

[ Pregleda: 1487 | Odgovora: 3 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

gorancho
Srbija

Član broj: 149371
Poruke: 89
*.dynamic.sbb.rs.



Profil

icon Postavljanje jpg fajla kao pozadine forme (svake) ???25.01.2014. u 14:29 - pre 123 meseci
Želeo bi da na disku imam jedan fajl npr c:/user/sablon/pozadina1.jpg i da njega uvozim za pozadinu svake forme i to kao streč i send to back.
Verujem da može ali kako ???
 
Odgovor na temu

SLOJ.1973

Član broj: 130198
Poruke: 871
*.dynamic.isp.telekom.rs.



+41 Profil

icon Re: Postavljanje jpg fajla kao pozadine forme (svake) ???25.01.2014. u 18:59 - pre 123 meseci
Napravi novi modul i u njemu ovu funkciju:
Code:
Option Compare Database

Function Pozadina()
Dim intNumOfForms As Integer
Dim intFrmCtr As Integer
Dim strFormName As String
 
intNumOfForms = CurrentDb.Containers("Forms").Documents.Count
 
For intFrmCtr = 0 To intNumOfForms - 1
  strFormName = CurrentDb.Containers("Forms").Documents(intFrmCtr).Name
    DoCmd.OpenForm strFormName, acDesign, , , acFormEdit, acHidden
      Forms(strFormName).Picture = "D:\slike\preuzimanje.bmp" ' putanja do tvoje slike
      Forms(strFormName).PictureSizeMode = 1    'Stretch
       DoCmd.Close acForm, strFormName, acSaveYes
Next

End Function

Zatim napravi macro pod nazivom AUTOEXEC i pozovi ovu funkciju (odaberi RunApp i dole u FunctionName pronadji funkciju Pozadina.Pozdrav.
Jednog dana...
 
Odgovor na temu

SLOJ.1973

Član broj: 130198
Poruke: 871
*.dynamic.isp.telekom.rs.



+41 Profil

icon Re: Postavljanje jpg fajla kao pozadine forme (svake) ???25.01.2014. u 19:38 - pre 123 meseci
Ako ne budes zeleo da bas sve forme imaju istu sliku ,onda u Dizajn forme,postavis za Tag recimo 1 onim formama,koje zelis da imaju tu sliku za pozadinu,a ostalim formama ostavis polje Tag prazno i onda napravis sve isto kao i u gornjem postu,samo sa malom izmenom funkcije:
Code:
Function Pozadina()
Dim intNumOfForms As Integer
Dim intFrmCtr As Integer
Dim strFormName As String
 
intNumOfForms = CurrentDb.Containers("Forms").Documents.Count
 
For intFrmCtr = 0 To intNumOfForms - 1
  strFormName = CurrentDb.Containers("Forms").Documents(intFrmCtr).Name
  
    DoCmd.OpenForm strFormName, acDesign, , , acFormEdit, acHidden
    If Forms(strFormName).Tag = "1" Then ' Ovo je deo koji proverava vrednost osobine Tag na formi
      Forms(strFormName).Picture = "D:\slike\preuzimanje.bmp" ' Putanja do tvoje slike
      Forms(strFormName).PictureSizeMode = 1    'Stretch
       DoCmd.Close acForm, strFormName, acSaveYes
       End If
Next

End Function

Jednog dana...
 
Odgovor na temu

gorancho
Srbija

Član broj: 149371
Poruke: 89
*.dynamic.sbb.rs.



Profil

icon Re: Postavljanje jpg fajla kao pozadine forme (svake) ???27.01.2014. u 23:00 - pre 123 meseci
Hvala puno. To je to.
Moraću malo bolje da razumem kod jer

JEDAN OVAO DOBAR ODGOVO RAĐA JOŠ 1000 PITANJA.

 
Odgovor na temu

[es] :: Access :: Postavljanje jpg fajla kao pozadine forme (svake) ???

[ Pregleda: 1487 | Odgovora: 3 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.