Skip to main content

AccessTr.neT


Etiketler
Yazar: ozmly - Cevaplar: 9 - İzleme: 4547
Butona Basıldığında Kodun Değişmesi
Formumda kullandığım Çıkış butonunun kodları aşağıdaki gibidir. Formda aynı zamanda bir kaydet butonu var. Sorunum şu; kaydet butonuna basıldıktan sonra bu komutun sadece DoCmd.Close şeklinde çalışmasını istiyorum. Bu haliyle yaptığım kaydı siliyor. Kaydete tıklanmadıysa aşağıdaki kodun, tıklandı ise DoCmd.Close ın çalışması lazım.


Private Sub btn_çıkış1_Click()
On Error Resume Next
If IsNull(txtAraçDN) Then
DoCmd.Close
Exit Sub
End If

Dim mesaj
mesaj = MsgBo
Yazar: volkan1 - Cevaplar: 16 - İzleme: 5091
İki kodun birleştirimesi
[vb]Private Sub a_Click()
Dim rs As DAO.Recordset
Dim db As Database
Dim strSQL As String
Dim DK As Long
Dim SA As Long
Set db = CurrentDb()
strSQL = "SELECT * TBL_SEYIR_SURESI"
Set rs = db.OpenRecordset(strSQL)
Me.b = 0
DK = 0
SA = 0
If rs.EOF = True Then GoTo 90
rs.MoveFirst
Do Until rs.EOF
SA = SA + Nz(Left(rs!TOPLAM_SEYIR_SURESI, 2), 0): DK = DK + Nz(Mid(rs!TOPLAM_SEYIR_SURESI, 4, 2), 0)
100
rs.MoveNext
Loop
Yazar: mehmetb84 - Cevaplar: 8 - İzleme: 4473
access yazılan kodun satıra sığımaması
MErhaba arkadaşlar,
yöndendirmelerinizle daha önce çevçeveyle süzme işlemini ve arama yaptığım liste kutusunu süzme işlemini başka bir veritabanı için kullanmıştım.Bu veritabanıma bunu uyarlamak istedim fakat tablo ve alan isimleri dha auzun olduğu için kod satıra sığımadı.Ve Access satırın bittiği yerde kodu otomatik olarak kapatıyor 2. satırda kalan kodu başka bir kod olarak algılıyor.
Yardımcı olabilirseniz sevinirim.
Tşkler

veritabanı son soruya göre güncellendi.!
Yazar: alioguzcan - Cevaplar: 5 - İzleme: 2286
ilk metin kutusuna yazdığım kodun, ikinci metin kutusunda açıklaması
Merhaba arkadaşlar;
Bir tablom var, tablonun ilk sütununda tedavinin kodu yazıyor, ikinci sütununda tedavini açıklaması.
Formda iki metin kutusu oluşturup; ilk metin kutusuna yazdığım kodun, ikinci metin kutusunda açıklamasını nasıl gösterebilirim acaba?

Ekte veritabanını gönderdim.

Ek Dosyalar
 aaa.zip(40.65 KB)
Yazar: kokotuna - Cevaplar: 2 - İzleme: 3038
iç içe form da kodun çalışmaması
Merhaba arkadaşlar... iç içe geçen bir form oluşturdum ancak normalde çalışan kod iç içe form oluşturduğumda bulunamadı hatası vermeye başladı kodu aşağıda yazıyorum bu kodda formun yerini nasıl belirtmem gerekiyor? bu kodda sismik sökülebilirlik ve sismik iki tabaka formları GİRİŞ adı altındaki başka bir formun içinde yer alıyor ve kod sanırım bu yeri bulamıyor ?koddaki bu bölüme; [Forms]![SİSMİKİKİTABAKA]![TABAKANO] GİRİŞ formunun içinde olduğunu nasıl gösterttirebilirim?

