Skip to main content

AccessTr.neT


Yazar: berduş
08/01/2020, 11:51
Yorum 41
ufak bir çalışma ama geliştirilebilir.
aktarılacak tabloyu
excel dosyasını ve Excel sayfasını seçip butona basınca
isterseniz yeni tablo olarak isterseniz de  var olan tabloya aktarıyor
Not: maalesef 2 eksiği var
1 - Excelden alan aktaramıyorsunuz
2 - sayfa isminde boşluk varsa sorun çıkıyor
dilerim işinize yarar
.rar Excel Dosyasını iceri Aktarma.rar (Dosya Boyutu: 22,53 KB | İndirme Sayısı: 58)

bu sürümde
1 - tabloya alan da aktarabiliyorsunuz
2 - sayfa isminde boşluk varsa sorunsuz bir şekilde aktarıyor
3 - mümkün olduğunca hata önleme kodları eklendi
4 - dosya seçme iptalindeki hata giderildi
Not: Benim denemelerimde sorun çıkmadı ama garantisi yok)
.rar Excel içeri Aktarma_hy4.rar (Dosya Boyutu: 26,22 KB | İndirme Sayısı: 72)

5 - tablo eklemek yada bağlama özelliği
.rar Excel içeri Aktarma_hy5.rar (Dosya Boyutu: 34,3 KB | İndirme Sayısı: 58)

19 Şubat 2020 tarihli güncelleme: https://accesstr.net/attachment.php?aid=31520
Yazar: accessman
07/01/2020, 17:17
Yorum 3
xxxxxxxxxxxxxx
Yazar: accessman
06/01/2020, 18:01
Yorum Yok
Public Function GetHexColor(strHex As String) As Long
    'converts Hex string to long number, for colors
    'the leading # is optional

    'example usage
    'Me.iSupplier.BackColor = HexColor("FCA951")
    'Me.iSupplier.BackColor = HexColor("#FCA951")

    'the reason for this function is to programmatically use the
    'Hex colors generated by the color picker.
    'The trick is, you need to reverse the first and last hex of the
    'R G B combination and convert to Long
    'so that if the color picker gives you this color #FCA951
    'to set this in code, we need to return CLng(&H51A9FC)
   
    Dim strColor As String
    Dim strR As String
    Dim strG As String
    Dim strB As String
   
    'strip the leading # if it exists
    If Left(strHex, 1) = "#" Then
        strHex = Right(strHex, Len(strHex) - 1)
    End If
   
    'reverse the first two and last two hex numbers of the R G B values
    strR = Left(strHex, 2)
    strG = Mid(strHex, 3, 2)
    strB = Right(strHex, 2)
    strColor = strB & strG & strR
    GetHexColor = CLng("&H" & strColor)
End Function
Yazar: adnan
02/01/2020, 22:44
Yorum 19
Merhaba,

Bir arkadaşımın ihtiyacı için çeşitli programlardan faydalanarak ve takıldığım yerlerde soru sorarak yapmış olduğum basit bir apartman/site programıdır. Çok daha iyi alternatifi bu sitede ve İnternet var ama, belki ihtiyacı olan arkadaşların işine yarar düşüncesiyle ekte sunuyorum.
Saygılarımla
.rar Apartman Yönetim.rar (Dosya Boyutu: 582,32 KB | İndirme Sayısı: 239)

Hoşgeldin, Ziyaretçi

Sitemizden yararlanabilmek için kayıt olmalısınız.

Forum İstatistikleri

Toplam Üyeler 142.275
Son Üye hasankaba
Toplam Konular 25.177
Toplam Yorumlar 182.325

Kimler Çevrimiçi

Şu anda 70 aktif kullanıcı var. AdsenseBot, AhrefsBot, Bing Bot, Facebook Spider, Google Bot, PetalBot, SemrushBot, Trendiction, majestic12, C*e*l*o*y*c*e
(1 Üye - 60 Ziyaretçi)

Son Yazılanlar

Mutfak Takip

Son Yorum: metınaycıcek Dün, 22:39
Yorum 3 Okunma 108

Daimi Arama programı

Son Yorum: atoykan 16/12/2025, 22:35
Yorum 23 Okunma 12.850

İsteğe Göre Açılan Alanla...

Son Yorum: xosmaner 12/12/2025, 13:00
Yorum 2 Okunma 130

Access Html Gantt Chart

Son Yorum: eyildiz52 10/12/2025, 11:25
Yorum 2 Okunma 165

ad soyad sorgulama

Son Yorum: saim33 09/12/2025, 23:36
Yorum 13 Okunma 18.729

Site Ve Apartman Yönetim ...

Son Yorum: tekinuygun 09/12/2025, 16:33
Yorum 23 Okunma 8.166
Task