This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Public Function openNotes() | |
Notes.openFormNotes | |
End Function | |
Public Function openInfo() | |
Notes.openFormInfo | |
End Function |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Private Sub linkForms_Click() | |
On Error GoTo Err_linkForms_Click | |
Dim nameReference As String | |
nameReference = Forms![Menu]!NameReference.Value | |
Dim nameDatabase As String | |
nameDatabase = Forms![Menu]!NameDatabase.Value | |
AddReference nameReference, nameDatabase |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Public Function AddReference(referenceToImport As String, nameDatabase As String) | |
Dim reference As reference | |
For Each reference In Access.References | |
Dim nameReference As String | |
nameReference = reference.Name | |
If nameReference = referenceToImport Then | |
Access.References.Remove reference | |
End If | |
Next reference |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Public Sub openFormNotes() | |
DoCmd.OpenForm "frmNotes" | |
End Sub | |
Public Sub openFormInfo() | |
DoCmd.OpenForm "frmInfo" | |
End Sub |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Public Function getNameCurrentDB() | |
Dim db As DAO.Database | |
Set db = CurrentDb() | |
Dim name As String | |
name = db.name | |
Set db = Nothing | |
getNameCurrentDB = name |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
import { onMount } from "svelte"; | |
import lang from "./Components/UI/Languages/Lang"; | |
import { getLang } from "./Components/UI/Languages/IndexDB"; | |
onMount(async () => { | |
const langDB = await getLang(); | |
lang.set(langDB); | |
}) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
const lang = { | |
subscribe: languageStore.subscribe, | |
set: (language: LangSupported) => { | |
languageStore.set(language); | |
setLang(language); | |
}, | |
}; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
import { get, set, createStore } from "idb-keyval"; | |
import type { LangSupported } from "./Languages"; | |
import { isOfTypeLangSupported } from "./Languages"; | |
const customDbName = "idb-lang"; | |
const customStoreName = "idb-lang-store"; | |
const customStore = createStore(customDbName, customStoreName); |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
<script lang="ts"> | |
import Lang from "../../UI/Languages/Lang.svelte"; | |
</script> | |
<ul> | |
<li> | |
<Lang p="Home" w="Encrypt" /> | |
</li> | |
<li> | |
<Lang p="Home" w="Encrypt your text" /> |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
<script lang="ts"> | |
import lang from "./Lang"; | |
import { languages } from "./Languages"; | |
export let p: string; | |
export let w: string; | |
</script> | |
{languages[p][w][$lang]} |
NewerOlder