convert yes no data type to 0 1 ms access code example

Example: convert yes no data type to 0 1 ms access

Sub modUpsizeTests_CheckBooleansForMissingDefaults()
' Search through all tables with Yes/No fields
' Add any missing defaults

    Dim db As DAO.Database
    Dim tdef As DAO.TableDef
    Dim fld As DAO.Field
    Set db = CurrentDb
    For Each tdef In db.TableDefs
	If Left(tdef.Name, 4) <> "MSys" And _
	    Left(tdef.Name, 4) <> "USys" And _
	    Left(tdef.Name, 4) <> "~TMP" Then
	    For Each fld In tdef.Fields
		If fld.Type = dbBoolean Then
		    If fld.DefaultValue = "" Then
			Debug.Print tdef.Name, fld.Name
			' Set default to false
			fld.DefaultValue = "0"
		    End If
		End If
	    Next
	End If
    Next
End Sub