[Ms access Rapor ve Kullanıcı Bilgileri Toplama Sorgusu]

‘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.  Private
Devamını Oku

Ms 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,
Devamını Oku

Pc ip alma Modülü

Function GetirIP() Const strComputer As String = “.” ‘ Computer name. Dot means local computer Dim objWMIService, IPConfigSet, IPConfig, IPAddress, I Dim strIPAddress As String ‘ Connect to the WMI service Set objWMIService = GetObject(“winmgmts:” _ & “{impersonationLevel=impersonate}!\\” & strComputer & “\root\cimv2”) ‘ Get all TCP/IP-enabled network adapters Set IPConfigSet = objWMIService.ExecQuery

Function GetirIP() Const strComputer As String = "." ' Computer name. Dot means local computer Dim objWMIService, IPConfigSet, IPConfig, IPAddress, I Dim strIPAddress As
Devamını Oku

Barkode Code128 Vba Fontsuz Code

‘Barkode Code128 Vba Fontsuz Code ‘ Barcode 128-B Generator Public Function Barcode_128(Ctrl As Control, rpt As Report) On Error GoTo ErrorTrap_Barcode_128 Dim CharNumber As Variant, CharData As Variant, CharBarData As Variant, Nratio As Variant, Nbar As Variant Dim barcodestr As String, BarCode As Control, Barchar As String, Barcolor As Long, Parts As Integer, J As Integer Dim tsum As Integer, lop As Integer, s As Integer, checksum As Integer, P As Integer, barwidth As

'Barkode Code128 Vba Fontsuz Code ' Barcode 128-B Generator Public Function Barcode_128(Ctrl As Control, rpt As Report) On Error GoTo ErrorTrap_Barcode_128 Dim CharNumber As
Devamını Oku

Windows Profile

@echo %COMPUTERNAME% @echo %USERNAME% @echo %USERDOMAIN% @echo %LOGONSERVER% @echo %USERPROFILE% @echo %ALLUSERSPROFILE% @echo %PUBLIC% @echo %APPDATA% @echo %ProgramData% @echo %COMMONPROGRAMFILES% @echo %COMMONPROGRAMFILES(x86)% @echo %COMSPEC% @echo %HOMEDRIVE% @echo %HOMEPATH% @echo %LOCALAPPDATA% @echo %LOGONSERVER% @echo %PATHEXT% @echo %PROGRAMFILES% @echo %PROGRAMFILES(X86)% @echo %PROMPT% @echo %SystemDrive% @echo %SystemRoot% @echo %TEMP% and%TMP% @echo %USERPROFILE% @echo

@echo %COMPUTERNAME% @echo %USERNAME% @echo %USERDOMAIN% @echo %LOGONSERVER% @echo %USERPROFILE% @echo %ALLUSERSPROFILE% @echo %PUBLIC% @echo %APPDATA% @echo %ProgramData% @echo %COMMONPROGRAMFILES% @echo %COMMONPROGRAMFILES(x86)% @echo %COMSPEC%
Devamını Oku

Access 6500 den büyük kayıtların export edilmesi

Access 6500 den büyük kayıtların export edilmesi Private Sub Command50_Click() Dim dosya, sorgu As String dosya = “C:\projects\burhanb.xlsx” sorgu = “query_EXCEL” DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, sorgu, dosya, True End Sub 17 Görüntülendi.

Access 6500 den büyük kayıtların export edilmesi Private Sub Command50_Click() Dim dosya, sorgu As String dosya = "C:\projects\burhanb.xlsx" sorgu = "query_EXCEL" DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml,
Devamını Oku
Toplam 4 sayfa, 1. sayfa gösteriliyor.1234