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...