Code:
Private Sub Form_Load() Text9.value = DLookup("oleku_nimi", "[Arvete olekud]", "oleku_id= " & Me.oleku_id) End Sub
Private Sub Form_Load() Text9.value = DLookup("oleku_nimi", "[Arvete olekud]", "oleku_id= " & Me.oleku_id) End Sub
Private Sub Command11_Click() Dim strSQL As String Dim criteria As Integer Dim ete As String Dim row, place As Integer ete = Me!etenduse_nimi row = Me!Rida place = Me!number criteria = DLookup("[broneeringu_id]", "BroneeringudQ", " etenduse_nimi='" & ete & "' AND rida=" & row & " AND number=" & place & " AND Toimumisaeg="
Leave a comment: