Opdatere formular

Hvad piver den over? (hvor)

Prøv med:

kombinationsboks = Akode

i stedet for Akode = kombinationsboks

ehh, AKode = Kombinationsboks var bare en kommentar :)
Jeg kan ikke sige hvor den piver, da jeg ikke får lov at break\'e ved fejlmed. !
Men mon ikke det er fordi jeg ikke kan bruge .requery på en kombinationsboks ?

Kunne godt tænkes..

Har du et alternativ ?

Forms(\"Form1\")![FileName].Requery

Private Sub Kommandoknap3_Click()
On Error GoTo Err_Kommandoknap3_Click
 
  If CurrentProject.AllForms(\"Opgavestyring\").IsLoaded = True Then
    Forms(\"Opgavestyring\")!Akode.Requery
  End If
 
  If CurrentProject.AllForms(\"OpgavestyringNyOpgave\").IsLoaded = True Then
    Forms(\"OpgavestyringNyOpgave\")!Akode.Requery
  End If
   
\'  DoCmd.SelectObject acForm, \"Aktivitetskoder\", False
\'  DoCmd.Close

Exit_Kommandoknap3_Click:
    Exit Sub

Err_Kommandoknap3_Click:
    MsgBox Err.Description
    Resume Exit_Kommandoknap3_Click
   
End Sub

Første linie var bare en kort principforklaring, hvor [FileName] henviste til en komboboks.

If Forms(\"OpgaveStyring\").IsLoaded Then

  Forms(\"Opgavestyring\")![Akode].Requery

End If

Burde det her ikke kunne fungere ? Jeg får fejlen \'Application- or Object-defined error\'

Prøv lige at lav din On error om til etn kommentar, så du kan se, hvor fejlen opstår !!

Så vidt jeg kan se, så skulle min kode være ok med:

AllForms(\"...\").Isloaded

og

Forms(\"...\")!Akode.Requery

Umm, hvad mener du med at lave On_Error om til en kommentar ?

Så man kan altså bruge Kombobox.requery ?

Skulle have været:
Så man kan altså bruge kombobox.requery til at opdatere indholdet ?

-> Moses
Jeg har overstået det \"lette\" hovedbrud med at opdatere indholdet i en kombobox :)
Jeg er temli\' tændt på at finde ud af hvordan jeg får en mere detaljeret fejlmeddelelse!

Jeg går ud fra at det r i linien (*);

Err_Kommandoknap3_Click:
    MsgBox Err.Description (*)
    Resume Exit_Kommandoknap3_Click

du mener jeg kan gøre et eller andet ..
Jeg er desværre helt tom for idéer på dette område ..

Cheers, Zim

Jeg \"døde\" igår, så derfor kommer den sene retur.

Ja, man kan opdatere kombobokse. De er for at kunne ændre i indholdet i rullelisten. Et input i selve feltet kunne jo bruges til at oprette en ny gyldig værdi i rullelisten.

Med On-Error...  mente jeg bare at sætte et \' foran linien, så det udelades under programkørslen.
På den måde overgår fejlen til Access og den viser så linien, hvor fejlen opstod. Det er lidt nemmere at løse tingene uden den \"On error\" funktion.
Den sætter man først på, når alt kører, som det skal. Skulle der så engang alligevel opstå et problem, som programmøren ikk havde tænkt på, så redder On-error funktionen et nedbræk.

Virker det hele nu ??

To sekunder - jeg er vist gået asyncron med din sidste besked ...

Det spiller bare :) Du er en guttermand ! Den med \' foran On_Error er bare GENIAL!
heh, en skam jeg ikke kunne regne den ud selv :)

Det er korrekt, at det er ved (*) at der kommer en fejlmeddelelse, hvis ellers \"On error...\" er sat til.

Du er ganske enkelt nød til at gennemgå dit program i hovedet, definere fejltyper (talværdier), som kan opstå de forskellige steder i dit program og sætte en fejlvariable til den værdi ind lige før en linie, hvor du mener, at der kan opstå en fejl.
Når din On error så hopper på grund af en fejl, så kan du i fejlrutinen (nede ved (*)) slå taleværdien op og udskrive den tilhørende fejl.
Der er kun den hårde metode.

Et simpelt eksempel på min lidt knudrede forklaring:

Function Divide(tal1, tal2 as Single) as Single
  Dim Resultat as Single
  Dim Fejl as Integer
  Const myERR_UkendtFejl = 0
  Const myERR_DivisionMedNul = 1
  Const myERR_EnEllerAndenAndenFejl = 2
 
  Fejl = myERR_UkendtFejl
  On Error Goto MeldFejl
 
  \'Nu er der risiko for et eller anden fejl
  Fejl = myERR_EnEllerAndenAndenFejl
  ... programstump \"gsd lhbv lhk xl\" ...

  \'Nu er der risiko for, at Tal2 = 0
  Resultat = Tal1 / Tal2

  Divide = Resultat

Afslut:
  Exit Function

MeldFejl:
  \'Ved fejl returneres værdien 0
  Divide = 0
  Select Case Fejl
  Case myERR_DivisionMedNul
    MsgBox \"Du kan ikke dividere med nul. Tal2 er nul !!\"
  Case myERR_TalIkkeDefineret
    MsgBox \"Du skal sende to tal med !!\"
  End Select

  Resume Afslut

End Function

Heh, er du underviser eller lign ? Jeg har mødt meget få folk på eksperten,
der gør så stor en indsats for 15 point! (Måske fordi jeg ikke kommer nok omkring :)
Jeg vil gerne gøre det klart, at jeg sætter stor pris på din logiske forklaring(er)!!

Tak for indsatsen !! :)
Zim

og så er jeg iøvrigt tit & ofte blevet inspireret af din kodestruktur :)

Tak for roserne

Engang imellem har man tid og lyst - og engang imellem har man ikke !!

Idag var en helt speciel dag ...
Idag havde jeg lyst ... men ikke tid.
Det er åbenbart en god kombination, såehh - hvem ved - måske er jeg fyret til næste første ...

;-)