CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

Newbee1 Novice

16. februar 2016 - 09:45 Der er 15 kommentarer og
1 løsning

Msgbox before update

Hej

Jeg prøver at lave en popup box i en formular, der skal komme hvis, der bliver tastet en allerede eksisterende post, og et afkrydsningsfelt er markeret.

Private Sub Batch_BeforeUpdate(Cancel As Integer)

IF (Batchnr = Batchnr) and (LockBatch = yes)
MsgBox ("Batch are locked")
Cancel = True
End If

End Sub

Er der nogen der kan hjælpe mig ?

Hvis der indtastes et batchnr, der allerede eksistere og denne batch er låst, skal der komme en popup.

Mvh

Tony

Synes godt om

Birthe_Lauridsen Forsker

16. februar 2016 - 10:31 #1

Hej
Kan du ikke beskrive det lidt nærmere?

Jeg går ud fra at 1. Batchnr er fra tabellen, at andet Batchnr er fra indtastningen og at LockBatch er opslag i tabellen.

Med venlig hilsen

Birthe Lauridsen
Praktisk IT

Synes godt om

petersen7913 Forsker

16. februar 2016 - 10:31 #2

Her er der forskellige eksempler

http://www.datawright.com.au/access_resources/access_docmd.openform_arguments.htm

Den der hedder Opening a form as a dialog form kan måske bruges til det du efterlyser?

Synes godt om

terry Ekspert

16. februar 2016 - 10:48 #3

I think you need to use the dcount function to check if records already exist for same Batchnr and where LockBatch = True

EG:

If DCount("*", "SomeTable", "Batchnr = " & Me.BatchNr & " And LockBatch = True") > 0 Then

MsgBox ("Batch are locked")
Cancel = True

End If

Not tezxted :-)

Synes godt om

terry Ekspert

16. februar 2016 - 10:50 #4

and I'm assuming that BatchNr is numerical, otherwise use

If DCount("*", "SomeTable", "Batchnr = '" & Me.BatchNr & "' And LockBatch = True") > 0 Then

MsgBox ("Batch are locked")
Cancel = True

End If

and again not tested

Synes godt om

Newbee1 Novice

17. februar 2016 - 08:48 #5

Hej

Tak for svar.

Til Birthe:

Du har ret Der skal indtastes et batchnr, og derefter checkes om både batchnr allerede eksistere og om batch er låst ved hjælp af et afkrysnings felt, før formular opdatere tabel.

Hi Terry Barchnr have both letter and numbers, i tried to use your programming, but the message: Run-time error '438' Object doesnt support this property or method.

Synes godt om

terry Ekspert

17. februar 2016 - 09:16 #6

can I see the dB, or maybe just the table?
ekspertenATsanthell.dk

Synes godt om

terry Ekspert

17. februar 2016 - 09:27 #7

I've just made a simple example and this works. If your fields are the same as you show in example then all you need to change is tbl1 (table name) to the correct tabl ename.

Private Sub Form_BeforeUpdate(Cancel As Integer)

If DCount("*", "tbl1", "Batchnr = '" & Me.Batchnr & "' And LockBatch = True") > 0 Then

MsgBox ("Batch are locked")
Cancel = True

End If

End Sub

Synes godt om

Newbee1 Novice

17. februar 2016 - 09:58 #8

I have mailed you a part of the DB

Regards

Tony

Synes godt om

terry Ekspert

17. februar 2016 - 11:51 #9

well the first thing I see is the field is named BatchLock and not LockBatch, so that needs changing.

Synes godt om

terry Ekspert

17. februar 2016 - 11:53 #10

Also, in table DailyReportSub there there are NO records with a batch number, and only one where BatchLock is set to True.

Synes godt om

terry Ekspert

17. februar 2016 - 12:00 #11

This works

Private Sub Form_BeforeUpdate(Cancel As Integer)
If DCount("*", "DailyReportSub", "Batchnr = '" & Me.Batchnr & "' And BatchLock = True") > 0 Then

MsgBox ("Batch are locked")
Cancel = True

End If

End Sub

Synes godt om

Newbee1 Novice

18. februar 2016 - 07:33 #12

Hi

If I change to:

Private Sub Form_BeforeUpdate(Cancel As Integer)

Dim LTotal As Long
Dim LSecondTotal As Long

LTotal = DCount("*", "DailyReportSub", "BatchLock = True")
LSecondTotal = DCount("*", "DailyReportSub", "Batchnr = '" & Me.Batchnr & "')
If (LTotal + LSecondTotal) > 0 Then
MsgBox ("Batch are locked")
Cancel = True
End If

End Sub

Then I get a Runtime in the Me.Batchnr ??

Synes godt om

terry Ekspert

18. februar 2016 - 12:09 #13

I've sent you a mail.

Not sure what you are hoping to do with the above code, but I'm guessing the error is because you have swapped the "') around, it should be '")

If you get the code to run without errors all it will do is count records where BatchLock = True but not necessarily with same Batchnr as your entering.

But maybe I haven't been given all the information.

Synes godt om

terry Ekspert

18. februar 2016 - 19:34 #14

after a bit of confusion as to how to use the dB and which sub form the code has to be on it seems its now working as per the solution I gave Skrevet ons. d. 17. februar 2016 kl. 12:00:57| #11

Synes godt om

Newbee1 Novice

18. februar 2016 - 20:51 #15

Tks. Terry

Synes godt om

terry Ekspert

19. februar 2016 - 09:27 #16

thanks

Synes godt om

Ny bruger Nybegynder

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.

Følg dette spørgsmål

Opret Preview

Access kurser

Dyk ned i databasernes verden på et af vores praksisnære Access-kurser

Se alle Access kurser

Flere spørgsmål fra Access kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Usynlige tabeller, forespørgsler mm i Access Af sigyn i Access	4	18/07/202407:29	18/07/202410:32
Convertering af variabler Af per2edb i Access	1	30/06/202420:14	01/07/202409:18
Overfør global variabel via Macro Af per2edb i Access	7	24/06/202411:37	25/06/202408:02
vis tekst ved hjælp af mousover Af per2edb i Access	3	21/06/202409:00	21/06/202414:58
Valg af type fra liste skal åbne en rapport over alle poster med den valgte type Af visto i Access	5	07/06/202417:13	10/07/202412:34

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS