Find Record

Dim VARa As String
VARa = Me.DIT FELT
DoCmd.FindRecord VARa, acEntire, False, , True, acCurrent, True

Hej Mugs

Jeg er ikke særlig dygtig til VB. Kan du skærer det lidt mere ud i pap?

Hvad sker der i linje 2?

Variablen VARa sættes = formularens felt. Du skal blot ændre ordene DIT FELT til navnet på dit eget felt i formularen.

Men hvor i koden beder vi den om at åbne resultatet i en form?

Har dette nu:
Option Compare Database

Private Sub Text25_Enter()

Dim searchString As String
searchString = Form_DatMenu.Text25

DoCmd.FindRecord searchString, acEntire, False, , True, acCurrent, True

End Sub

Vil du åbne en form2 og søge efter den post du står har i form1?
så skal den se således ud:

DoCmd.OpenForm "Form2"
Forms!Form2!Felt1.SetFocus
DoCmd.FindRecord Me!Felt1

Hvod Felt1 er navnet på det felt der indeholder en unik værdi for din post.

Jeg har det her nu:
Option Compare Database

Private Sub Text25_Enter()

Dim searchString As String
searchString = Form_DatMenu.Text25

DoCmd.OpenForm "DatFindPC"
Forms!DatFindPC!Serial.SetFocus
DoCmd.FindRecord Me!searchString

End Sub

Det virker ikke helt - den kan ikke finde searchString. Det er det variable som indeholder værdien fra felt1 på form1.

Me!searchString

Refererer til et feltnavn i formularen. Prøv:

DoCmd.OpenForm "DatFindPC"
Forms!DatFindPC!Serial.SetFocus
DoCmd.FindRecord Me!Text25

Det var bedre:)

Må jeg lige stille et par spørgsmål mere?
- Kan jeg sætte den til at close form1 hvis den finder noget
- Kan jeg lave en tilpasset besked hvis den ikke finder noget

Hvis den ikke finder noget så åbner den nemlig bare form2:)

Prøv denne:

If DCount("*", "Forespørgsel2", "[Felt1]= " & Me.Felt1 & "") = 0 Then
MsgBox "der er ingen poster."
Exit Sub
Else:
DoCmd.OpenForm "Form2"
Forms!Form2!Felt1.SetFocus
DoCmd.FindRecord Me!Felt1
End If

Forespørgsel2 leverer data til Form2, og Felt1 er dit numeriske kriterie.

Super hjælp!! Mange tak mugs

Selv tak.