VBA Site contains VBA code to create macros in WORD EXCEL ACCESS OUTLOOK

lock and enable records

Private Sub Form_Current()

If Not Me.NewRecord

Then

Me.Id.Locked = False

Me.Id.Enabled = True

Me.ContractNumber.Locked = True

Me.ContractNumber.Enabled = False

Else Me.Id.Locked = False

Me.Id.Enabled = True

Me.ContractNumber.Locked = False

Me.ContractNumber.Enabled = True

End If

End Sub

Update

strSQL = "UPDATE TableName SET TableName.TableFieldName= 'NewValue' WHERE (((TableName.TableFieldName) Is Null Or (TableName.TableFieldName)=''));"

DoCmd.RunSQL strSQL

Delete

strSQLDayReportDelete = "DELETE TableName.* " & _

"FROM TableName" & _

"WHERE (((format(TableName.FieldName,'YYYY-MM-DD'))=#" & Date & "#));"

Insert

strSQLHistoryE = "INSERT INTO TableName1( FieldName1, FieldName2, FieldData, FieldUserName)" & _

"SELECT TableName2.FiledName1, TableName2.FiledName1, #" & Now() & "#, '" & UserName & "' " & _

"FROM TableName2;"

Drogi użytkowniku!

W trosce o komfort korzystania z naszego serwisu chcemy dostarczać Ci coraz lepsze usługi. By móc to robić prosimy, abyś wyraził zgodę na dopasowanie treści marketingowych do Twoich zachowań w serwisie. Zgoda ta pozwoli nam częściowo finansować rozwój świadczonych usług.

Pamiętaj, że dbamy o Twoją prywatność. Nie zwiększamy zakresu naszych uprawnień bez Twojej zgody. Zadbamy również o bezpieczeństwo Twoich danych. Wyrażoną zgodę możesz cofnąć w każdej chwili.

Tak, zgadzam się na nadanie mi "cookie" i korzystanie z danych przez Administratora Serwisu i jego partnerów w celu dopasowania treści do moich potrzeb. Przeczytałem(am) Politykę prywatności. Rozumiem ją i akceptuję.

Tak, zgadzam się na przetwarzanie moich danych osobowych przez Administratora Serwisu i jego partnerów w celu personalizowania wyświetlanych mi reklam i dostosowania do mnie prezentowanych treści marketingowych. Przeczytałem(am) Politykę prywatności. Rozumiem ją i akceptuję.

Wyrażenie powyższych zgód jest dobrowolne i możesz je w dowolnym momencie wycofać poprzez opcję: "Twoje zgody", dostępnej w prawym, dolnym rogu strony lub poprzez usunięcie "cookies" w swojej przeglądarce dla powyżej strony, z tym, że wycofanie zgody nie będzie miało wpływu na zgodność z prawem przetwarzania na podstawie zgody, przed jej wycofaniem.