Hei! Trenger litt hjelp med fremmedord i en vb-kode!
I Access fungerer den slik at jeg kan søke på fornavn, etternavn eller poststed. Skriver man F på fornavnboksen filtreres alle som begynner på F ut. Dobbeltklikker man på et navn i listen som kommer opp, går man direkte inn i persondata til denne personen.
Trenger forklaring til følgende: Dim vSearchString as String.
Me.Kundesøkliste.Requery ... Hva vil Requery her si?
Set rst = Forms!Kundeskjema.Recordset.Clone rst= ?? Hva vil Recordset.Clone si?
Dim db As DAO.Database
Dim rst As DAO.Recordset
Her er koden:
Private Sub Kundesøkliste_DblClick(Cancel As Integer)
On Error GoTo Err_Kundesøkliste_DblClick
Call Kommando16_Click
Exit_Kundesøkliste_DblClick:
Exit Sub
Err_Kundesøkliste_DblClick:
MsgBox Err.Description, , "Problem"
Resume Exit_Kundesøkliste_DblClick
End Sub
Private Sub Txtsøk_Change()
Dim vSearchString As String
vSearchString = Me.Txtsøk.Text
Me.Txtsøk2.Value = vSearchString
Me.Kundesøkliste.Requery
End Sub
Private Sub TxtSøk3_Change()
Dim vSearchString As String
vSearchString = Me.TxtSøk3.Text
Me.Txtsøk4.Value = vSearchString
Me.Kundesøkliste.Requery
End Sub
Private Sub Txtsøk5_Change()
Dim vSearchString As String
vSearchString = Me.Txtsøk5.Text
Me.Txtsøk6.Value = vSearchString
Me.Kundesøkliste.Requery
End Sub
Private Sub Kommando16_Click()
On Error GoTo Err_Kommando16_Click
Dim db As DAO.Database
Dim rst As DAO.Recordset
If IsNull(Me.Kundesøkliste) Or Me.Kundesøkliste = "" Then Exit Sub
DoCmd.OpenForm "Kundeskjema"
Set rst = Forms!Kundeskjema.Recordset.Clone
rst.FindFirst "KundeID = " & Me.Kundesøkliste
Forms!Kundeskjema.Bookmark = rst.Bookmark
DoCmd.Close acForm, Me.Name
Exit_Kommando16_Click:
Exit Sub
Err_Kommando16_Click:
MsgBox Err.Description
Resume Exit_Kommando16_Click
End Sub
I Access fungerer den slik at jeg kan søke på fornavn, etternavn eller poststed. Skriver man F på fornavnboksen filtreres alle som begynner på F ut. Dobbeltklikker man på et navn i listen som kommer opp, går man direkte inn i persondata til denne personen.
Trenger forklaring til følgende: Dim vSearchString as String.
Me.Kundesøkliste.Requery ... Hva vil Requery her si?
Set rst = Forms!Kundeskjema.Recordset.Clone rst= ?? Hva vil Recordset.Clone si?
Dim db As DAO.Database
Dim rst As DAO.Recordset
Her er koden:
Private Sub Kundesøkliste_DblClick(Cancel As Integer)
On Error GoTo Err_Kundesøkliste_DblClick
Call Kommando16_Click
Exit_Kundesøkliste_DblClick:
Exit Sub
Err_Kundesøkliste_DblClick:
MsgBox Err.Description, , "Problem"
Resume Exit_Kundesøkliste_DblClick
End Sub
Private Sub Txtsøk_Change()
Dim vSearchString As String
vSearchString = Me.Txtsøk.Text
Me.Txtsøk2.Value = vSearchString
Me.Kundesøkliste.Requery
End Sub
Private Sub TxtSøk3_Change()
Dim vSearchString As String
vSearchString = Me.TxtSøk3.Text
Me.Txtsøk4.Value = vSearchString
Me.Kundesøkliste.Requery
End Sub
Private Sub Txtsøk5_Change()
Dim vSearchString As String
vSearchString = Me.Txtsøk5.Text
Me.Txtsøk6.Value = vSearchString
Me.Kundesøkliste.Requery
End Sub
Private Sub Kommando16_Click()
On Error GoTo Err_Kommando16_Click
Dim db As DAO.Database
Dim rst As DAO.Recordset
If IsNull(Me.Kundesøkliste) Or Me.Kundesøkliste = "" Then Exit Sub
DoCmd.OpenForm "Kundeskjema"
Set rst = Forms!Kundeskjema.Recordset.Clone
rst.FindFirst "KundeID = " & Me.Kundesøkliste
Forms!Kundeskjema.Bookmark = rst.Bookmark
DoCmd.Close acForm, Me.Name
Exit_Kommando16_Click:
Exit Sub
Err_Kommando16_Click:
MsgBox Err.Description
Resume Exit_Kommando16_Click
End Sub