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
Are there any code examples left?
New code examples in category Other
-
Other 2023-03-27 22:50:10 how to select the whole line in vscode with keyboard shortcut
-
Other 2022-03-27 22:45:24 income of a web developer
-
Other 2022-03-27 22:35:01 \pyrcc_main.py: File does not exist 'resources.qrc'
-
Other 2022-03-27 22:30:45 rick roll embed code
-
Other 2022-03-27 22:20:08 Circuit_04_Potentiometer
-
Other 2022-03-27 22:20:05 iterative power
-
Other 2022-03-27 22:15:11 flutter run all
-
Other 2022-03-27 22:10:05 when is karlson release
-
Other 2022-03-27 22:10:02 wp .htaccess example
-
Other 2022-03-27 22:00:08 bash pause in file read line by line