Avatar billede rsa Nybegynder
23. juli 2001 - 19:00 Der er 7 kommentarer og
1 løsning

Åbn den rigtige post i en formular(tabel) vis VBA

Jeg ønsker at åbne den rigtige post i en tabel i en eksisterende formular. Jeg har tidligere fået hjælp af Terry, men jeg kan ikke rigtig få det til at fungere.
Jeg medsender den VBA-kode,jeg har lavet. Denne kode viser kun den første post i formularen(tabellen), hvorfor?
Kan I hjælpe mig?

Private Sub Kommandoknap68_Click()
    Beep
On Error GoTo Err_Kommandoknap68_Click

    Dim stDocName As String
    Dim stLinkCriteria As String
   
    stLinkCriteria = InputBox(\"Angiv Computerens nummer: \", Title:=\"Bruger information\", XPos:=2000, YPos:=2000)
   
   
    stDocName = \"computerenstotaleindhold\"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
   
Exit_Kommandoknap68_Click:
    Exit Sub

Err_Kommandoknap68_Click:
    MsgBox Err.Description
    Resume Exit_Kommandoknap68_Click
   
End Sub
23. juli 2001 - 19:36 #1
Prøv:

Private Sub Kommandoknap68_Click()
    Beep
On Error GoTo Err_Kommandoknap68_Click

    Dim stDocName As String
    Dim stLinkCriteria As String
   
    stLinkCriteria = InputBox(\"Angiv Computerens nummer: \", Title:=\"Bruger information\", XPos:=2000, YPos:=2000)
    if stLinkCriteria <> \"\" then
        stLinkCriteria = \"[ComputerNr] = \'\" & stLinkCriteria & \"\'\"
        stDocName = \"computerenstotaleindhold\"
        DoCmd.OpenForm stDocName, , , stLinkCriteria
    end if

Exit_Kommandoknap68_Click:
    Exit Sub

Err_Kommandoknap68_Click:
    MsgBox Err.Description
    Resume Exit_Kommandoknap68_Click
   
End Sub


/Thomas
23. juli 2001 - 19:44 #2
(...fortsat)

Du skal lige huske at udskifte [ComputerNr] med dit eget feltnavn.

/Thomas
Avatar billede rsa Nybegynder
23. juli 2001 - 20:39 #3
Hej Thomas.
Det virkede, -næsten!
Jeg fik følgende fejlmeddelelse: OpenForm-handlingen blev annulleret.
Jeg vedlægger lige min kode, håber du kan finde fejlen.
Private Sub Kommandoknap68_Click()
    Beep
On Error GoTo Err_Kommandoknap68_Click

    Dim stDocName As String
    Dim stLinkCriteria As String
   
    stLinkCriteria = InputBox(\"Angiv Computerens nummer: \", Title:=\"Bruger information\", XPos:=2000, YPos:=2000)
      If stLinkCriteria <> \"\" Then
            stLinkCriteria = \"[maskinnr]=\"\"& stLinkCriteria &\"\"\"
    stDocName = \"computerenstotaleindhold\"
   
    DoCmd.OpenForm stDocName, , , stLinkCriteria
   
      End If
     
Exit_Kommandoknap68_Click:
    Exit Sub

Err_Kommandoknap68_Click:
    MsgBox Err.Description
    Resume Exit_Kommandoknap68_Click
   
End Sub


23. juli 2001 - 20:46 #4
Er maskinnr numerisk eller tekst?

hvis det er numerisk, skal koden se således ud:

Private Sub Kommandoknap68_Click()
    Beep
On Error GoTo Err_Kommandoknap68_Click

    Dim stDocName As String
    Dim stLinkCriteria As String
   
    stLinkCriteria = InputBox(\"Angiv Computerens nummer: \", Title:=\"Bruger information\", XPos:=2000, YPos:=2000)
      If stLinkCriteria <> \"\" Then
            stLinkCriteria = \"[maskinnr]=\" & stLinkCriteria               
            stDocName = \"computerenstotaleindhold\"
            DoCmd.OpenForm stDocName, , , stLinkCriteria   
      End If
     
Exit_Kommandoknap68_Click:
    Exit Sub

Err_Kommandoknap68_Click:
    MsgBox Err.Description
    Resume Exit_Kommandoknap68_Click
   
End Sub


/Thomas
23. juli 2001 - 21:08 #5
(...rettelse)

Private Sub Kommandoknap68_Click()
    Beep
On Error GoTo Err_Kommandoknap68_Click

    Dim stDocName As String
    Dim stLinkCriteria As String
   
    stLinkCriteria = InputBox(\"Angiv Computerens nummer: \", Title:=\"Bruger information\", XPos:=2000, YPos:=2000)
      If stLinkCriteria <> \"\" Then
            stLinkCriteria = \"[maskinnr]=\" & val(stLinkCriteria)               
            stDocName = \"computerenstotaleindhold\"
            DoCmd.OpenForm stDocName, , , stLinkCriteria   
      End If
     
Exit_Kommandoknap68_Click:
    Exit Sub

Err_Kommandoknap68_Click:
    MsgBox Err.Description
    Resume Exit_Kommandoknap68_Click
   
End Sub
Avatar billede rsa Nybegynder
24. juli 2001 - 06:58 #6
Det virker perfekt. Tak for hjælpen.  rsa
Avatar billede mugs Novice
24. juli 2001 - 07:15 #7
Vi folder vore hænder og lytter i andægtig tavshed
24. juli 2001 - 15:16 #8
RSA-> hvis det virker, ku\' du så ikke lige smide nogle points denne vej, så spørgsmålet lukkes? :o)

mvh
Thomas
Avatar billede Ny bruger Nybegynder

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.

Loading billede Opret Preview
Kategori
Dyk ned i databasernes verden på et af vores praksisnære Access-kurser

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester