‘Ms access Rapor ve Kullanıcı Bilgileri Toplama Sorgusu ‘1-“dbo_RAPORUSER” Tablosu oluşturun. ‘2- Tabloda “tbl_alan1_user, tbl_alan2_rapor_adi”, tbl_giris_tarihi alanları oluşturun. ‘3-Aşağıdaki kodu form_open’ a ekleyiniz. Private Sub Form_Open(Cancel As Integer) Dim bSQL As String bSQL = “INSERT INTO dbo_RAPORUSER (tbl_alan1_user, tbl_alan2_rapor_adi, tbl_giris_tarihi) ” & vbCrLf &
'Ms access Rapor ve Kullanıcı Bilgileri Toplama Sorgusu '1-"dbo_RAPORUSER" Tablosu oluşturun. '2- Tabloda "tbl_alan1_user, tbl_alan2_rapor_adi", tbl_giris_tarihi alanları oluşturun. '3-Aşağıdaki kodu form_open' a ekleyiniz. PrivateDlookup Kullanımı 2
‘ Dlookup Typical Use ‘ Numerical values. Replace “number” with the number to use. variable = DLookup(“[FieldName]”, “TableName”, “[Criteria] = number”) ‘ Strings. ‘ Numerical values. Replace “string” with the string to use. variable = DLookup(“[FieldName]”, “TableName”, “[Criteria]= ‘string'”) ‘ Dates.
' Dlookup Typical Use ' Numerical values. Replace "number" with the number to use. variable = DLookup("[FieldName]", "TableName", "[Criteria] = number") ' Strings.Ocx Dosya Register etme
Ocx Dosya Register etme Locate the OCX file you want to register. Go directly to your file if you know where it’s stored on your computer, or use the Windows search feature. Search in Windows XP by clicking on the Start menu, then clicking on “Search.” When the Search Companion dialog box appears, click on “All Files and Folders.” Type in your search criteria and click on “Search.” Search in Windows 7 by clicking on the Start menu (Windows
Ocx Dosya Register etme Locate the OCX file you want to register. Go directly to your file if you know where it's stored on yourMs access fOSUserName x64 ve x86 çalıştırma
fOSUserName() office X64 AND X86 versionda çalıştırma Option Compare Database Option Explicit ‘Private Declare Function apiGetUserName Lib “advapi32.dll” Alias “GetUserNameA” (ByVal lpBuffer As String, nSize As Long) As Long #If VBA7 Then Private Declare PtrSafe Function apiGetUserName Lib “advapi32.dll” Alias _ “GetUserNameA” (ByVal lpBuffer As String, nSize As Long) As Long #Else Private Declare Function
fOSUserName() office X64 AND X86 versionda çalıştırma Option Compare Database Option Explicit 'Private Declare Function apiGetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String,Ms Access Macroyu geçikmeli çalıştırma
‘Macroyu geçikmeli çalıştırma Public Function Macrosureli() Application.Wait (Now + TimeValue(“0:00:05”)) End Function 6 Görüntülendi.
'Macroyu geçikmeli çalıştırma Public Function Macrosureli() Application.Wait (Now + TimeValue("0:00:05")) End FunctionNikah fıkra
Nikah Bir nikahta imzalar atıldıktan sonra herkes gelin ve damadı tebrik için ayağa kalkar. İş bu ya tam da bu sırada elektrikler kesilir… Herkes “aaa” diye tepki verirken damadın annesi düşüncelerini hayli sesli bir şekilde dile getirir: – “Daha ilk dakikada oğlumun hayatı karardı” 10 Görüntülendi.
Nikah Bir nikahta imzalar atıldıktan sonra herkes gelin ve damadı tebrik için ayağa kalkar. İş bu ya tam da bu sırada elektrikler kesilir... HerkesAslan Kurt Sohbeti fıkra
Aslan Kurt Sohbeti Aslan, kurda seslendi: – “Hey kurt! Gel sohbet edelim.” – “Olmaz. Beni yersin sonra.” – “Yemem. Bak inanmazsan pençelerimi, ağzımı bağlayayım.” Aslan, pençelerini, ağzını bağlayınca kurt heyecanla yaklaştı. – “İyi ama dedi, aslan… Neden bu kadar seviniyorsun ki?” Kurt cevap verdi: – “Neden olacak? İlk defa bir aslan yiyeceğim de…” 6
Aslan Kurt Sohbeti Aslan, kurda seslendi: - "Hey kurt! Gel sohbet edelim." - "Olmaz. Beni yersin sonra." - "Yemem. Bak inanmazsan pençelerimi, ağzımı bağlayayım."