[vb]With DoCmd
.
Yazar: kokotuna - Cevaplar: 7 - İzleme: 3890
normalde çalışan kodun iç içe form da çalışmaması
Merhaba arkadaşlar... Yapmaya çalıştığım programda tüm formları birleştirip tek bir form altında toplamaya çalışıyorum ancak kodlar formların yerini bulamıyor şöyleki;
program formunda ki terzaghi bölümünde seçimlerden ilkini seçip kaydete bastığımda otomatik olarak değerleri yatakkatsayısı formuna atması gerekirken hata veriyor... Acaba sorun nedir?

Database1111.rar
Yazar: alican60 - Cevaplar: 2 - İzleme: 2993
Sayı bulan kodun kısaltılması
Çeşitli meyvelerin sayısını ve büyüklüğüne göre sayısını bulduğum aşağıdaki kod uzayıp gitmektedir.Bu kodu tüm meyvelerde kullanabileceğim şekilde nasıl kısaltabilirmiyiz.[/code]
[code]Sub al()

Set Baglan = CreateObject("adodb.connection")

Baglan.Open "provider=microsoft.jet.oledb.4.0;data source=" & ThisWorkbook.Path & "\HAL.mdb"
Set rs = CreateObject("adodb.recordset")
Set rs2 = CreateObject("adodb.recordset")


Call baglanti
rs.Open "select count([CINS]),count([BOYUT]) from [SEBZ
Yazar: edacan19 - Cevaplar: 1 - İzleme: 1486
Kodun güncelleştirme sonrasında çalışmaması
Arkadaşlar merhaba


If [KVM] < GV20 Then GVORAN = 15
If [KVM] > GV20 And [KVM] < GV27 Then GVORAN = 20
If ([KVM] + [GV MATRAHI]) > GV20 And [KVM] < GV20 Then GVORAN = 15 + [Metin359]
If [KVM] > GV27 Then GVORAN = 27
If ([KVM] + [GV MATRAHI]) > GV27 And [KVM] < GV27 Then GVORAN = 20 + [Metin361]

yukarıdaki kodun kv matrahı alanının ve gv matrahı alanının değişmesi/güncellenmesi sonrasında çalışmasını istiyorum.

kodu kv matrahı alanının ve gv matrahı alanının güncelleştirme sonrasınd
Yazar: Uğur ŞİRİN - Cevaplar: 6 - İzleme: 3191
Bu Kodun Anlamı Nedir? Uygulamadan Bunu Sildiğimde Bana Ne Zararı Olabilir ?
Merhaba arkadaşlar. Arzuhalmatik isminde bir uygulama yazıyorum. Şimdi kodlamayı incelerken sanki iki satır gereksiz bir yer buldum. Gereksiz kodları temizleyip sade bir altyapı istiyorum. Size danışmak istiyorum yardımcı olur musunuz? 

Aşağıdaki kod tüm uygulamaya ait bir kod.

[vb]Option Explicit On
Public Class Arzuhalmatik
   Const SW_SHOWNORMAL = 1


   Private Declare Function ShellExecute Lib "shell32.dll" _
   Alias "ShellExecuteA" _
   (ByVal hwnd As Long, _
   ByVal l
Yazar: sercann - Cevaplar: 8 - İzleme: 1806
Sql Kodun Düzenlenmesi Hakkında
INSERT INTO Comments (Bug, User,  CTimestamp, Comment, History) VALUES([ID], [TempVars]![CurrentUserID],Now(),"Status changed to " & [Status], 1)


Yukarıdaki kod Kullanıcının durumu (3) resolved olarak değiştirdiğinde aşağıdaki notu düşmektedir

status changed to (3) Resolved by anonymous at 28.01.2019 22:25:50

 ben yukarıdaki kodu düzenleyerek 

anonymous (yani Kullanıcı) durumu (3) resolved olarak değiştirdi at 28.01.2019 22:25:50 

şeklinde nasıl düzenleyebilirim
teşekkürler
Task