variabel på en form INDEN Form_Open aktiveres?

You can send the openargs parameter to the form containing a value. You can use this value to then decide if the form is to be open or not (cancel = true)

?

Hej Terry
Opgaven har ændret sig lidt.

Jeg skal have variablen FirmaId overført fra Access til Excel

I Access har jeg:
Shell "cmd /c  start """" """ & stAppName & """"

Hvordan placeres FirmaId ?
Hvordan får jeg FirmaId ud igen i Excel?

I'm puzzled :-(

Why would you want to put ONE variable into Excel?

It would be quite easy to put the variable into a table and just send that to Excel using DoCmd.TransferSpreadsheet ..

Jeg får følgende fejl fra Access:
Regnearkceller kan ikke slettes

strPath = CurrentProject.Path
stAppName = strPath & "\Excel2.xlsm"
Shell "cmd /c  start """" """ & stAppName & """"
DoCmd.TransferSpreadsheet 1, 8, "Firma Forespørgsel", strPath & "\Excel2.xlsm", True, "A2:J190"

you don't need to use shell

sounds like the file is read only.

Try making a new Excel file and don't remove range, just to see what happens

Jeg har fundet fejlen.
Jeg har googlet TransferSpreadsheet. Alle har udeladt "Axx:Jxx"
Efter jeg fjernede "A2:J190" virker det !!!

Et problem er tilbage. I Excel2.xlsm oprettes en ny mappe med tablens navn. Jeg skal have de overførte data lagt i Ark1

Hvordan overfører jeg til Excel2.xlsm  ARK1

Det er vist et Excel spørgsmål så jeg takker og prøver på Excel forum

Du må gerne svare hvis du ved hvordan man placerer dataene i Ark1

Excel2.xlsm oprettes en ny mappe med tablens navn. Jeg skal have de overførte data til Excel2.xlsm  ARK1

you can prefix the range with the name of the worksheet and an exclamation point; for example, Budget!A1:C7

Nej der må ikke stå noget på denne plads "A2:J190"

DoCmd.TransferSpreadsheet 1, 8, "Firma Forespørgsel", strPath & "\Excel2.xlsm", True, "A2:J190"

Løs fra MS:
Range Optional Variant A string expression that's a valid range of cells or the name of a range in the spreadsheet. This argument applies only to importing. Leave this argument blank to import the entire spreadsheet. When you export to a spreadsheet, you must leave this argument blank. If you enter a range, the export will fail.

if you cant use the range in the export then the only alternative I can see is automation.

Jeg kan lave dette: "Ark1" men det kræver Ark1 ikke findes forinden og ved næste kald bliver det Ark11 altså et nyt yderligere oprettet sheet. Det skal gå til samme sheet hver gang og opdatere det der evt ligger der i forvejen

DoCmd.TransferSpreadsheet 1, 8, "Firma Forespørgsel", strPath & "\Excel2.xlsm", True, "Ark1"

Heres a simple example of how to automate Excel from Access. Yo will need a reference to Excel.

Function UpdateSheet()
Dim objXL As Excel.Application
Dim objActiveWkb As Excel.Workbook
Dim iCol As Integer, iRow As Integer

    On Error Resume Next
   
    Set objXL = CreateObject("Excel.Application")
    With objXL.Application
       
        'Make Excel visible
        '.Visible = True
       
        'Open the Workbook
        .Workbooks.Open "C:\Test\test.xls"
       
        Set objActiveWkb = .Application.ActiveWorkbook
        iCol = 4
        iRow = 5
       
        objActiveWkb.Worksheets("Sheet1").Cells(iRow, iCol) = "1234"
        objActiveWkb.Save
       
        .Application.Quit
   
    End With
   
    Set objXL = Nothing
    Set objActiveWkb = Nothing
   

End Function

Mange tak men fejl her:

Dim objXL As Excel.Application 

Fejludskrift: user defined type not defined

do you have a reference to Excel (tools + references)

Nej men nu har jeg hentet:
Microsoft Excel 15.0 object library

Access giver herefter fejlen:

32813
Name conflicts with existing module,project ore object libary

Hard to say what the problem is. I have no problems here.
Sounds like some other reference is conflicting but I cant see what you have.

Jeg bruger Access 2013
er Microsoft Excel 15.0 object library
den rigtige eller er der andre?

I would guess that 15 is correct if that's what you find in references.