Værdi overførelse

<input type="text" name="Form2" value="<% rs("Form1") %>">

Og så skal du selvfølgelig have indsat Form1's data i feltet Form1 i din database :)

Jeg har ikke brug for ASP, Jeg udvikler i selve Access97

exp-ralle: jeg tror du har misforstået mig...

Du er inde Access rummet

kan du ikke bruge udtryksgeneratoren.

i den eks. tekstbox hvor værdien skal stå
kontrolelementkilde : =[Forms]![Formular2]![combo1]

henter værdien fra combo1 på formular2

Niels

hvis textboxen er bundet til en tabel/foresp kan du sætte standartværdien:

=[Forms]![Formular2]![combo1]

Niels

Nåå hehe, sorry

Not quite sure when you want to use this but IF it is when you are opening a form then you can use the OpenArgs parameter

DoCmd.OpenForm "YourForm", , , , , , "This is the OpenArgs Parameter"

In "YourForm" on Load event..

'Check to see if the openargs is used
If Not isNull(Me.OpenArgs) Then
  msgbox Me.openargs
end if

You can also refer to a field on another form (almost how Niels says :o))


msgbox forms!YourForm.SomeField

Terry: Jeg bruger din måde, den vil passe bedst til min opgave. men en anden ting....Hvordan kan jeg finde den Record/Post frem i Form2 hvor Me.OpenArgs er ens?

Me.filter = "SomeField = " & Me.openargs

Where someField is a field in the table. If it is a text field then use

Me.filter = "SomeField = '" & Me.openargs & "'"

Kunne jeg ikke også bruge  DoCmd.FindRecord? Jeg har prøvet at rode  med det med jeg får hele tiden en fejl:

DoCmd.FindRecord Me.OpenArgs, , False

Hvad er bedst at bruge Me.filter eller DoCmd.FindRecord ?

well to be honest I dont think I ever have used findrecord

Terry: jeg kan ikke få det til at virke rgitigt, kan du se hvad der er galt med Me.filter ?

Private Sub Form_Load()

Dim Antal As Integer
Antal = DCount("[KundeNr]", "[AbonnentSpeciel]", "[KundeNr] = '" & Me.OpenArgs & "' ")

If Antal = 0 Then
    DoCmd.GoToRecord , , acNewRec
    Me.KundeNr = Me.OpenArgs
Else
    Me.Filter = "KundeNr ='" & Me.OpenArgs & "' "
End If

End Sub

There are a couple of thing sit may be.

Private Sub Form_Load()

Dim Antal As Integer

If isNull(me.openargs then
  msgbox "NO ARGS"

ELSE

'IS THE KUNDENR a NUMBER or TEXT?
'TEXT
Antal = DCount("[KundeNr]", "[AbonnentSpeciel]", "[KundeNr] = '" & Me.OpenArgs & "' ")
'NUMBER
Antal = DCount("[KundeNr]", "[AbonnentSpeciel]", "[KundeNr] = " & Me.OpenArgs)

If Antal = 0 Then
    DoCmd.GoToRecord , , acNewRec
    Me.KundeNr = Me.OpenArgs
Else
    Me.Filter = "KundeNr ='" & Me.OpenArgs & "' "
    ME.FILTERON = True
End If


END IF

End Sub

okay, virker nu, men det vrøvler bare med opdateringen på Form1. Når jeg via form1 går til form2 og ændre i posten og derefter går tilbage til form1, så er feltet ikke opdateret, jeg har prøvet med DoCmd.Requery, men så komme jeg bare tilbage til 1.post i forespørgslen, og det er ikke meningen. Hvordan får jeg opdateret formen, uden at hoppe tilbage til første post?

Hi celal>dont get me wrong, but this is another question!

I dont know what it is your trying to do so it shard for me to make suggestions!
I dont know IF its possible to delete or update records in the sub form which exist in the main form. If it is then it will be necessary to requery to show the correct data,and you will end up at the first record.

If you know it is data in the current record on the main form thenyou can update these from the sub form.

Forms!frmMainForm.SomeField = someValue

Terry: Ja det ved jeg godt, men kan vi ikke sige at isteden for at oprette et nyt spørgsmål, kan jeg sætte yderligere 20 points til?

Det er ikke muligt for mig at bruge Forms!frmMainForm.SomeField = someValue, jeg skal opdatere hele posten, dog uden at komme tilbage til 1.post, det findes der måske ikke nogen methode til?

Kan jeg ikke brug dette i form1?:

Dim Kundenummer  As String
Kundenummer = Me.KundeNr

DoCmd.Requery
DoCmd.GoToRecord acDataForm, "ByggeDataAboForm", acGoTo, Kundenummer
Har prøvet dette men, får en fejl, men jeg bruge dette til at komme tilbage til den post som jeg var på før jeg opdaterede??

Men det sidste argument i GoToRecord er vel ikke rigtig, det skal vel være et RecordNummer?

you can send your dB to terry@santhell.dk and I will see what I can do, its easier when I can see exactly waht is happening

celal>I dont know if you sent me anything but if you did can you also seld it to access@santhell.dk

terry: jeg har mange sammenkædede tabeller, så det vil være meget problematisk at sende databasen

Er der ikke en methode til at få fat i Post-/Recordnummer?

Okay, jeg har fundet ud at når jeg bruger Me.Refresh, så bliver min felterne opdateret, men mine to afkrysningsfelter bliver ikke opdateret...Meget mystist!?

Okay Terry: tak for hjælpen

selv tak:o)