درخواست راهنمايي براي تنظيم STARTUP

[RESMAILY]

به نام خدا
با سلام. دوستان به قطعه كد ذيل نگاهي بيندازند و بفرمايند اشكال دركجاست. توضيح آنكه با اين كد در آغاز برنامه استار آپ را دستكاري مي كند و مثلا فرم شروع برنامه انتخاب مي شود(وعمل مي كند) سپس آيكون برنامه انتخاب مي شود (كه در كمال تعجب عمل نميكند و حتما بايد دستي آيكون را انتخاب كنيم) با تشكر.

Public Function SetPr() As Boolean
On Error GoTo 100
strName = "StartupForm"
strValue = "frmStart_Up"
intType = dbText
CurrentDb.Properties(strName) = strValue
strPathIcon = Trim(CurrentProject.path & "\Icon\WORD1.ICO")
strName = "ApplicationIcon"
strValue = strPathIcon
intType = dbText
CurrentDb.Properties(strName) = strValue
strName = "UseAsFormAndReportIcon"
strValue = -1
intType = dbBoolean
CurrentDb.Properties(strName) = strValue
Application.RefreshTitleBar
Exit Function
100:
If Err.Number = 3270 Then
Set pr = CurrentDb.CreateProperty(strName, intType, strValue)
CurrentDb.Properties.Append pr
Resume
End If
MsgBox Err.Description & Err.Number
End Function

[انگوران]

با سلام - فكر كنم عكس رو از داخل فولدر در بياري و كنار برنامه بذاري و تكه كد مربوطه رو اصلاح كني ( Icon/ پاك بشه ) مشكل حل ميشه .

[RESMAILY]

به نام خدا
با سلام. اقاي انگوران با تشكر ولي به نظر منطقي نمي آيد. چون همين مسيررا وقتي بصورت دستي وارد مي كنيم.(حتي مسيرهاي با كاركترهاي زيادتر، اگر عيب از طولاني بودن عبارت باشد) كار مي كند. ولي همين يك آيتم در استارت آپ با كد نويسي جواب نمي دهد

[Zero Defect]

سلام

درستش AppIcon هستش نه ApplicationIcon

[RESMAILY]

به نام خدا
با سلام و تشكر از zerodefect. بقول شاعر هم مگر لطف شما پيش نهد گامي چند!
به لطف شما فهميدم ثابت دوم هم غلط بود يعني
"UseAsFormAndReportIcon" كه مي شود اين: "UseAppIconForFrmRpt"
كه آيتم مربوط به همين قصه است. لذا براي تشكر از شما و دوستان كد تصحيح شده وازمايش شده را براي استفاده بقيه اينجا مي گذارم تا اگر تگميل شدني هم لازم است دوستان لطف كنند.
Public Function SetPr() As Boolean
On Error GoTo 100
strName = "StartupForm"
strValue = "frmStart_Up"
intType = dbText
CurrentDb.Properties(strName) = strValue
strPathIcon = Trim(CurrentProject.path & "\Icon\WORD1.ICO")
strName = "AppIcon"
strValue = strPathIcon
intType = dbText
CurrentDb.Properties(strName) = strValue
strName = "UseAppIconForFrmRpt"
strValue = -1
intType = dbBoolean
CurrentDb.Properties(strName) = strValue
Application.RefreshTitleBar

For Each strPr In CurrentDb.Properties
Select Case strPr.Name
Case Is = "StartUpShowDBWindow": strPr.Value = False
Case Is = "StartUpShowStatusBar": strPr.Value = False
Case Is = "AllowFullMenus": strPr.Value = False
Case Is = "AllowByPassKey": strPr.Value = False
Case Is = "AllowShortcutMenus": strPr.Value = False
Case Is = "AllowFullMenus": strPr.Value = False
Case Is = "AllowBuiltInToolbars": strPr.Value = False
Case Is = "AllowToolbarChanges": strPr.Value = False
Case Is = "AllowSpecialKeys": strPr.Value = False
End Select
Next
Application.RefreshTitleBar
SetPr=-1
Exit Function
100:
If Err.Number = 3270 Then
Set pr = CurrentDb.CreateProperty(strName, intType, strValue)
CurrentDb.Properties.Append pr
Resume
End If
MsgBox Err.Description & Err.Number
End Function