Dansk Access Forum
  Hjælp Hjælp  Søg i forum   Opret ny bruger Opret ny bruger  Log ind Log ind


Emne lukket"Er du sikker på at du vil ændre dette felt?"

 Besvar Besvar
Forfatter
Michael Se dropdown
Bronze bruger
Bronze bruger
Avatar

Medlem: 23-09-2014
Status: Offline
Point: 3
Direkte link til dette indlæg Emne: "Er du sikker på at du vil ændre dette felt?"
    Sendt: 23-09-2014 kl. 09:47
Hej
 
Er der en der kan forklare mig hvordan man kan få en boks til at poppe op med teksten "Er du sikker på at du vil ændre dette felt?" hvis man forsøger at ændre indhold i et bestemt felt? Det er selvfølgelig meningen at man skal kunne svare ja eller nej i boksen.
 
På forhånd tak for hjælpen Smile
 
Michael
Til top



Til top
hkh Se dropdown
Sølv bruger
Sølv bruger


Medlem: 15-08-2012
Status: Offline
Point: 320
Direkte link til dette indlæg Sendt: 23-09-2014 kl. 11:55
Hej Michael

Under feltets egenskaber kan du vælge en af følgende egenskaber

Ved indgang(når markøren placeres i feltet)

Først ville jeg undersøge om feltet er tomt, hvis der ikke står noget i feltet, skal der ikke vises en advarsel.

Feltet hedder 'Navn'

Private Sub Navn_Enter()
    
    If Nz(Navn) = "" Then Exit Sub
    
    If MsgBox("Her indsættes din besked?", vbExclamation + vbYesNo + vbDefaultButton2, "Ændring af navn!") = vbNo Then
        Exit Sub
    End If

End Sub

Forklaring
If Nz(Navn) = "" Then Exit Sub
undersøger om feltet er Null eller "".

If MsgBox("Her indsættes din besked?", vbExclamation + vbYesNo + vbDefaultButton2, "Ændring af navn!") = vbNo Then
Viser din besked med et Udråbstegn, JaNej knapper, vælger nej som default, Titlen på boksen

Egenskaberne for feltet finder du ved at markere feltet, højreklikke nederst er egenskaberne.
Vælg fanen Hændelser.
VedIndgang findes i listen, klik i feltet, klik derefter på knappen for enden af feltet med de tre prikker.
Vælg kodegenerator.




Hans
Til top
Michael Se dropdown
Bronze bruger
Bronze bruger
Avatar

Medlem: 23-09-2014
Status: Offline
Point: 3
Direkte link til dette indlæg Sendt: 23-09-2014 kl. 13:22
Hej Hans
 
Tusind tak for hjælpen. boksen kommer rigtigt op men hvis man svare nej så laves det tastetryk som udløste din makro alligevel.
 
Er det muligt at feltet ikke bliver ændret hvis man trykker nej?
 
Jeg har ændret følgende Private Sub navn_Change() fordi med "enter" går makroen i gang inden jeg når ind til feltet da der automatisk startes på det felt når man åbner formularen.
 
Nedenfor er koden:
 
Private Sub navn_Change()
If Nz(navn) = "" Then Exit Sub
   
    If MsgBox("Vil du ændre på navnet der stod i feltet?", vbExclamation + vbYesNo + vbDefaultButton2, "Ændring af navn!") = vbNo Then
        Exit Sub
    End If
End Sub
 
Håber at du kan hjælpe Smile
Til top
hkh Se dropdown
Sølv bruger
Sølv bruger


Medlem: 15-08-2012
Status: Offline
Point: 320
Direkte link til dette indlæg Sendt: 23-09-2014 kl. 14:12
Du kunne flytte til et andet felt eller en knap.
Hvis du flytter til et andet felt eller en knap, vil du ikke kunne ændre.

Hændelsen efteropdatering, indtræffer først efter du har ændret feltet, medens vedindgang kommer når du plaserer markøren i feltet.


Private Sub Navn_Enter()
    
    If Nz(Navn) = "" Then Exit Sub
    
    If MsgBox("Her indsættes din besked?", vbExclamation + vbYesNo + vbDefaultButton2, "Ændring af navn!") = vbNo Then
        Andetfelt.setfocus
        Exit Sub
    End If

End Sub

Hvis dit formål er, at forhindre utilsigtet ændring, kan det gøres hjælp af en knap der tænder og slukker for redigering.
Hans
Til top
hkh Se dropdown
Sølv bruger
Sølv bruger


Medlem: 15-08-2012
Status: Offline
Point: 320
Direkte link til dette indlæg Sendt: 23-09-2014 kl. 14:30
I en form med fire felter og en til/fra knap.

Felterne er døbt n1, n2, n3 og n4.
Felterne er låst og deaktiveret.

Knappen er døbt Knap_Ret

Private Sub Knap_Ret_AfterUpdate()
    If Knap_Ret = True Then
        For q = 1 To 4
            Me("n" & q).Locked = False
            Me("n" & q).Enabled = True
        Next
    Else
        For q = 1 To 4
            Me("n" & q).Locked = True
            Me("n" & q).Enabled = False
        Next
    End If

End Sub

Når der trykkes på knappen, bliver den nede og if delen af koden udføres.
dvs. felterne åbnes

Når der trykkes på knappen igen, kommer den med op og else delen af koden udføres.

Jeg valgte for nemheds skyld at døbe felterne n1, n2, n3 og n4 for at kunne bruge et for next loop.

Me!n1.Locked = False
Me!n1.Enabled = True
Me!n2.Locked = False
Me!n2.Enabled = True
Me!n3.Locked = False
Me!n3.Enabled = True
Me!n4.Locked = False
Me!n4.Enabled = True

eller

n1.Locked = False
n1.Enabled = True
n2.Locked = False
n2.Enabled = True
n3.Locked = False
n3.Enabled = True
n4.Locked = False
n4.Enabled = True

Gør det samme, men hvis der er mange felter er for next loopet lettere.

Me("n" & q) er navnet på feltet der bearbejdes, q ændres ved hvert gennemløb
Der må ikke være udråbstegn mellem Me og parantes begynd.

Hvis der er andet, spørger du bare, så skal jeg forsøge at hjælpe så godt jeg kan.


Hans
Til top
pernilles86 Se dropdown
Bronze bruger
Bronze bruger


Medlem: 28-04-2015
Land: Danmark
Status: Offline
Point: 4
Direkte link til dette indlæg Sendt: 28-04-2015 kl. 19:47
Det har jeg også tænkt at jeg godt kunne bruge... Så tusind tak for hjælpen!!
Til top
 Besvar Besvar

Skift forum Forum tilladelser Se dropdown

© 2013 - 2024 Dansk Access Forum - en del af Excel-regneark.dk