تغییر فرم استارت آپ برنامه با کد

[mohammadsaleh]

سلام دوستان.
می خواستم بدونم چطور میشه فرم شروع برنامه را بدون استفاده از قسمت اپشن برنامه و فقط با کد نویسی عوض کرد.

[alirezabahrami]

سلام دوستان.
می خواستم بدونم چطور میشه فرم شروع برنامه را بدون استفاده از قسمت اپشن برنامه و فقط با کد نویسی عوض کرد.
سلام
از کد زیر استفاده کن!


Dim dbs As DAO.Database
Dim pty As DAO.Property
Set dbs = CurrentDb
Set pty = dbs.CreateProperty("StartupForm", dbText, "yourNameForm")
dbs.Properties.Append pty
Set pty = Nothing
Set dbs = Nothing


یا علی

[mohammadsaleh]

سلام ممنون از توجهتون. البته من کد فوق رو تست کردم در خط زیر اشکال می گیرد
dbs.Properties.Append pty

[alirezabahrami]

سلام ممنون از توجهتون. البته من کد فوق رو تست کردم در خط زیر اشکال می گیرد
dbs.Properties.Append pty

سلام
ببخشید در کد بالا من فکر کردم که در قسمت مربوط به استارت آپ فرم خاصی انتخاب نشده و شما می خواهید نام فرمی را جایگزین None نمائید .
از ساب روتین زیر استفاده کن حتماً جواب میدهد
نام فرم مورد نظر را جایگزین YourNameForm کن !


Public Sub SetStartForm()
Dim dbs As Object
Dim prp As Object
Dim strTitle As String

Const PROPERTY_NOT_FOUND As Integer = 3270
Const TEXT_TYPE As Integer = 10
' Equivalent to DAO dbText data type.
Const BOOL_TYPE As Integer = 1
' Equivalent to DAO dbBoolean data type.
Const LONG_TYPE As Integer = 4
' Equivalent to DAO dbLong data type.

On Error GoTo ErrorHandler

Set dbs = Application.CurrentDb
strForm = "YourNameForm"

' Try to set the property. If it fails, the property does not exist.
dbs.Properties("StartupForm") = strForm

ExitLine:
dbs.Close
Set dbs = Nothing
Set prp = Nothing
Exit Sub

ErrorHandler:
If Err.Number = PROPERTY_NOT_FOUND Then
' Create the new property.
Set prp = dbs.CreateProperty("StartupForm", TEXT_TYPE, strForm)
dbs.Properties.Append prp
Resume Next
Else
Resume ExitLine
End If

End Sub


یا علی

[mohammadsaleh]

سلام دوست عزیز ممنون از پاسختون ولی بازم هموه خطا رو میده

[alirezabahrami]

سلام دوست عزیز ممنون از پاسختون ولی بازم هموه خطا رو میده
سلام
خلاصه شده کد بالا :


Dim dbs As Object
Set dbs = Application.CurrentDb
dbs.Properties("StartupForm") = "YourNameForm"

[alirezabahrami]

سلام دوست عزیز ممنون از پاسختون ولی بازم هموه خطا رو میده
نه دیگه آقا محمد صالح نداشتیم!
کد راتغییر دادید دیگه
علی ایحال بهتره ازهمون کد دوم (خلاصه شده) استفاده کنید
یا علی

[mohammadsaleh]

سلام صبحتون بخیر. تشکر
هم خیلی آقایی هم یه دونه ای .