Avatar billede acw Nybegynder
24. februar 2002 - 17:54 Der er 3 kommentarer og
1 løsning

Ændre knap fra en med ja og nej, til en med "cancel only"

Er ved at lave et regneark, har en knap med programkoden:

Private Sub CommandButton1_Click()

  Dim sti As String, Navn As String, Måned As String
   
  sti = ActiveWorkbook.Path
  Måned = MonthName(Month(Date), False)
  Navn = "Timeregistrering " & Cells(2, 4).Value & " " & Måned
 
  If Cells(2, 4).Value = "" Then
    If vbNo = MsgBox("Der er ikke angivet et navn!", vbYesNo) Then
      MsgBox "Fil ikke gemt"
           
    Exit Sub
  End If
    End If
  ActiveWorkbook.SaveAs Filename:=sti & "\" & Navn
  MsgBox "Fil gemt som " & Navn & " i mappen " & sti
Application.Quit
End Sub

Jeg har selv prøvet at ændre knappen fra "vbyesno" til "vbcancelonly", men det hjalp ikke. Man må ikke kunne trykke ok/ja/prøv igen/ignorer. Kun Annuller/cancel
Avatar billede janvogt Praktikant
24. februar 2002 - 19:38 #1
Har du prøvet "vbCancel"?
Avatar billede janvogt Praktikant
24. februar 2002 - 20:03 #2
Næ, den virker vist ikke. Det er åbenbart standard Windows ikke at have en knap alene med Cancel.

I din situation tror jeg nu også jeg ville bruge vbRetryCancel.
Avatar billede lrp Nybegynder
24. februar 2002 - 23:15 #3
Hvis du vil overholde Windows-standarden vil det rigtigste nok være, at du nøjes med at lave en "OK"-knap.

For at tydeliggøre, at der er tale om en fejlmeddelelse, kan du i stedet for "vbYesNo" bruge "vbCritical", der tilføjer et "fejl-ikon" i msgbox'en.
Avatar billede xelor Nybegynder
24. februar 2002 - 23:24 #4
Udfra det jeg kan læse i programmet, så r der ikke ret meget brugeren kan gøre i den givne situation, hvorfor jeg ville nøjes med følgende stykke kode :

If Cells(2, 4).Value = "" Then
    MsgBox "Der er ikke angivet et navn!",vbCritical
    Exit Sub
End If


Eftersom brugerene alligevel skal afbryde programmet for at angive et filnavn, så vil det være mest rigtigt på denne måde.

/Xelor
Avatar billede 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.

Loading billede Opret Preview
Kategori
IT-kurser om Microsoft 365, sikkerhed, personlig vækst, udvikling, digital markedsføring, grafisk design, SAP og forretningsanalyse.

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