27. maj 2004 - 13:43Der er
17 kommentarer og 2 løsninger
gem post
hej .. jeg ved godt man ikke behøver at gemme når laver poster ændringer etc. men nogle bruger er forelsket i deres gem knap derfor har jeg lavet en autokey der gemmer ved ctrl + s eller ved tryk på formularen...
men den kode jeg kalder ser sådan her ud ........... -------------- On Error GoTo er DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70 MsgBox "Posten er gemt" er: If err.Number Then MsgBox "Posten er gemt" Else End If -----------------
hvordan får jeg den til at sætte fokus på felt1 eller på anden måde vise at posten er gemt så man kan fjerne msgboxen da det jo er u smart at have sådan en hvergang ...
det skal virke globalt da jeg styre alle keys via et modul
Sæt en etiket i stedet med egenskaben synlig sat til nej:
On Error GoTo er DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70 Me.etiket1,visible )= True er: If err.Number Then MsgBox "Posten er gemt" Else End If
Og lad så en timer styre hvornår den skal være usunlig
ja hælder også lidt til at have et " kommunikations " felt .. eller måske bruge titlen på formularen til det .. kunne man ikke fx lave en funktion der sætter titlen til title + "-Posten er gemt" og lave en funktion der kig ind og lavet den tilbage til kun title så snart de gik igang med at skriv igen
(jeg ved godt, at du sagde, at du ikke ville have flere indlæg, meeeen.....)
Jeg tidligere haft succes med at lægge timer på 1-2 sekunder, hvor man checkede om Me.Dirty = true. Hvis det er tilfældet sættes min GemKnap.Enabled = True (ellers false)
jo det er også det der er mit problem lige pt.. tænker lidt om man kunne skrive lidt på så den oprettet en timer funktion der kaldte et nyt modul der så resatte både feltet og timeren .. men man kan nok ikke resette en funktion man er i gang med at køre
koden jeg arbejder på er her...
On Error GoTo er Dim tit, besked As String tit = Screen.ActiveForm.Caption besked = " Posten er gemt"
DoCmd.RunCommand acCmdSaveRecord Screen.ActiveForm.Caption = besked 'MsgBox "Posten er gemt" er: If err.Number Then Screen.ActiveForm.Caption = besked
I forlængelse af Microsofts navnepolitik, som vi snakkede om i går (Kill, Flush m.m.) så har de fundet ud af, at en record er Dirty, når en bruger er i gang med at redigere i den :o)
'MsgBox "Posten er gemt" er: If err.Number Then Screen.ActiveForm.Caption = besked2 Sleep 500 Screen.ActiveForm.Caption = tit DoCmd.Hourglass False
Else End If
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
