Access - latinica default

[ Rax034 @ 15.01.2008. 15:46 ] @

Zanima me kako da podesim da pri pokretanju programa koji je radjen u Access-u da bude latinica (Serbian) po default-u!
Znaci latinica (serbian) da bude za taj program, a EN da ostane kao default za ostale.
U pitanju je Windows 2000 (office 2000)- poslovni, ali me zanima kako i na XP (office 2003)-kucni?

[ izonic @ 15.01.2008. 15:53 ] @

Imas funkciju ovdje.

http://www.icentar.com/showthread.php?t=21&page=10
Promjena rasporeda tastera na tastaturi

[ Scelle @ 16.01.2008. 13:49 ] @

Ja znam da se za Text box kontrolu na formi moze podesiti Keyboard Language svojstvo. Tako sam ja radio do sad. Znaci za svako polje posebno.

[ Rax034 @ 16.01.2008. 13:59 ] @

Office 2000 nema tu funkciju.

Citat:

izonic: Imas funkciju ovdje.

http://www.icentar.com/showthread.php?t=21&page=10
Promjena rasporeda tastera na tastaturi

Moze li malo pojasnjenje u vezi ovoga, posto sam pocetnik!!!

[ izonic @ 16.01.2008. 18:34 ] @

U pravu si VB Acces ne podrzava enum.

Declare Function LoadKeyboardLayout Lib "user32" Alias "LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal flags As Long) As Long
Declare Function ActivateKeyboardLayout Lib "user32" (ByVal hkl As Long, ByVal flags As Long) As Long
Declare Function UnloadKeyboardLayout Lib "user32" (ByVal hkl As Long) As Long
Declare Function GetKeyboardLayoutName Lib "user32" Alias "GetKeyboardLayoutNameA" (ByVal pwszKLID As String) As Long

Const HKL_ENGLISH_US = "00000409"
Const HKL_ENGLISH_UK = "00000809"
Const HKL_CROATIAN = "0000041A"
Const HKL_SERBIAN_CYRILIC = "00000C1A"
Const HKL_SERBIAN_LATIN = "0000081A"
Const HKL_BOSNIAN_LATIN = "0000141A"

Function SetKeyboardLanguage(KeyboardLanguage As String) As Boolean
Dim hkl As Long

SetKeyboardLanguage = False
Select Case KeyboardLanguage
Case "hklEnglishUS"
hkl = LoadKeyboardLayout(HKL_ENGLISH_US, 0)
Case "hklEnhlishUK"
hkl = LoadKeyboardLayout(HKL_ENGLISH_UK, 0)
Case "hklCroatian"
hkl = LoadKeyboardLayout(HKL_CROATIAN, 0)
Case "hklSerbianCyrilic"
hkl = LoadKeyboardLayout(HKL_SERBIAN_CYRILIC, 0)
Case "hklSerbianLatin"
hkl = LoadKeyboardLayout(HKL_SERBIAN_LATIN, 0)
Case Is = "hklBosniannLatin"
hkl = LoadKeyboardLayout(HKL_BOSNIAN_LATIN, 0)
End Select
If hkl <> 0 Then SetKeyboardLanguage = (ActivateKeyboardLayout(hkl, 0) <> 0)
End Function

[ Rax034 @ 17.01.2008. 08:11 ] @

A moze li objasnjenje gde ovo ga kopiram, unesem?
Vama koji ovo poznajete je to verovatno prosto ali meni i nije bas!

[ Rax034 @ 17.01.2008. 09:04 ] @

U redu, napravio sam modul i sada poziva nasa slova ali sada je problem sto kada hocu da ukucam (Č;ć,š) ne prepoznaje ta slova

[ izonic @ 17.01.2008. 10:37 ] @

Ako je sve instalisano kako valja to treba da radi.
Naravno funkcija se odnosi samo na access aplikaciju.

[ Rax034 @ 17.01.2008. 11:05 ] @

Napravio sam modul i sada prebacuje na Serbian, ali kada pocnem da unosim (č.ć,ž,đ,š) prikazuje mi svako slova kao (I) , znaci bez obzira koje sam slovo uneo, znak je isti (I).
Kada vratim na EN, ponovo nemam ta slova ali za svako je drugi znak, tipa (;&&/((($##)

[ Rax034 @ 17.01.2008. 11:12 ] @

Nesto iz ove teme "Problem sa "našim" slovima (YU znacima)"

Citat:

Trtko: Jednostavno.

U query staviš

SELECT pretvori([imedoktora]) AS ime FROM tbldoktori

a u modulu

Public Function pretvori(dovezi As String) As String

Dim staraslova As String

staraslova = dovezi
staraslova = Replace(staraslova, "[", "Š")
staraslova = Replace(staraslova, "{", "š")

staraslova = Replace(staraslova, "]", "Ć")
staraslova = Replace(staraslova, "}", "ć")

staraslova = Replace(staraslova, "^", "Č")
staraslova = Replace(staraslova, "~", "č")

staraslova = Replace(staraslova, "@", "Ž")
staraslova = Replace(staraslova, "`", "ž")

staraslova = Replace(staraslova, "\", "Đ")
staraslova = Replace(staraslova, "|", "đ")
pretvori = staraslova
End Function

I to ti radi.

Ali ako su velike tablice i složeni upiti onda ti zna usporiti izvršavanje query
Onda staviš na formi gdje trebaš ispis da pozove tu funkciju.

npr..
u txtboxu.controlsource
=pretvori([NazivKupca])

Pozdrav

Moze li ovo sta pomoci, ali ce ponovo znaci biti problem

[ Rax034 @ 17.01.2008. 11:20 ] @

Evo i jednog primera sta me muci

[ Rax034 @ 17.01.2008. 13:16 ] @

Resio sam problem!!!
Hvala!!!!!