luissiscone 15/7/2016, 19:36
Sim;
Dim rst As Recordset
Set rst = Me.Form.Recordset
rst.MoveFirst
Do While Not rst.EOF
With rst
'------------------------------------------------------------------
If Me.NOME = "MACRO 1" Then
DoCmd.RunSQL "CREATE TABLE Student(ST_ID int PRIMARY KEY, Name CHAR(255),Course CHAR(255), Marks INTEGER, Grade CHAR(255), Phone INTEGER, Present YESNO);"
End If
'------------------------------------------------------------------
.MoveNext
End With
Loop
Set rst = Nothing
MsgBox "Macros executadas com sucesso", vbInformation, "Execução de macros"