- 3d Max Uygulamalar 5
- 3d Studio Max 11
- Açık Kaynak İşletim Sistemleri 18
- Adobe Illustrator 7
- Ajax 11
- Akıllı Tahta 1
- Algoritma 8
- Amerikan Emperyalizmi 1
- Android 5
- Apache Web Sunucusu 19
- App Inventor 2
- Arduino 12
- Asp 1
- Asp.net 1
- Autocad Dersleri 11
- Autocad Uygulamaları 16
- Bilgisayar Donanımları 54
- Bilgisayara Giriş 44
- Bilgisayara Giriş Uygulamaları 7
- Bilim 8
- Bilim Insanları 2
- Bilişim Teknolojileri 14
- Blockchain Teknolojileri 13
- Bootstrap 13
- C Dersleri 32
- C Programlama örnekleri 3
- C# Dersleri 37
- C++ Dersleri 12
- Cgı Nedir? 1
- Css 59
- Css Ugulama Örnekleri 26
- Dns 1
- Dreamweaver 175
- Dreamweaver Uygulamaları 18
- E- Ticaret 5
- Eğitici Hikayeler 22
- Elektronik 6
- Elektronik Posta (email) 12
- Firefox 37
- Fireworks 1
- Fireworks Uygulaması 3
- Flash Actionscript 10
- Flash Dersleri 8
- Flash Örnek Uygulamalar 7
- Freecad 5
- Gerekli Programlar 3
- Google Docs 22
- Google Teknolojileri 12
- Html Dersleri 59
- Hz. Muhammed ( Sav) 1
- Ileri Excel 2
- Infographics 1
- Internet 14
- İngilizce 5
- Java Applet Örnekleri 81
- Java Applet Temelleri 74
- Java Application Örnekleri 10
- Java Netbeans Ide 15
- Java Temel Örnekler 46
- Java Temelleri 159
- Javascript 100
- Javascript Uygulama 26
- Jquery 11
- Jquery Örnekleri 11
- Kişisel Gelişim 8
- Libre Office Dersleri 3
- Linux Bash Script 5
- Linux Işletim Sistemi Os 105
- Linux Server 53
- Linux Web Filter 27
- Milli Eğitim Bakanlığı 7
- Ms Excel Dersleri 8
- Ms Excel Uygulamaları 23
- Ms Word Dersleri 350
- Ms Word Uygulamaları 43
- Mssql Veri Tabanı 5
- Mysql Veri Tabanı 10
- Network 27
- Online Ücretsiz Yazılımlar 1
- Ödev Konuları 3
- Pascal 1
- Photoshop Dersleri 462
- Photoshop Uygulama Örnekleri 1
- Photoshop Uygulamaları 59
- Php Dersleri 93
- Php Uygulamaları 33
- Phpmyadmin 2
- Postgresql Veri Tabanı 63
- Power Point 2
- Programlama Dilleri 4
- Proje Hazırlama 15
- Python 9
- Qbasic 19
- Raspberry Pi 2
- React Native 14
- Regular Expressions 1
- Robotik Kodlama 2
- Scratch İle Kodlama Dersleri 84
- Seo 6
- Solidworks 2
- Teknik Servis 9
- Teknoloji 4
- Teknoloji Tasarım Uygulamaları 16
- Thinkercat 17
- Tkinter 21
- Ücretsiz Uygulamalar 1
- Veri Tabanı 78
- Web Tasarım 18
- Web Uygulamaları 1
- Windows Os 15
- Windows Server 3
- Xml 5
- Yapay Zeka 1
- Yazılım Dünyası 22
- Amerika 1
- Animasyon Örnekleri 1
- Arduino 1
- Atom Seviyesi 1
- Bakış Açısı 1
- Bilgisayar Donanımları 34
- Bilim Insanlarının Hayatı 1
- Bilişim Teknolojileri 27
- Biyoteknoloji 2
- Bootstrap 2
- Dart Dersleri 2
- Dijital Dönüşüm 1
- Doğal Enerji 1
- Eğitim Sistemi 1
- Eğitim Teknolojileri 1
- Elektronik 3
- Evren 3
- Excel Dersleri 5
- Freecad 2
- Geleceğin Araçları 2
- Geri Dönüşüm 1
- Hayvan Sevgisi 1
- Illustrator 2
- Ingilice Dersleri 1
- Insan Yetenekleri 2
- Işletim Sistemi 3
- İslam 5
- Kişisel Gelişim 2
- Marşlar 3
- Mekanik 1
- Microsoft Visual Studio 5
- Microsoft Word Dersleri 2
- Mssql Server 2
- Müslüman Mucitler 3
- Network 1
- Photoshop 12
- Php Dersleri 1
- Programlama 4
- Psikoloji 2
- Python Dersleri 4
- Robotlar 7
- Savunma Sanatları 1
- Sketchup Nedir? 7
- Şaşırtıcı Bilim 9
- Tarih 1
- Tasarımlar 9
- Teknoloji 8
- Temel Fotograf 1
- Vücud Geliştirme 3
- Web Teknolojileri 2
- Windows Sorunları 1
- Yazılım Der 1
- Yazılım Dünyası 2
- 2. Sınıf Öğrencileri İçin Sunular 1
- 5. Sınıf Öğrencileri Için Sunular 13
- 8. Sınıf Öğrencileri İçin Sunular 23
- Belirli Gün Ve Haftalar 1
- Bilgisayar Donanımları 5
- Bilgisayar Programlama 2
- Bilgisayar Yazılım 2
- Bilişim Teknolojileri Ve Yazılım Temel Bilgisayar 64
- Biyografiler 2
- Biyoloji 2
- Değerler Eğitimi 4
- Eba Elektronik Bilişim Ağı 5
- Eğitim-Öğretim Sunuları 3
- Felsefe 2
- İslam 3
- Kelime İşlemci 1
- Kişisel Gelişim 4
- Kodlama, Robotic 4
- Ortak Eğitim Proje Sunuları. 2
- Problem Çözme Ve Algoritmalar 3
- Proje Nedir? Nasıl Yapılır? 1
- Rehberlik 16
- Sağlık 3
- Savaşlar 1
- Scratch 1
- Seminerler 3
- Sınav Kaygısı 2
- Sosyal Bilgiler 1
- Sosyal Bilgiler 1
- Tarih 1
- Ulaşım Araçları 1
- Verimli Ders Çalışma 1
- Web Araçları 0
- Windows İşletim Sistemi 1
- Yarışmalar 0
- 5. Sınıf Matematik Testleri 7
- Açık Kaynak İşletim Sistemleri 5
- Açık Kaynak Office 2
- Ağ Temelleri 4
- Autocad 1
- Bilgisayara Giriş 18
- Bilişim Teknik Resimi 1
- Bilişim Teknolojilerinin Temelleri 10
- Cografya 2
- Css-javascript 4
- Flash 1
- Google Teknolojileri 1
- Görsel Programlama 1
- Html 1
- Illustrator 1
- Işletmede Beceri Eğitimi 1
- Java 5
- Javascript 1
- Libre Office 1
- Mesleki Gelişim 5
- Mobil Uygulamalar 1
- Ms Office Word 11
- Php 2
- Programlama Temelleri 5
- Python 1
- Temel Elektronik 1
- Temel Fotograçılık 1
- Veri Tabanı 4
- Web Programlama 1
- Web Tasarım 4
2-EXCEL VBA İLE SQL NETSİS DATABASE VERİTABANI İŞLEMLERİ KULLANARAK PROGRAM YAPMA (ADODB)
Excel VBA UserForm ile Netsis'de Stok Kart Açılması
Bu yazımızda da, daha önce oluşturduğumuz bağlantı alt yapısıyla hazırladığımız Stok Kart Formu üzerinde bulunan butonlarımızdan STOK KARTI AÇ ile Netsis’de Stok Kart açma işlemini pratik ve hızlı bir şekilde sağlamaya çalışalım.
İlk olarak Stok Kodu konrol metotumuzu Modül üzerinde aşağıdaki gibi bir kodlama ile sağlayalım.
Daha Sonra Form üzerinde STOK KARTI AÇ Butonuna tıklayarak CommanButton1_Click Event’ine (olayına) aşağıdaki gibi kodlarımızı yazalım.
Private Sub CommandButton1_Click()
Call StokKartVarMi 'Bu metot ile açılacak yeni Stok Kodunun Sistemde olup olmadığı kontrolü yapılır.
If Sheets("Parametre").Range("J20").Value = 1 Then
MsgBox ("Stok Kodu Tanımlı!! Yeniden Kart açamazsınız!!"), vbCritical
Exit Sub
Else
If TextBox2.Value = "" Or TextBox10.Value = "" Or TextBox11.Value = "" Or TextBox15.Value = "" Or TextBox16.Value = "" Then
MsgBox ("Sarı Renkli Alanlar Boş Geçilemez!"), vbCritical
Exit Sub
Else
sor = MsgBox("Yeni Stok Kartı açılacak, Emin misiniz?", vbYesNo)
If sor = vbNo Then
Exit Sub
Else
On Error GoTo Hata
End If
With frm_StokKart
.TextBox4.Value = "18"
.TextBox5.Value = "18"
.TextBox12.Value = "0"
.TextBox13.Value = "0"
.ComboBox1.Value = "AD"
Dim stokkodu, stokadi, ureticikd, kod3, kod4, kod5, grpkd, ingisim, olcubr, kod1, kod2, u As String
Dim KDV As Integer
KDV = .TextBox4.Value
stokkodu = .TextBox1.Value
stokadi = .TextBox2.Value
ureticikd = .TextBox10.Value
kod1 = .TextBox12.Value
kod2 = .TextBox13.Value
kod3 = .TextBox14.Value
kod4 = .TextBox15.Value
kod5 = .TextBox16.Value
grpkd = .TextBox11.Value
ingisim = .TextBox3.Value
olcubr = .ComboBox1.Value
u = Sheets("Parametre").Range("E12").Value
Call SqlBaglantiAc
strSQL = "INSERT INTO TBLSTSABIT (MUH_DETAYKODU,SUBE_KODU,ISLETME_KODU,STOK_KODU,STOK_ADI,SATIS_FIAT1,SATIS_FIAT2,SATIS_FIAT3,SATIS_FIAT4,ALIS_FIAT1,KDV_ORANI,ALIS_KDV_KODU,GRUP_KODU,URETICI_KODU,KOD_4,KOD_5,KOD_3,OLCU_BR1,BARKOD1,BARKOD2,BARKOD3,KOD_1,KOD_2)"
strSQL = strSQL + " VALUES ('1','-1','1','" & stokkodu & "', dbo.TURKCE(N'" & stokadi & "')"
strSQL = strSQL + ",0,0,0,0,0,'" & KDV & "','" & KDV & "','" & grpkd & "','" & ureticikd & "',dbo.TURKCE(N'" & kod4 & "'),dbo.TURKCE(N'" & kod5 & "'),Null,'" & olcubr & "',Null,Null,Null,'" & kod1 & "','" & kod2 & "')"
strSQL = strSQL + " INSERT INTO TBLSTSABITEK (STOK_KODU,TUR,KAYITTARIHI,KAYITYAPANKUL,INGISIM,KULL1S,KULL2S,KULL3S,KULL4S,KULL5S, KULL6S, KULL7S, KULL8S, KULL1N, KULL2N, KULL3N, KULL4N, KULL5N, KULL6N, KULL7N, KULL8N)"
strSQL = strSQL + " VALUES ('" & stokkodu & "','D'," & "GETDATE()" & ",'" & u & "','" & ingisim & "',Null,Null,Null,Null,Null,0,0,0,0,0,0,0,0,Null,Null,Null)"
'Sheets("kontrol").Range("A37").Value = strSQL ---> (Bu kontrol ile SQL sorgu cümlesi alınarak SQL cümle yapısında hata kontrolü yapılabilir)--
rs.Open strSQL, cn
Sheets("kontrol").Range("A35").CopyFromRecordset rs
Call SqlBaglantiKapat
End With
Hata:
MsgBox Err.Description
End If
MsgBox ("Yeni Stok Kartı Açılmıştır.." & stokkodu & " - " & stokadi & ""), vbInformation
End If
End Sub
Bu şekilde kodlarımızı yazdıktan sonra Debug işlemi için Üst menüden Compile VBAProject seçeneği ile kod hatalarını veya referans eksikliklerini tespit ederek düzeltmeliyiz.
Şimdi de bir deneme stok kodu açmak için formumuzu çalıştıralım. Aşağıdaki gibi bir sonuç almanız için ayrıca dikkat edilmesi gereken bazı zorunlu alanların kullanıcı tarafından ilgili TextBox (Zemini Sarı olan alanlar) alanlarına yazılmasıdır. Aksi takdirde zaten kodlarımızda detaylara dikkat ederseniz bu konuda da bir kontrol yapıldığı ve kullanıcıya uyarı yapacağı görülebilir.
STOK KART AÇ butonuna tıklanınca aşağıdaki gibi bir uyarı mesajı ile onay alıyoruz.
Aşağıdaki gibi bir mesaj gelecek bu mesaja takılmayalım. Tamam diyerek geçiyoruz.
Son olarak Stok Kartımızın açıldığına dair mesajı alıyoruz ve kontrolümüzü Stok Kart Formu üzerinden ve SQL databasemiz üzerinden kontrolünü yapıyoruz.
Yorum görüşlerinizi yazabilirsiniz..
Başka bir makalede görüşmek üzere..
Adnan Bulut
7,493 Okunma Henüz yorum yapılmamış 30/11/2019 12:09:12 04/12/2019 10:17:56