NUMLOCK AAN

• 

  Bart Heijboer

  15-10-2004 13:37

  Bij het sluiten van een formulier gaat altijd mijn Numlock knop uit.

  Kan iemand helpen een Visual Basic regel schrijven om deze knop waar aan te zetten, ik kan niet vinden waaom deze bij dit form uit gaat. Dan voer ik die module uit na sluiten van het form. Ik heb zelf bijna geen kennis van VBA etc, maar ka die module wel als macro starten

  Al vast bedankt!

  Bart Heijboer

  bart@hydroton.nl

  PS Ik vond in de help:

  Sendkey: {NUMLOCK}

  Sub SendKeys(String As String, )
• 

  RV

  15-10-2004 13:58

  >ik kan niet vinden waaom deze bij dit form uit gaat.<

  Lijkt mij toch beter om de oorzaak van je probleem te vinden.

  Open je formulier in ontwerpweergave, ga naar het tabblad Gebeurtenis, en post ff de code die je daar hebt staan voor je gebeurtenissen.

  RV
• 

  Bart Heijboer

  15-10-2004 14:23

  Private Sub funktiesknop_Click()

  On Error GoTo Err_funktiesknop_Click

  Dim DocName As String

  Dim LinkCriteria As String

  DocName = “Funkties”

  DoCmd.OpenForm DocName, , , LinkCriteria

  Exit_funktiesknop_Click:

  Exit Sub

  Err_funktiesknop_Click:

  MsgBox Error$

  Resume Exit_funktiesknop_Click

  End Sub

  Private Sub Knop129_Click()

  On Error GoTo Err_Knop129_Click

  DoCmd.GoToRecord , , A_FIRST

  Exit_Knop129_Click:

  Exit Sub

  Err_Knop129_Click:

  MsgBox Error$

  Resume Exit_Knop129_Click

  End Sub

  Private Sub Knop145_Click()

  On Error GoTo Err_Knop145_Click

  DoCmd.GoToRecord , , A_FIRST

  Exit_Knop145_Click:

  Exit Sub

  Err_Knop145_Click:

  MsgBox Error$

  Resume Exit_Knop145_Click

  End Sub

  Private Sub Knop169_Click()

  On Error GoTo Err_Knop169_Click

  Dim DocName As String

  DocName = “leverancier lijst”

  DoCmd.OpenReport DocName, A_NORMAL

  Exit_Knop169_Click:

  Exit Sub

  Err_Knop169_Click:

  MsgBox Error$

  Resume Exit_Knop169_Click

  End Sub

  Private Sub Kontaktpersonen_Word_Click()

  On Error GoTo Err_Kontaktpersonen_Word_Click

  Dim DocName As String

  Dim LinkCriteria As String

  DocName = “Kontaktpersonen (oud)”

  LinkCriteria = " = Forms!!"

  DoCmd.OpenForm DocName, , , LinkCriteria

  Exit_Kontaktpersonen_Word_Click:

  Exit Sub

  Err_Kontaktpersonen_Word_Click:

  MsgBox Error$

  Resume Exit_Kontaktpersonen_Word_Click

  End Sub

  Private Sub Leverancierslijst_Click()

  On Error GoTo Err_Leverancierslijst_Click

  Dim DocName As String

  DocName = “leverancier lijst”

  DoCmd.OpenReport DocName, A_PREVIEW

  Exit_Leverancierslijst_Click:

  Exit Sub

  Err_Leverancierslijst_Click:

  MsgBox Error$

  Resume Exit_Leverancierslijst_Click

  End Sub

  Private Sub Nieuw_knop_Click()

  On Error GoTo Err_Nieuw_knop_Click

  DoCmd.GoToRecord , , A_NEWREC

  Exit_Nieuw_knop_Click:

  Exit Sub

  Err_Nieuw_knop_Click:

  MsgBox Error$

  Resume Exit_Nieuw_knop_Click

  End Sub

  Private Sub Ongedaan_knop_Click()

  On Error GoTo Err_Ongedaan_knop_Click

  DoCmd.DoMenuItem A_FORMBAR, A_EDITMENU, A_UNDOFIELD, , A_MENU_VER20

  Exit_Ongedaan_knop_Click:

  Exit Sub

  Err_Ongedaan_knop_Click:

  MsgBox Error$

  Resume Exit_Ongedaan_knop_Click

  End Sub

  Private Sub Opslaan_knop_Click()

  On Error GoTo Err_Opslaan_knop_Click

  DoCmd.DoMenuItem A_FORMBAR, A_FILE, A_SAVERECORD, , A_MENU_VER20

  Exit_Opslaan_knop_Click:

  Exit Sub

  Err_Opslaan_knop_Click:

  MsgBox Error$

  Resume Exit_Opslaan_knop_Click

  End Sub

  Private Sub Sluiten_knop_Click()

  On Error GoTo Err_Sluiten_knop_Click

  DoCmd.Close

  Exit_Sluiten_knop_Click:

  Exit Sub

  Err_Sluiten_knop_Click:

  MsgBox Error$

  Resume Exit_Sluiten_knop_Click

  End Sub

  Private Sub Tiltelknop_Click()

  On Error GoTo Err_Tiltelknop_Click

  Dim DocName As String

  Dim LinkCriteria As String

  DocName = “titel”

  DoCmd.OpenForm DocName, , , LinkCriteria

  Exit_Tiltelknop_Click:

  Exit Sub

  Err_Tiltelknop_Click:

  MsgBox Error$

  Resume Exit_Tiltelknop_Click

  End Sub

  Private Sub Verwijder_knop_Click()

  On Error GoTo Err_verwijder_knop_Click

  DoCmd.DoMenuItem A_FORMBAR, A_EDITMENU, A_SELECTRECORD_V2, , A_MENU_VER20

  DoCmd.DoMenuItem A_FORMBAR, A_EDITMENU, A_DELETE_V2, , A_MENU_VER20

  Exit_verwijder_knop_Click:

  Exit Sub

  Err_verwijder_knop_Click:

  MsgBox Error$

  Resume Exit_verwijder_knop_Click

  End Sub

  Private Sub Volgende_knop_Click()

  On Error GoTo Err_Volgende_knop_Click

  DoCmd.GoToRecord , , A_NEXT

  Exit_Volgende_knop_Click:

  Exit Sub

  Err_Volgende_knop_Click:

  MsgBox Error$

  Resume Exit_Volgende_knop_Click

  End Sub

  Private Sub Vorige_knop_Click()

  On Error GoTo Err_Vorige_knop_Click

  DoCmd.GoToRecord , , A_PREVIOUS

  Exit_Vorige_knop_Click:

  Exit Sub

  Err_Vorige_knop_Click:

  MsgBox Error$

  Resume Exit_Vorige_knop_Click

  End Sub

  Private Sub Knop204_Click()

  On Error GoTo Err_Knop204_Click

  Dim stDocName As String

  stDocName = “Projectleider per postcode”

  DoCmd.OpenReport stDocName, acPreview

  Exit_Knop204_Click:

  Exit Sub

  Err_Knop204_Click:

  MsgBox Err.Description

  Resume Exit_Knop204_Click

  End Sub

  Private Sub Telefoonnummer_algemeen_DblClick(Cancel As Integer)

  Set ctiCallControl = CreateObject(“CTIBridge.CallControl”)

  If Telefoonnummer_algemeen.Value <> “” Then

  ctiCallControl.Dial “0” + Telefoonnummer_algemeen.Value

  End If

  End Sub

  Public Sub NUMLOCK_UIT()

  SendKeysNUMLOCK , -1

  End Sub

  ***********

  Formulier DIALOOG RELATIES IK HEB 1e SUB TOEGEVOEGD, MAAR DEZE HELPT NIET

  Private Sub Form_LostFocus()

  SendKeys “NUMLOCK”, True

  End Sub

  Private Sub Knop0_Click()

  On Error GoTo Err_Knop0_Click

  DoCmd.GoToRecord , , A_FIRST

  Exit_Knop0_Click:

  Exit Sub

  Err_Knop0_Click:

  MsgBox Error$

  Resume Exit_Knop0_Click

  End Sub
