Skip to main content

AccessTr.neT


Etiketler
Yazar: temre - Cevaplar: 2 - İzleme: 1983
Ortak fonksiyonda değişken kullanma
Merhaba.
Örneğimde yapmak istediğim şudur:
7001SevkPlaniF formunu açalım.
11.06.2012 sütununun en altına (seçerek) bir veri girelim.
Hata verdi.
Olay yordamına baktığımızda aşağıdaki kod yazılı..
Private Sub List16_AfterUpdate()
x = 1
Me.MySub1
End Sub
Burada "Me.MySub1" yerine kod sayfasındaki "Sub MySub1()" içeriğini yazdığımda sorun kalkıyor. Ama benim istediğim "x=1" değişkeninin "Sub MySub1()" yazılımı içinde sayısal bir değer olarak algılanması. Nasıl yapılabilir, değerli yardı
Yazar: megasoftware - Cevaplar: 9 - İzleme: 2843
Fonksiyonda "Sıfır" Hatası
Ms-Dos ortamında VOL değerine baktığım da değer : 0223-6EC9 ancak fonksiyon başa sıfır geldiğinde 2236-6EC9 olarak değeri geri döndürüyor. Acaba nerede hata yapıyorum Img-cray
[code]Option Compare Database
Option Explicit
Private Declare Function GetVolumeSerialNumber Lib "kernel32" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long
Yazar: SeferŞANLI - Cevaplar: 5 - İzleme: 403
Fonksiyonda İki Kritere Göre Düzeltme
[code]Public Function NobetHaftaIciSonu(kimo, Zaman As Long, Hangi As String) As Integer
Dim Veri As New ADODB.Recordset, Sayac, Hft(1), Hane As Long
Veri.Open "SELECT TblNobet.* FROM TblNobet " & _
"WHERE (((TblNobet.OgretmenId)=" & kimo & ") AND ((Format(" & IIf(CLng(Right(Zaman, 2)) > 0, "[donem],'yyyymm'", "[donem],'yyyy'") & "))=" & IIf(CLng(Right(Zaman, 2)) > 0, Zaman, Left(Zaman, 4)) & ")) Order By [donem]", CurrentProject.Connection, adOpenKeyset, adLockReadOnly
If CLng(Right(Zaman,
Task