17. august 2007 - 09:18Der er
16 kommentarer og 2 løsninger
Problem med OpenArgs
Hej,
Jeg har 2 forms - frmÅtgärdslista og frmBrevbokning
I frmBrevbokning findes en knap som åbner frmÅtgärdslista. Når der trykkes på denne knap vil jeg gerne at den sender värdi fra frmBrevbokning med til frmÅtgärdslista. Når jeg åbner frmÅtgärdslista uden om frmBrevbokning skal den åbnes med tomme felt. Det er vel noget med OpenArgs, eller?
Private Sub Form_Open() If Not IsNull(Me.OpenArgs) Then Me.txtKundnummer.Value = ??? Else Me.txtKundnummer = ??? End If End Sub
I frmBrevbokning findes en knap som åbner frmÅtgärdslista. Når der trykkes på denne knap vil jeg gerne at den sender värdi fra frmBrevbokning med til frmÅtgärdslista.
Vil du åbne formularen "frmÅtgärdslista" og søge efter den post du stod i på formularen "frmBrevbokning"?
Når jeg, i frmBrevbokning, trykker på knappen som sender åbner frmÅtgärdslista står jeg allerede på en aktuell post/kunde. Den skal sende txtKundenummer med som så hentes frem i frmÅtgärdslista.
Det virker ikke, men jeg ved ikke om jeg er helt med!!!
frmÅtgärdslista: Private Sub Form_Open(Cancel As Integer) Me.txtKundnummer = Forms!frmÅtgärdslista!Me!txtKundnummer.SetFocus 'DoCmd.FindRecord Me!UNIKT ID FOR POSTEN I FORM frmBrevbokning
frmBrevbokning: Private Sub btnÅtgärdslista_Click() DoCmd.OpenForm "frmÅtgärdslista" End Sub
Du kan også styre det med OpenArgs, som du skriver indledningsvis. Du kan f.eks. filtrere posterne:
Private Sub Form_Open() If Not IsNull(Me.OpenArgs) Then Me.Filter="txtKundnummer=" & Me.OpenArgs Me.FilterOn=True Else DoCmd.GoToRecord ,,acNewRec End If End Sub
Hej! Undskyld mit sene svar men jeg har väret ude og rejse.
Måske har jeg formuleret mig lidt dumt! Värdi/Data som der sendes fra frmBrevbokning til frmÅtgärdslista findes ikke tidligere i tabellen som tilhörer frmÅtgärdslista (tblÅtgärdslista).
Det eneste den skal göre er at sende Kundenumret med over - altså fra frmBrevbokning till frmÅtgärdslista - ikke noget med filter eller "go to post" da den ikke existerer. :-)
Jeg har fået det til at virke tidligere ved at sende data med over ('" & Forms!frmBrevbokning!txtKundnummer & "')
MEN så kan jeg ikke åbne frmÅtgärslista udenom frmBrevbokning da der så ikke er nogen värdi.
Der er to måder det skal göres på: 1 Fra frmBrevbokning. Så skal kundenumret sendes med over. 2 Når jeg kun åbner frmÅtgärdslista skal feltet väre tomt.
***Form frmÅtgärdslista Private Sub Form_Open() If Not IsNull(Me.OpenArgs) Then Me.txtKundnummer = Me.OpenArgs Else Me.txtKundnummer = "" End If End Sub
Rolig nu ;o) Eksemplet, du viser er uden OpenArgs og med acAdd, så det burde give dig en indtastningsform (uden kundenummer). Hvis du vil overføre kundenumret fra frmBrevbokning skal kaldet rettes til: DoCmd.OpenForm "frmÅtgärdslista", , , , , , DitKundenummer Sidste parameter er OpenArgs værdien. Se evt. hjælpen til OpenForm. Håber, det hjælper dig videre
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.
