Access - vba kalıp takip prog geliştirme yardımı
Tarih
13/10/2009 09:05
Konu Sahibi
s.balci
Yorumlar
7
Okunma
3791
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
s.balci
Üye
Kullanici Avatari
Üye
6
1
13/10/2009
0
Bolu
Ofis 2003
16/10/2009,10:27
Çözüldü 
Arkadaşlar öncelikle merhabalar foruma yeni katıldım konuyu yanlış kategoriye açmışsam kusura bakmayın.

Şirket için Access ve Vba nın birleşiminden kalıp takip programı yazmaya çalışıyorum. Tıkandığım yerler oldu prgramın şu andaki hali ektedir.

Programda giriş formunda paraloa alanına 1,2,3,4,5,6 ve admin olarak girdiğinde izin vermektedir.

Paraloa eğer 1 e eşitse vardiya amiri alanlarına hükmedecek.
Paraloa eğer 2 e eşitse kalıphane alanlarına hükmedecek.
Paraloa eğer 3 e eşitse teknik müdür alanlarına hükmedecek.
Paraloa eğer 4 e eşitse onay müdür alanlarına hükmedecek.
Paraloa eğer 5 e eşitse üretim alanlarına hükmedecek.
Paraloa eğer 6 e eşitse kalite alanlarına hükmedecek.
enson admin olarak girdiğimde full kontrol.

Şimdi yapmak istediklerim şöyle;

Vardiya amiri hata ve diğer alanları doldurmadan diğerleri işlem yapamıyacak. Ve ayrıca vardiya amiri en son ne girdiyse o gözükecek, gözükmesi gereken yerler de örneğin paralo 2 ise.

Kaydet butonunda ayrı bir sıkıntım var kayıt işlemini yapmıyor gibime geliyor.

Son olarakda Vardiya amiri için söylüyorum;
VARDİYA AMİRİ KALIP ADInı girdiğimiz anda o anki zamanı otomatik olarak
V. A. GİRDİĞİ TARİH alanına atayacak ve bu alan disable olacak.

Arkadaşlar bu konu hakkında acil bilgiye yardıma ihtiyaçım vardır. İyi çalışmalar hepinize.
Son olarakda Vardiya amiri için söylüyorum;
VARDİYA AMİRİ KALIP ADInı girdiğimiz anda o anki zamanı otomatik olarak
V. A. GİRDİĞİ TARİH alanına atayacak ve bu alan disable olacak.

Arkadaşlar burayı hallettim kodu ekledim. Diğerlerinide buna bağlı olarak düzenleyip yapabildiğim kadarıyla en son halini atmaya çalışacağım ama sizden de bu konuda yardımlarınızı bekliyorum.

Private Sub v_amiri_kalip_adi_AfterUpdate()
v_amiri_tarih = Date + Now
v_amiri_tarih.Enabled = False

End Sub


Ek Dosyalar
.rar   kalip.rar (Dosya Boyutu: 86,67 KB / İndirme Sayısı: 55)
s.balci, 13-10-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla

s.balci
Üye
Kullanici Avatari
Üye
6
1
13/10/2009
0
Bolu
Ofis 2003
16/10/2009,10:27
Çözüldü 
Sponsor Reklam
Arkadaşlar son hali ekte lakin yapamadığım işlemler aşağıda.

Vardiya amiri kayıt etti çıktı. sırada kalıphane var kalıphane şifresi yani 2 ile sisteme girğimizde vardiya amirinin girdiği verileri karşımıza çıkarsın, enable true olsun. daha sonra 3 girdiğimizde onayı veren kişi neye onay vereceğiniz bilmek ister ve bunun için son girilen veya onayı boş olana girmesi lazım zaten onun onayından geçmeyen kalıp işleme alınmayacak. Eksikliklerede bir bakarsanız sevinirim. İyi çalışmalar.


Ek Dosyalar
.rar   kalip2.rar (Dosya Boyutu: 101,57 KB / İndirme Sayısı: 21)
s.balci, 13-10-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla

s.balci
Üye
Kullanici Avatari
Üye
6
1
13/10/2009
0
Bolu
Ofis 2003
16/10/2009,10:27
Çözüldü 
Arkadaşlar acil yardıma ihtiyaçım var. Konu hakkında görüşlerinizi bekliyorum
s.balci, 13-10-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla

Bilgisayarcı
Atçalı
Kullanici Avatari
Onursal
657
29/01/2008
410
Antalya
Ofis 2003
01/11/2011,15:17
Çözüldü 
Sponsor Reklam
Hocam aynı soruyu bi sürü farklı yerde görüyorum. Yapsam bile nasıl birleştirmeyi düşünüyorsunuz?Img-grin
Bana işe yarayan bir müdür göster,sana dünyayı yerinden oynatayım.
                                                                                        Descartes


Cevapla

s.balci
Üye
Kullanici Avatari
Üye
6
1
13/10/2009
0
Bolu
Ofis 2003
16/10/2009,10:27
Çözüldü 
En azından mantık olarak yardımı dokunsa benim için kardır aynı zamanda kod bloğu olarak da almam gayet kolay olacaktır yeter ki sistem isteklerimi karşılasın. Açıkcası yardım alabileceğim tüm yerlere yazıyorum.

Buda son hali yardımlarını bekliyorum.


Ek Dosyalar
.rar   KALIP TAKİP.rar (Dosya Boyutu: 112,48 KB / İndirme Sayısı: 38)
s.balci, 13-10-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla

s.balci
Üye
Kullanici Avatari
Üye
6
1
13/10/2009
0
Bolu
Ofis 2003
16/10/2009,10:27
Çözüldü 
Sponsor Reklam
TextBox9 a girilen değere göre arama yapıp liste elemanına aradığım değeri görüntülemek istiyorum ve mümkünse bu değeri excelle aktarmak istiyorum.

resim

Private Sub TextBox9_Updated(Code As Integer)
Dim txtSearchString As Variant
Dim strSQL As String

txtSearchString = Me![TextBox9]

If Not IsNull(Me![TextBox9]) Then

strSQL = "SELECT * FROM kalip "

strSQL = strSQL & "WHERE WHERE ((kalip.kalip_no)Like '" & txtSearchString & "*') "

End If

Me!Liste0.RowSource = strSQL
End Sub
s.balci, 13-10-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  Araç Takip kayıt sorunu IceMan7 10 626 18/05/2017, 19:12 ozanakkaya
  Access 2003 De Yapılan Dosyanın Access 2010 Da Çalıştırılması Kullanıcı Güvenlik Prob keskin78 9 169 14/05/2017, 14:54 keskin78
Çözüldü uye takip programı gorgulu75 8 1.999 27/04/2017, 11:51 Cem280
  Wep Access Dosyasını Masaüstü Access Dosyasına Çevirme next 7 270 02/04/2017, 23:36 next
  Formda Buton Yardımı İle Resim Çekme Ve Rapora Ekleme murat dikme 7 240 11/03/2017, 15:56 murat dikme


Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
DMCA.com Protection Status