29. april 2004 - 22:24Der er
7 kommentarer og 1 løsning
open args virker kun een gang
Hej. Jeg har lavet en lille søge funktion hvor man kan vælge nogle kunder ud fra en liste når man så klikker på listen komme det en kundeformular frem . det virker ... men hvis man så trykke søg igen uden at lukke kundeformulare virker den ikke så bliver den , selvom man trykker på en ny kunde stadig på samme post ...
nogle det har en anden løsning end at skulle lukke min kundeformular hvergang man skal fortage en ny søgning .
kode der åbner kundeformularen--- Herunder-----------
Dim stdocname As String Dim stLinkCriteria As String stdocname = "Kunder" If IsLoaded("kunder") Then Forms![kunder].Requery Else End If DoCmd.OpenForm stdocname, , , , , , Me.KundeID DoCmd.Close acForm, "find_init" Forms!kunder.SetFocus If Not IsLoaded("Ordre efter kunder") Then Else DoCmd.Close acForm, "ordre efter kunder" End If
Denne side indeholder artikler med forskellige perspektiver på Identity & Access Management i private og offentlige organisationer. Artiklerne behandler aktuelle IAM-emner og leveres af producenter, rådgivere og implementeringspartnere.
Du bruger jo Openargs for at formularen "Kunder" ved hvilket kundeid, som der arbejdes med. På "Kunder" bruger du jo værdien ved at spørge på Me.Openargs.
i stedet kunne du have en public variabel, som hedder KundeID, som bliver sat lige inden Docmd.Openform "Kunder" På "Kunder" spørger du derefter bare på KundeID
jo en del .. jeg har nu lavet det som en public variable , men de virker stadig ikke . jeg bliver nød til at lukke formularen og så åbne den igen før det virker og det er jo ikke så smart... hvordan kan jeg tvinge den til at køre min kode når jeg lukker mit søge window
den skal køres når jeg åbner min kundeformular.. men jeg skal tvinge den til at køre den kode når jeg lukke mit søgewindow
If IsNull(SOG_KundeID) Or SOG_KundeID = "" Then GoTo ee Else Dim rs As Object
Set rs = Me.Recordset.Clone rs.FindFirst "Kunder.KundeID = " & Str(Nz(SOG_KundeID, 0)) If Not rs.EOF Then Me.Bookmark = rs.Bookmark End If
Synes godt om
Ny brugerNybegynder
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.
