{"id":753,"date":"2013-08-09T17:58:37","date_gmt":"2013-08-09T17:58:37","guid":{"rendered":"http:\/\/regina-whipp.com\/blog\/?p=753"},"modified":"2016-07-08T22:51:35","modified_gmt":"2016-07-09T02:51:35","slug":"logo","status":"publish","type":"post","link":"https:\/\/regina-whipp.com\/blog\/?p=753","title":{"rendered":"Add Logo to Forms and\/or Reports…"},"content":{"rendered":"

You can allow Client’s to insert their own logo on the Switchboard or Main Menu (and, if you like Reports).\u00a0\u00a0This is especially a nice touch as Clients will be able to personalize the file as\u00a0their own.<\/p>\n

The first <\/strong><\/span>thing you will need is a separate table the holds the Company Profile information, Figure 1.\u00a0 (Note<\/strong>: I do not store the image in the database but do allow Users to navigate to the image storing only the path to the image.<\/p>\n

\"Figure

Figure 1<\/p><\/div>\n

Second<\/span><\/strong>, is a to place an Image Control<\/strong> on the form\u00a0and\/or reports and set *Picture to (NONE)<\/strong>* and\u00a0*Size Mode to Zoom<\/strong>*, Figure 2.\u00a0 (For the purpose of this example, my Image Control<\/strong> is named imgLogo<\/strong>.)<\/p>\n

\"Figure

Figure 2<\/p><\/div>\n

Third<\/span><\/strong>, add a Command Button to your form to *get the Image*.\u00a0 Mine has a little camera on it and is named cmdAddImage<\/strong>.\u00a0\u00a0Then place Call GetImage<\/strong> in the On_Click event…<\/p>\n

Private Sub cmdAddImage<\/strong>_Click()
\nCall GetImage<\/strong>
\nEnd Sub<\/p>\n

GetImage<\/strong> code from my modUtilities<\/strong>…<\/p>\n

\r\nPublic Sub GetImage()\r\n\u00a0\u00a0\u00a0 Dim fDialog\u00a0\u00a0\u00a0 As Object\r\n\u00a0\u00a0\u00a0 Dim varFile As Variant\r\n\u00a0\u00a0\u00a0\r\n\u00a0\u00a0 ' Set up the File Dialog.\r\n\u00a0\u00a0\u00a0 Set fDialog = Application.FileDialog(3)\r\n\u00a0\r\n\u00a0\u00a0\u00a0 With fDialog\r\n\u00a0\r\n\u00a0\u00a0\u00a0\u00a0\u00a0 ' Allow user to make multiple selections in dialog box\r\n\u00a0\u00a0\u00a0\u00a0\u00a0 .AllowMultiSelect = False\r\n\u00a0\r\n\u00a0\u00a0\u00a0\u00a0\u00a0 ' Set the title of the dialog box. '\r\n\u00a0\u00a0\u00a0\u00a0\u00a0 .Title = "Please select file to add..."\r\n\u00a0\r\n\u00a0\u00a0\u00a0\u00a0\u00a0 ' Clear out the current filters, and add our own.\r\n\u00a0\u00a0\u00a0\u00a0\u00a0 .Filters.Clear\r\n\u00a0\u00a0\u00a0\u00a0\u00a0 .Filters.Add "Compressed Image Files", "*.jpg, *.gif, *.png"\r\n\u00a0\u00a0\u00a0\u00a0\u00a0 .Filters.Add "Uncompressed Image Files", "*.bmp, *.wmf"\r\n\u00a0\u00a0\u00a0\u00a0\u00a0 .Filters.Add "All Files", "*.*"\r\n\u00a0\u00a0\u00a0\u00a0\u00a0 .InitialFileName = "C:\\"\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\r\n\u00a0\u00a0\u00a0\u00a0\u00a0 ' Show the dialog box. If the .Show method returns True, the\r\n\u00a0\u00a0\u00a0\u00a0\u00a0 ' user picked at least one file. If the .Show method returns\r\n\u00a0\u00a0\u00a0\u00a0\u00a0 ' False, the user clicked Cancel.\r\n\u00a0\u00a0\u00a0\u00a0\u00a0 If .Show = True Then\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 varFile = .SelectedItems.Item(1)\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 Forms![frmInputCompanyProfile]![txtImagePath] = Mid(varFile, InStrRev(varFile, "\\") + 1)\r\n\u00a0\u00a0\u00a0\u00a0\u00a0 Else\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 MsgBox "You clicked Cancel in the file dialog box."\r\n\u00a0\u00a0\u00a0\u00a0\u00a0 End If\r\n\u00a0\u00a0 End With\r\n\r\nEnd Sub\r\n<\/pre>\n
Fourth<\/span><\/strong>, add a Command Button to your form to *remove the Image*.\u00a0 Mine has a little\u00a0circle with a line thru it and is named cmdClearImage<\/strong>.\u00a0\u00a0Then place\u00a0the below in the On_Click event…<\/p>\n
Private Sub cmdClearImage_Click()<\/p>\n
\r\nOn Error Resume Next 'Lazy mans error handling\r\n\r\n\u00a0\u00a0\u00a0 Me.txtImagePath = Null\r\n\u00a0\u00a0\u00a0 Me.imgImage.Picture = ""\r\n<\/pre>\n
End Sub<\/p>\n
Fifth<\/span><\/strong>, add the below to the frmCompanyProfile’s On_Open <\/strong>event…<\/p>\n
Private Sub Form_Current()<\/p>\n
\r\nOn Error Resume Next\u00a0\u00a0'Lazy mans error handling\r\n\r\n     If IsNull([txtImagePath]) Then Exit Sub\r\n     Me.imgImage.Picture = Me.txtImagePath\r\n<\/pre>\n
End Sub<\/p>\n
Sixth<\/span><\/strong>, add an Image Control<\/strong>, naming it imgLogo<\/strong> to all the Forms and\/or Reports you want your Logo to be displayed on.<\/p>\n
And<\/span> finally<\/span><\/strong>, place the code below in the On_Open<\/strong> event of your Forms and\/or Reports to get the logo to show, as shown in Figure 3…<\/p>\n
\r\n\u00a0\u00a0\u00a0 If IsNull(DLookup("[cpImagePath]", "tblCompanyProfile")) Then Exit Sub\r\n\u00a0\u00a0\u00a0 Me.imgLogo.Picture = DLookup("[cpImagePath]", "tblCompanyProfile")\r\n<\/pre>\n
\"Figure
Figure 3<\/strong><\/p><\/div>\n
P.S.<\/span><\/strong> Another example using a different format can be found at my website, Customize your Main Menu (Switchboard)<\/a>.<\/p>\n
<\/div>\n
<\/path><\/svg><\/i> \"Loading\"<\/p>\n
<\/div>\n","protected":false},"excerpt":{"rendered":"
You can allow Client’s to insert their own logo on the Switchboard or Main Menu (and, if you like Reports). This is especially a nice touch as Clients will be able to personalize the file as their own.<\/p>\n
The first thing you will need is a separate table the holds the Company Profile information, Figure […]<\/p>\n
<\/div>\n
<\/path><\/svg><\/i> \"Loading\"<\/p>\n
<\/div>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[5,63],"tags":[64,42,31,30],"class_list":["post-753","post","type-post","status-publish","format-standard","hentry","category-access-tips","category-database-design","tag-access-tips","tag-add-logo","tag-forms","tag-reports","odd"],"_links":{"self":[{"href":"https:\/\/regina-whipp.com\/blog\/index.php?rest_route=\/wp\/v2\/posts\/753","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/regina-whipp.com\/blog\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/regina-whipp.com\/blog\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/regina-whipp.com\/blog\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/regina-whipp.com\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=753"}],"version-history":[{"count":17,"href":"https:\/\/regina-whipp.com\/blog\/index.php?rest_route=\/wp\/v2\/posts\/753\/revisions"}],"predecessor-version":[{"id":1280,"href":"https:\/\/regina-whipp.com\/blog\/index.php?rest_route=\/wp\/v2\/posts\/753\/revisions\/1280"}],"wp:attachment":[{"href":"https:\/\/regina-whipp.com\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=753"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/regina-whipp.com\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=753"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/regina-whipp.com\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=753"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}