Kako uz pomoc koda, bez koriscenja opcije Startup menjati sadrzaj u naslovnoj liniji programa radjenog u Accesu
Promena sadrzaja naslovne linije programa uradjenog u Accessu
Zaključano
Zakačeno
Code:
Public Sub Form_Load()
Me.Caption = "Naziv"
End Sub
Public Sub Form_Load()
Me.Caption = "Naziv"
End Sub
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
U svakom slučaju
Hvala
Mislim da bi ovo pre trebalo da ide u Ostale Programske jezike, jes da je u pitanju VBS, ali nema veze sa VB6 :\
izmenjeno 1 put, poslednji put Aleksandar Ružičić 16.01.2009. u 20:49
Izmene poruke
- Aleksandar Ružičić16.01.2009. u 20:49zapis iz teksta poruke
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
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
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
Hvala za kod
izmenjeno 1 put, poslednji put Aleksandar Vasic 19.01.2009. u 14:14
Izmene poruke
- Aleksandar Vasic19.01.2009. u 14:14zapis iz teksta poruke
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
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
Ovo je pomoglo.
Puno hvala
Puno hvala
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 ;)
Znam ja da ti meni sad trazis dlaku u jajetu, ali to je napisano pre nego sto sam postao moderator istog :P
samo dan-dva pre toga :)