Vedr. Word og Access

Kan det være fordi din label kun bliver opdateret når dokumentet bliver dannet og ikke hver gang dokumentet åbnes?
Det kan være vi skal se den vba kode, der opdaterer din label for at kunne hjælpe videre

Her er koden:

Private Sub CommandButton1_Click()
    Dim objConn As New Connection
    Dim objRs As Recordset
    Dim strSQL As String
   
    objConn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=Purchace_order.mdb"
   
    strSQL = "INSERT INTO tblOrder_Numbers (Dato) VALUES (Date())"
    objConn.Execute (strSQL)
   
    objConn.Close
End Sub

Private Sub Document_New()
    Dim objConn As New Connection
    Dim objRs As Recordset
    Dim strSQL As String
   
    objConn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=Purchace_order.mdb"
   
    strSQL = "SELECT * FROM tblOrder_Numbers ORDER BY Order_No DESC"
    Set objRs = objConn.Execute(strSQL)
   
    Label1.Caption = ""
    Label1.Caption = objRs("Order_No")
    Label1.TextAlign = fmTextAlignRight
    Label1.Font = "verdana"
    Label1.Font.Size = 17
    Label1.ForeColor = vbRed
   
    objRs.Close
    Set objRs = Nothing
    objConn.Close
End Sub

Document_New er en procedure, der bliver kørt, når du skaber et nyt dokument baseret på en skabelon. Hvis du vil have den til at køre hver gang dokumentet bliver åbnet kan du rette til Document_Open, men er du sikker på at det er det du vil?

Kanont! -det virker sq hr.!

Mange tak.!

Læg et svar og du skal få dine fortjente points!

Takker

thor> Du skulle vel ikke have enten ICQ eller MSN?

Jo - thor@fam-ostergaard.dk på msn, men jeg holder fp kursus nu, så jeg kan ikke lige hjælpe

Ok.