[FORM] öğrenci harçlık dağıtım çizelgesi

sefersanli · 01-01-2017, 16:05

Ekde vermiş olduğum harçlık programını access de nasıl yapabilirim.

dsezgin · 02-01-2017, 04:59

(01-01-2017, 16:05)sefersanli demiş ki: Ekde vermiş olduğum harçlık programını access de nasıl yapabilirim.

Excelden Veri Alma konusunda ki VT raporlama yontemini gosterilmistir.

sefersanli · 18-01-2017, 17:51

Private Sub SilAl_Click()
Dim Cvp As Variant, SQLa As String, SrgYap As QueryDef, Frm As String
Frm = Me.Name
If Len(Dir(Me.strPath, vbNormal)) = 0 Then Cvp = MsgBox("Excel Dosyasi yok.", vbCritical + vbYesNo, "EXCEL DOSYASI"): Exit Sub
Cvp = MsgBox("Tum kayitlar SILINECEKTIR. Kabul mu?", vbCritical + vbYesNo, "OGRENCI TABLO KAYITLARI")
If Cvp <> 6 Then Exit Sub
Me.Caption = "Ogrenci Tablosu SILINIYOR"
CurrentDb.Execute "Delete ogrenci.* from ogrenci"
Me.Caption = "Ogrenci Excel dosyasini BAGLANIYOR."

DoCmd.TransferSpreadsheet acLink, IIf(SysCmd(acSysCmdAccessVer) = "15.0", acSpreadsheetTypeExcel12, IIf(SysCmd(acSysCmdAccessVer) = "12.0", acSpreadsheetTypeExcel9, acSpreadsheetTypeExcel8)), "ExcelOgrenci", Me.strPath, True

SQLa = "INSERT INTO ogrenci ( Sınıf, Ad_Soyad, Kimlik, Okul ) " & _
"SELECT ExcelOgrenci.Sınıf AS Expr1, ExcelOgrenci.Ad_Soyad AS Expr2, CLng(DCount(@*@,@ExcelOgrenci@,@format(Mid([Sınıf],1,Len([Sınıf])-2),'00') & Ad_Soyad<='@ & Format(Mid([Sınıf],1,Len([Sınıf])-2),@00@) & [Ad_Soyad] & @'@)) AS Kim, " & Me.kurum_adi.Column(0) & " As Okl " & _
" FROM ExcelOgrenci ORDER BY Format(Mid([Sınıf],1,Len([Sınıf])-2),@00@) & [Ad_Soyad]"
Me.Caption = "Gecici sorgusu OLUSTURULUYOR."
Set SrgYap = CurrentDb.CreateQueryDef("Gecici", Replace(SQLa, "@", Chr(34)))
DoCmd.SetWarnings False
Me.Caption = "Ogrenci Tablosuna VERI YUKENIYOR."
DoCmd.OpenQuery "Gecici", acViewNormal, acEdit
DoCmd.SetWarnings True
Me.Caption = "Gecici NESNELER SILINIYOR."
DoCmd.DeleteObject acQuery, "Gecici"
DoCmd.DeleteObject acTable, "ExcelOgrenci"
Me.Caption = "Ogrenci Sayisi Isleniyor."
Me.Toplam_ogrnc_say = DCount("*", "ogrenci")
CurrentDb.Execute "UPDATE ogrenci SET ogrenci.Harclik = " & Replace(Round(CDbl(Me.ogrencı_payı), 2), ",", ".")
Me.Caption = "ISLEM TAMAM"
End Sub
Kodda hata mesajıyla karşılaşıyorum. Her şey normal görünüyor lakin..

dsezgin · 18-01-2017, 19:34

Visual Basic
Private Sub strPath_DblClick(Cancel As Integer)
On Error GoTo hata
Dim dialog As FileDialog, SeciliNesne As Variant
Set dialog = Application.FileDialog(msoFileDialogFilePicker)
With dialog
    .AllowMultiSelect = False
    .Show
    For Each SeciliNesne In .SelectedItems
        Me.strPath = SeciliNesne
    Next SeciliNesne
End With
Me.SilAl.SetFocus
Exit Sub
hata:
Cancel = True
End Sub

Excelden veri al butonu prosedurunu degistirin.

sefersanli · 18-01-2017, 21:17

Elinize sağlık. Gerek görülürse paylaşabilirim. Programı

Benzer Konular...
Konu:		Yazar	Cevaplar:	Gösterim:	Son Mesaj
	öğrenci Takip (sadece Tablo)	accessbonkörü	1	280	05-01-2026, 20:40 Son Mesaj: dsezgin
	Vardiya çizelgesi	biLecikLi	1	310	27-11-2024, 00:33 Son Mesaj: dsezgin
	Öğrenci Takip Programı	genco051	20	23.270	14-10-2024, 11:13 Son Mesaj: mesuty@gmail.com
	[SORGU] Sınıfa Kayıtlı Aktif öğrenci Sayısını Bulmak Dcount Fonksiyonu	by_hayalci	2	487	24-08-2023, 08:38 Son Mesaj: by_hayalci
	Personel Devam Çizelgesi	by_hayalci	59	44.620	17-06-2022, 09:56 Son Mesaj: onur_can
	öğrenci Burs Da Birkaç Eksikler Var	17mart	4	647	02-09-2021, 16:13 Son Mesaj: 17mart
	[SORGU] öğrenci Burs	17mart	3	493	07-08-2021, 19:28 Son Mesaj: dsezgin
	öğrenci Burs Acemice örneğe Destek	17mart	3	566	30-07-2021, 10:05 Son Mesaj: onur_can

Oturum Aç




Beni Hatırla Şifremi Unuttum?

Access SQL