Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
30/12/2010 14:44
Konu Sahibi
saygincilli
Yorumlar
18
Okunma
7102
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy

saygincilli

Hesap Aktif Değil
Kullanici Avatari
Aktivasyon Bekleyen
S.... Ç....
92
21/09/2010
Bursa
Ofis 2007
30/05/2015,00:43
Çözüldü 
Merhaba arkadaşlar bir konuda size danışmak istiyorum karar veremedim nasıl yapıcağım konusunda
öncelikle iki tane kayıt edilmesi gereken veri var
1-Makinelerin çalıştığı saati molaları işlenen malı falan yazdığımız bir kağıt var bunu bilgisayar ortamına aktarıyoruz
2-makine verilerini vardiya bilgi formu adı altında o vardiyada yapılan işlerin hepsini bi kağıda toplamız oluyoruz .örneklerini ekledim

bunlar için ikitane Excel dosyamız var ayrı ayrı giriyoruz tek tek alt alta sıralanıo işte sonra raporlamaya çalışıyoruz binlerce kayıt oluyo başa çıkamıyoruz anlıycağınız hem kayıt işlemini sorunsuz ve kolay bi şekilde yapmak hemde raporda sıkıntı çekmemek için Access form hazırlamak istiyorum.
başlangıç aşamasında veritabanını oluşturdum formdüzeni kurdum ama kafam durdu ilerletemiyorum bu yüzden yardımlarınızı bekliyorum.teşekürler
office2007 olarak kayıtlı 2003 olarak kaydedemedim


Ek Dosyalar
.zip   VardiyaBilgileri.zip (Dosya Boyutu: 75,46 KB / İndirme Sayısı: 50)
.xlsx   Makine_Veri_Girişi_Formu.xlsx (Dosya Boyutu: 13,7 KB / İndirme Sayısı: 39)
.xlsx   Vardiya_bilgi.xlsx (Dosya Boyutu: 13,94 KB / İndirme Sayısı: 36)
Cevapla

saygincilli

Hesap Aktif Değil
Kullanici Avatari
Aktivasyon Bekleyen
S.... Ç....
92
21/09/2010
Bursa
Ofis 2007
30/05/2015,00:43
Çözüldü 
kimse cevap vermedi heralde bilgisi olan yok bu konuda
neyse ben bişiler buldum kod satırı biraz uzun oluyo kısaltamadım ama şu şekilde olabilir fikri var aklımda hiç yoksa

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
If IsNull(Me.baslama) Or Me.baslama = "" Then
Else
    Me.MakineID = Me.MakineAdi1
    Me.HatID = Me.MakineHatti
    Me.CesitID = Me.MakineCesit
    Me.CalısanOperator = Me.MakineOperator
    Me.YardimciCalisan = Me.Yardimci
    Me.BaslamaSaati = Me.baslama
    Me.DurusSaati = Me.durus1
    Me.DurusSebebi = Me.durussebeb1
    Me.Aciklama = Me.aciklama1
    DoCmd.GoToRecord , , acNewRec
End If
If IsNull(Me.baslama2) Or Me.baslama2 = "" Then
Else
    Me.MakineID = Me.MakineAdi1
    Me.HatID = Me.MakineHatti
    Me.CesitID = Me.MakineCesit
    Me.CalısanOperator = Me.MakineOperator
    Me.YardimciCalisan = Me.Yardimci
    Me.BaslamaSaati = Me.baslama2
    Me.DurusSaati = Me.durus2
    Me.DurusSebebi = Me.durussebeb2
    Me.Aciklama = Me.aciklama2
    DoCmd.GoToRecord , , acNewRec
End If


Cevapla

Hayri16

Aktif Üye
Kullanici Avatari
Aktif Üye
1.010
12/11/2009
294
Bursa
Ofis 2007
08/09/2017,22:49
Çözüldü 
Veri girilen text alanlarının adını döngüye uyacak bir ad yap. Örneğin metin1, metin2 gibi, sonra da bu son rakama göre bir döngü kurarak boşluk kontrolü yaptır.


Hayri16, 12-11-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla

Hayri16

Aktif Üye
Kullanici Avatari
Aktif Üye
1.010
12/11/2009
294
Bursa
Ofis 2007
08/09/2017,22:49
Çözüldü 
Şöyle bir şey deneyebilirsin;

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
dim say as integer
dim kayitdurumu as boolean  
for say=1 to 36
if metin & say <>null or metin&say<>"" then
kayitdurumu=true
else 
kayitdurumu=false
end if
next
if kayitdurumu=true then Kaydet
else 
kaydetme
end if


Hayri16, 12-11-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla

saygincilli

Hesap Aktif Değil
Kullanici Avatari
Aktivasyon Bekleyen
S.... Ç....
92
21/09/2010
Bursa
Ofis 2007
30/05/2015,00:43
Çözüldü 
bunu örnekteki alanlara nasıl uyguluycaz anlıyamadım orasını vaktin varsa uzun şekilde yazarmısın kodları


Cevapla

Hayri16

Aktif Üye
Kullanici Avatari
Aktif Üye
1.010
12/11/2009
294
Bursa
Ofis 2007
08/09/2017,22:49
Çözüldü 
MakinaID veya MakinaAdi1 bunların ikisini de tablodan mı getiriyorsun?
Kullanıcının veri girdiği alan hangisi?


Hayri16, 12-11-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Çözüldü IT Envanter programı için ön çalışma mengok 4 2.389 12/09/2017, 15:01 team_quash
Çözüldü Envanter - Demirbaş Kayıt Programı [Bilgi İşlem Departmanı İçin] zlatan.ibo 3 2.461 09/09/2017, 14:34 anlezgn
Çözüldü Form Üzerinden Tablodaki Satış Koduna Ait Verileri İskonta Oranına Göre Güncelle husem 2 151 30/08/2017, 15:51 husem
Çözüldü Alt Formu Kaydetmeden Kapatma (butonla) december 6 423 12/08/2017, 17:11 ozanakkaya
Çözüldü 3 Günlük Veri Getirme ertans 4 230 03/08/2017, 11:46 ertans

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
Forum use Krzysztof "Supryk" Supryczynski addons.