06. juli 2005 - 20:50Der er
14 kommentarer og 1 løsning
Efter ændring virker Luk knap ikke!
Brugeren får en meddelesesbox hvis der ikke er oprettet en titel i underformularen.
Private Sub Luk_knap_Click() On Error GoTo Err_Luk_knap_Click
Dim Video As Form 'Hvis der ikke er oprettet en titel, kan der vælges at slette den nye post 'eller gemme og lukke uden titel If IsNull(Me.Titel2) Then If MsgBox("Du har ikke oprettet en titel" + Chr(13) + "Klik Annuller for lukke uden at gemme" + Chr(13) + "Klik OK for at gemme uden titel", _ vbQuestion + vbOKCancel + vbDefaultButton2, _ "Titel mangler!") = vbCancel Then Me.Undo Me.Requery DoCmd.Close acForm, Me.Name DoCmd.OpenForm "Forside", acNormal, , , , acWindowNormal
Jeg tror det ksn have noget at gøre med dine relationer. Hvis du oprettter en titel i parentform, kræves det også at du har samme titel i underformularen. Prøv at oprette titlen i childform først og derefter i parentform.
Hvis brugeren ikke har oprettet en titel, fungerer koden som forventet, Undo hvis der klikkes Anuller, ved OK lukkes formularen og posten gemmes uden titel. Men hvis der som normalt er oprettet en titel, lukkes formularen ikke. Da jeg kun brugte, DoCmd.Close acForm, Me.Name DoCmd.OpenForm "Forside", acNormal, , , , acWindowNormal virkede det fint med at lukke.
Private Sub Luk_knap_Click() On Error GoTo Err_Luk_knap_Click
Dim Video As Form 'Hvis der ikke er oprettet en titel, kan der vælges at slette den nye post 'eller gemme og lukke uden titel If IsNull(Me.Titel2) Then If MsgBox("Du har ikke oprettet en titel" + Chr(13) + "Klik Annuller for lukke uden at gemme" + Chr(13) + "Klik OK for at gemme uden titel", _ vbQuestion + vbOKCancel + vbDefaultButton2, _ "Titel mangler!") = vbCancel Then Me.Undo Me.Requery DoCmd.Close acForm, Me.Name DoCmd.OpenForm "Forside", acNormal, , , , acWindowNormal
hmmm - Forbandede underformularer. Har du prøvet at requery underformularen inden du lukker. Jeg antager at du lukker med en kommandoknap med Docmd.close:
Jeg fandt en løsning. Jeg byttede om på rækkefølgen, så nu virker det og ser det sådan ud.
Private Sub Luk_knap_Click() On Error GoTo Err_Luk_knap_Click
Dim Titel2 As String
'Hvis der ikke er oprettet en titel, kan der vælges at slette den nye post 'eller gemme og lukke uden titel
If IsNull(Me.Titel2) = 0 Then DoCmd.Close acForm, Me.Name DoCmd.OpenForm "Forside", acNormal, , , , acWindowNormal
Else If MsgBox("Du har ikke oprettet en titel" + Chr(13) + "Klik Annuller for lukke uden at gemme" + Chr(13) + "Klik OK for at gemme uden titel", _ vbQuestion + vbAbortRetryIgnore + vbDefaultButton2, _ "Titel mangler!") = vbAbort Then Me.Undo DoCmd.Close acForm, Me.Name DoCmd.OpenForm "Forside", acNormal, , , , acWindowNormal
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.