Promena sadrzaja naslovne linije programa uradjenog u Accessu

[ banera30 @ 13.01.2009. 19:31 ] @

Kako uz pomoc koda, bez koriscenja opcije Startup menjati sadrzaj u naslovnoj liniji programa radjenog u Accesu

[ stefanpn @ 14.01.2009. 13:40 ] @

Code:

Public Sub Form_Load()

Me.Caption = "Naziv"

End Sub

[ banera30 @ 15.01.2009. 17:18 ] @

Možda nisam dovoljno jasno formulisao pitanje - ne mislim na naslovnu liniju forme nego na naslovnu liniju programa, odnosno na liniju čiji se sadrzaj menja kroz opciju Tools - Startup - ApplicationTitle
U svakom slučaju
Hvala

[ Aleksandar Vasic @ 15.01.2009. 17:22 ] @

Mislim da bi ovo pre trebalo da ide u Ostale Programske jezike, jes da je u pitanju VBS, ali nema veze sa VB6 :\

[ Branko_S @ 16.01.2009. 08:29 ] @

Funkcija radi u Access 2003:

Code:

Function MenjajNaslov(var_NoviNaslov As Variant)
    On Error GoTo MenjajNaslov_Err

    If IsNull(var_NoviNaslov) Then Exit Function

        Dim NoviProperty As Property
            CurrentDb.Properties("AppTitle") = var_NoviNaslov

            CurrentDb.Close

MenjajNaslov_Cao:
    Exit Function

MenjajNaslov_Err:

        If Err = 3270 Then
            Set NoviProperty = CurrentDb.CreateProperty("AppTitle", dbText, var_NoviNaslov)
            CurrentDb.Properties.Append NoviProperty
            Resume
        Else
            'MenjajNaslov = False
            Resume MenjajNaslov_Cao
        End If
End Function

_{[Ovu poruku je menjao Aleksandar Ružičić dana 16.01.2009. u 20:49 GMT+1]}

[ banera30 @ 16.01.2009. 19:16 ] @

Ovo sto si mi poslao je OK međutim kada pozovem funkciju preko kom.dugmeta sadržaj promenjive postane sadrzaj naslovne linije sa učitavanjem Accessa - da li je moguće da se prilikom pozivanja funkcije menja sadrzaj naslovne linije programa kada stisnem kom.dugme na nekoj od formi već učitanog Accesa

Hvala za kod

[ Branko_S @ 17.01.2009. 17:45 ] @

ubaci RefreshTitleBar

Code:
Function MenjajNaslov(var_NoviNaslov As Variant)
    On Error GoTo MenjajNaslov_Err

    If IsNull(var_NoviNaslov) Then Exit Function

        Dim NoviProperty As Property
            CurrentDb.Properties("AppTitle") = var_NoviNaslov
            RefreshTitleBar

            CurrentDb.Close

MenjajNaslov_Cao:
    Exit Function

MenjajNaslov_Err:

        If Err = 3270 Then
            Set NoviProperty = CurrentDb.CreateProperty("AppTitle", dbText, var_NoviNaslov)
            CurrentDb.Properties.Append NoviProperty
            RefreshTitleBar
            Resume
        Else
            'MenjajNaslov = False
            Resume MenjajNaslov_Cao
        End If
End Function

_{[Ovu poruku je menjao Aleksandar Vasic dana 19.01.2009. u 14:14 GMT+1]}

[ banera30 @ 20.01.2009. 19:00 ] @

Ovo je pomoglo.
Puno hvala

[ Aleksandar Ružičić @ 20.01.2009. 21:29 ] @

Citat:

Aleksandar Vasic: Mislim da bi ovo pre trebalo da ide u Ostale Programske jezike, jes da je u pitanju VBS, ali nema veze sa VB6 :\

pogledaj malo bolje opis foruma ciji si moderator:

Citat:

Visual Basic 6 i starije verzije, VBScript, ASP, VBA. Razvoj desktop, web i office aplikacija i skripti.

i btw ovo je VBA ne VBS ;)

[ Aleksandar Vasic @ 20.01.2009. 21:33 ] @

Znam ja da ti meni sad trazis dlaku u jajetu, ali to je napisano pre nego sto sam postao moderator istog :P

[ Aleksandar Ružičić @ 20.01.2009. 21:37 ] @

samo dan-dva pre toga :)