Desbetreffende Record Openen

[Vinnie19]

Hallo allemaal

Ik zit met een probleempje
Ik heb een Access een tabel gemaakt en dan een paar records toegevoegd die zijn genummerd (1, 2, 3) en ook gelijk een primaire sleutel van gemaakt nu wil ik via een formulier waar ook die records in een rijtje staan als tabelvorm dubbele klik op een record doen (dus op dat nummer) en dan erheen gaan naar het record
maar dat wil niet lukken
ga steeds naar het eerste record
niet naar het desbetreffende
ik doe dit via macros

Hopelijk weet iemand hoe ik dit kan oplossen

Alvast bedankt
Vinnie19

 

[Guus2005]

ik gebruik geen macro's maar misschien heb je hier iets aan:
Ik denk dat je je query of tabel of form opent zonder criterium. Als je dat doet krijg je altijd het eerste record. Breid je criterium uit met "ID = Form.ID" dan zou het goed moeten gaan.

 

[Vinnie19]

1 ding al opgelost met dit scriptje

Private Sub id_DblClick(Cancel As Integer)
DoCmd.OpenForm "form", , , "id = " & id
End Sub

waar id staat komt natuurlijk de naam van het veld waar de sleutel aan vast zit
en form is het formulier dat hij dan moet openen waar dat id in staat goed.

Het veld waar de sleutel aan is gegeven staat dan op numeriek maar als ik het dan naar Tekst zet dan werkt het script niet meer.
Hoe kan ik dat oplossen dat het ook met Tekst werkt?

 

[dirkdrent]

Ik zocht ook naar het zelfde bedankt voor de oplossing. Echter als je de code achter de knop plaatst, opent hij het formulier met de daarbij behorende ID. Maar wanneer ik op het geopende formulier naar een ander ID wil gaan dan doet hij dit niet. Dit is de code die ik heb geplaatst, moet hier nog wat in aangepast worden???


Private Sub naarstap2_Click()
On Error GoTo Err_naarstap2_Click


Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "FQ_Geintresseerden Stap 2"
Me.Dirty = False
DoCmd.OpenForm stDocName, , , "id = " & Id


Exit_naarstap2_Click:
Exit Sub

Err_naarstap2_Click:
MsgBox Err.Description
Resume Exit_naarstap2_Click

End Sub

 

[maartenf]

1 ding al opgelost met dit scriptje

Private Sub id_DblClick(Cancel As Integer)
DoCmd.OpenForm "form", , , "id = " & id
End Sub

waar id staat komt natuurlijk de naam van het veld waar de sleutel aan vast zit
en form is het formulier dat hij dan moet openen waar dat id in staat goed.

Het veld waar de sleutel aan is gegeven staat dan op numeriek maar als ik het dan naar Tekst zet dan werkt het script niet meer.
Hoe kan ik dat oplossen dat het ook met Tekst werkt?

als je met tekst werkt dan moeten er ' tussen
dan wordt het dus
DoCmd.OpenForm "form", , , "id = '" & id & "'"

 

[dirkdrent]

Ik heb het aangepast zoals is aangegeven (zie onderstaand) maar ik krijg de volgende melding als ik op de knop druk op het formulier: "De actie openform is geannuleerd"


Private Sub naarstap2_Click()
On Error GoTo Err_naarstap2_Click


Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "FQ_Geintresseerden Stap 2"
Me.Dirty = False
DoCmd.OpenForm stDocName, , , "id = '" & Id & "'"


Exit_naarstap2_Click:
Exit Sub

Err_naarstap2_Click:
MsgBox Err.Description
Resume Exit_naarstap2_Click

End Sub

 

[maartenf]

kun je een voorbeeldje zippen?

 

[dirkdrent]

Ik heb het voorbeeldje in de bijlage mee gestuurd. Hoop dat je er uit kunt komen.

 

[maartenf]

het gaat in jouw geval niet om een tekstveld.
dus de ' kunnen gewoon weer weg
wat je wel moet doen in de voorwaarde iets aanpassen

DoCmd.OpenForm stDocName, , , "id = '" & Id & "'"

moet worden

DoCmd.OpenForm stDocName, , , "[id] = " & me!Id

 

[dirkdrent]

Het werkt nog niet, zou je dit zelf in het voorbeeld willen veranderen (zie bijlage vorig bericht) dan kan ik er naar kijken want nu werkt ie niet.

 

[maartenf]

zie bijlage

zet je de vraag op afgehandeld?
b.v.d.

 

[dirkdrent]

Volgens de code klopt ie... echter kan ik nu niet in het formulier geintressseerden naar een volgend bedrijf navigeren in dit formulier (dit lukt ook niet als je het formulier bedrijf sluit) Is hier een oplossing voor?

 

[maartenf]

met de code
DoCmd.OpenForm stDocName, , , "[id] = " & me!Id
wordt het formulier Q_Geintresseerden Stap 2
geopend met een filter

als je het filter uit wilt zetten
maak dan een knopje
op het formulier Q_Geintresseerden Stap 2
en zet daar de volgende code achter
Me.FilterOn = False

dan zet je het filter weer uit

 

[dirkdrent]

Ok, top bedankt... zet de vraag op afgehandeld