Private Sub create_table_Click()
Dim Desiro1 As Database
Dim Avag As TableDef
Dim IDAktion As Field
'Dim Vagon As Field
Dim Indx As Index
Dim IndxField As Field
Set Desiro1 = CurrentDb
Set Avag = CurrentDb.CreateTableDef("Avag")

Set IDAktion = Avag.CreateField("IDAktion", 1, 150)
Avag.Fields.Append IDAktion

'CurrentDb.TableDefs.Append Avag

CurrentDb.TableDefs.Refresh


Set Desiro1 = Nothing
End Sub

If V1 <> 3 Then
strFilter = strFilter & _
              IIf(FlagOrAnd, " OR ", " AND ") & " [Vagon A] " & _
              Choose(V1, "<>", "=") Like "NO"
End If
 
If V2 <> 3 Then
strFilter = strFilter & _
              IIf(FlagOrAnd, " OR ", " AND ") & " [Vagon C] " & _
              Choose(V2, "<>", "=") Like "NO"
End If
 
If V3 <> 3 Then
strFilter = strFilter & _
              IIf(FlagOrAnd, " OR ", " AND ") & " [Vagon D] " & _
              Choose(V3, "<>", "=") Like "NO"
End If
 
If V4 <> 3 Then
strFilter = strFilter & _
              IIf(FlagOrAnd, " OR ", " AND ") & " [Vagon E] " & _
              Choose(V4, "<>", "=") Like "NO"
End If
 
If V5 <> 3 Then
strFilter = strFilter & _
              IIf(FlagOrAnd, " OR ", " AND ") & " [Vagon B] " & _
              Choose(V5, "<>", "=") Like "NO"
End If