Hej! Svar1, Nog lättast att skipa Data två och helt enkelt öppna ett recordset Reposition eventet.synkronisera 2 st "data"
Fråga nr 1:
Jag har ett formulär där jag har 2 st "data". Låt oss kalla dem för data1 och data2.
Det finns även 2 textfält som är länkade till data1, dessa hämtar tal från en tabell i en accessdatabas.
ett tredje textfält är kopplat till data2 och hämtar en summa från en fråga i samma databas. (som summerar talen som de 2 andra textfälten hämtar).
Hur kan man koppla ihop så att när jag hoppar till nästa post med data1 så skall data2 göra detsamma? (Gå till nästa post alltså, och hämta den summan för denna post)
data2 är inte synlig och skall inte vara det heller eftersom man bara ska hoppa till nästa post med data1.
Fråga nr 2:
Hur skriver man kod som gör att data1 går till nästa post?
Om jag vill ha en funktion som gör detta automatiskt i vissa lägen.
/MagnusSv: synkronisera 2 st "data"
Exempel:
Private Sub Data1_Reposition()
Dim db As Database
Dim rsTemp As Recordset
Set db = Data1.Database
Set rsTemp = db.OpenRecordset("SELECT Count(*) AS [Count] FROM Categories", dbOpenSnapshot)
If rsTemp.BOF And rsTemp.EOF Then
Text3.Text = "0"
Else
If IsNull(rsTemp("Count")) Then
Text3.Text = "0"
Else
Text3.Text = rsTemp("Count")
End If
End If
End Sub
Svar2, Du använder movenext på recordset egenskapen.
Exempel:
Private Sub cmdMoveNext_Click()
On Error GoTo cmdMoveNext_Click_Err
Data1.Recordset.MoveNext
cmdMoveNext_Click_Exit:
Exit Sub
cmdMoveNext_Click_Err:
MsgBox Err.Description, vbCritical
Resume cmdMoveNext_Click_Exit
End Sub