• 

  Bart Heijboer

  15-10-2004 14:26

  PS ik werk met Access 97
• 

  RV

  15-10-2004 15:43

  Public Sub NUMLOCK_UIT()

  SendKeysNUMLOCK , -1

  End Sub

  Deze code stond er al, neem ik aan.

  Zet deze code eens uit door een aanhalingstekens aan het begin van iedere regel te plaatsen:

  ' Public Sub NUMLOCK_UIT()

  ' SendKeysNUMLOCK , -1

  ' End Sub

  Verwijder de code de je verder zelf hebt toegevoegd.

  Sluithet formulier en kies ja als je gevraagd wordt om je wijzigingen op te slaan

  en probeer het nog eens.

  RV
• 

  Bart Heijboer

  15-10-2004 15:56

  Heb ik gedaan en uitgezet maar er gebeurt niks. Daarna die opdrachtregels verwijderd, maar helpt ook niet. Ik heb alles wel opgeslagen.

  Kun je niet gewoon NUMLOCK aanzetten met een opdracht regel in VBA iod?

  gr van Bart
• 

  RV

  15-10-2004 18:39

  >Kun je niet gewoon NUMLOCK aanzetten met een opdracht regel in VBA iod?<

  Ongetwijfeld.

  Hebben andere formulieren hetzelfde probleem?

  RV
• 

  RV

  15-10-2004 18:44

  Heb je toevallig zelfgedefinieerde menubalken?

  Open je formulier eens in ontwerpweergave.

  Ga naar het tabblad Overige en kijk op de eigenschap Menubalk is ingevuld.

  Zo ja. schrijf ff op wat daar staat, maak leeg, sla je wijzigingen op.

  Open je formulier, sluit je formulier en kijk dan eens of je NUMLOCK weer uitgaat.

  RV
• 

  Bart Heijboer

  18-10-2004 16:10

  Ik heb het terug gezocht:

  Iemand heeft mijn formulier relaties beveiligd tegen per ongeluk bijwerken met een extra form. die vraagt of je de wijzigingen wilt doorvoeren Ja of Nee. We gebruiken dit form om te zoeken en te wijzigen, maar vaak werd na het zoeken per ongeluk gewijzigd. Dit is te voorkomen met het form. wilt u de wijzigingen op slaan: Ja (start macro Relaties.Ja : WaardeInstellen Nee)

  Bij nee geeft de macro opdracht tot ongedaan maken met

  Nee (start macro Relaties.Nee : Formulier - sluiten)

  Dan voert Access deze macro Maakongedaan uit bij form uit geheugen / sluiten / uitschakelen

  ToetsenVerzenden {esc} wachte Nee

  Ik denk dat het in het laatste zit, want als ik dit uitschkel gaat het goed, alleen kran ik dan mijn wijzigen in het relatie bestand niet extra beveiligen, hij geeft nu geen waarschuwing meer

  Heb je nog een idee?
• 

  Bart Heijboer

  29-10-2004 11:57

  IK HEB HET ONDERTUSSEN ZELF OPGELOST DOOR ALLS OPNIEUW AAN TE MAKEN

  BEDANKT VOOR DE SUGESTIES