Kayıt Tarihi: 29.05.2018
Toplam 1 konu açtı.
Toplam 5 yorum yaptı.
Toplam
0
puanı bulunmakta.
Mevcut Office Sürümü:
Office 2010 TR,
Beğeniler: 0 / 0
22-06-2018, 00:24
(En son düzenleme: 22-06-2018, 00:24 muratxx61.)
10 excel dosyasını Access veri tabanına başarı ile tablo olarak oluşturdum. Bu veriler her bir makinaya ait çalışma saatlerini içeriyor ve günlük olarak değişiyor. Sorun ise farklı isimlerde oluşan çalışma saatlerini oluşturacağım querryde problem çıkıyor. Örnek olarak 1. makine çalışma saati 1. tabloda olsun , 2. makina ha keza 2. tabloda..... bunların hepsini bir formda görebileceğim bir sorgu bir türlü oluşturamıyorum.
Biryerde mantık hatası yapıyorum fakat anlayamadım. Bu konuda görüşleriniz nelerdir.
(excel verileri saatlik çalışma saatlerini kümülatif olarak veriyor bir yerde hour/date, diğer sütün ise kümülatif çalışma saati)[/code]
Kayıt Tarihi: 24.03.2013
Toplam 27 konu açtı.
Toplam 9.023 yorum yaptı.
Toplam
1.068
puanı bulunmakta.
Mevcut Office Sürümü:
Office 2013,
Beğeniler: 52 / 232
Access'i Excel gibi dusunmeyin.
Tek tabloda
1. Sutun...MakineID
2. Sutun...Tarih
3. Sutun...CalismaSaati
olarak yapilandirin, yil ve ay bazinda makine toplam calisma saatleri ozet bilgisi capraz sorgu ile elde edilebilir.
Kayıt Tarihi: 29.05.2018
Toplam 1 konu açtı.
Toplam 5 yorum yaptı.
Toplam
0
puanı bulunmakta.
Mevcut Office Sürümü:
Office 2010 TR,
Beğeniler: 0 / 0
Verdiğini cevap için teşşekkür ederim. Aşağıda yazacağım VBA kodu ile sorunu çözdüm. Fakat hala anlayamadığım bir olay aşağıdaki kod VBA çalışıyor fakat Access querryde çalıştırıp değerleri güncellemiyor. VBA ile durumu bypass yaparak sorunu çözdüm. Aşağıdaki koda bakarak Access içersinde bunun yapılması mümkünmüdür bilen arkadaşlar kontrol edebilir mi? Access alınan hata mesajı "operation must use updatable querry"
Sub CreateCode()
Dim DB As DAO.Database
Dim qdf As QueryDef
Dim RS, RS1 As DAO.Recordset
Dim strSQL As String
Dim resultSQL As String
Dim intI As Integer
Dim LASTID
' On Error GoTo ErrorHandler
Set DB = CurrentDb
strSQL = " SELECT LAST(bb33_101_s) AS LASTOPERATIONHOUR " _
& " FROM 33_BB_101_H ; "
Set RS = DB.OpenRecordset(strSQL)
RS.MoveFirst
resultSQL = RS!LASTOPERATIONHOUR
MsgBox resultSQL
strSQL = "UPDATE T_TAGNAME " _
& "Set T_TAGNAME.RUNNINGHOURS = ' " & resultSQL & " '" _
& " WHERE T_TAGNAME.TAGNAME='33BB0101';"
DB.Execute (strSQL)
MsgBox strSQL
' strSQL = "UPDATE T_TAGNAME Set RUNNINGHOURS = '& RS &' WHERE TAGNAME='33BB0101';"
'Set RS1 = DB.OpenRecordset(strSQL, dbOpenDynaset)
'On Error GoTo ErrorHandler
RS.Close
DB.Close
End Sub
Kayıt Tarihi: 24.03.2013
Toplam 27 konu açtı.
Toplam 9.023 yorum yaptı.
Toplam
1.068
puanı bulunmakta.
Mevcut Office Sürümü:
Office 2013,
Beğeniler: 52 / 232
RUNNINGHOURS alani veri tipi sayi ise kesme isaretleri kaldirilmali ve VBA ortamina resultSQL dusen deger ondalik ise guncelleme esnasinda virgul noktaya(replace) ile cevrilmeli.
Guncelleme sorusu ile kod olmadan yapilabilir. Ornek VT konuya ekleyebilirsiniz.