AccessTr.neT

Tam Versiyon: Çalışanlar kısmını raporlama
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2 3
Evet bu şekilde daha kolay oldu aynı formda Dloop yapmıştım ama alt forma nasıl gönderebilecegimi bulamadım..
Şimdi hocam Alt form da ürün bilgileri çıkıyor ya işte onu satış yapan kişi ye nasıl baglarız .Ordakileri alıp plasiyer in satış hanesi için oluşturdugumuz toploya kaydetsin .
Sayın ekselanss ve sayın C*E*L*O*Y*C*E;

Katkı ve paylaşımınız için teşekkürler..
Sana yardımmımız dokundu ise ne mutlu bize assenucler..

Celoyce hocam Hızlı satış formunda cok fazla dao kullanılmış bende anlamadım kodlardan . eklediginiz Kaydeden kısmı taploya kayıt olmuyor sadece satış ekranında gözüküyor o kadar..
Bu kaydetme işini nasıl yapacaz yardımcı olabilecek arkadaş var mı ??
Kod:
Private Sub Form_Current()
Me.P1.SetFocus
End Sub

Private Sub Komut283_Click()
On Error GoTo tr

With DoCmd
.SetWarnings False
.RunSQL "delete from Gecici"
.SetWarnings True
End With
[İsim].Requery
tr:
    DoCmd.Close
    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = ChrW(104) & ChrW(305) & ChrW(122) & ChrW(108) & ChrW(305) & ChrW(115) & ChrW(97) & ChrW(116) & ChrW(305) & ChrW(351)
    DoCmd.OpenForm stDocName, , , stLinkCriteri
End Sub
Private Sub Komut38_Click()
On Error Resume Next
If IsNull(T1) Or IsNull(T4) Or IsNull(T5) Then
Me.T1.SetFocus
MsgBox "BU ÜRÜN STOKLARDA YOK BARKOTUNU KONTROL EDİN..!! BARKOD BULUNAMADI", vbCritical, "Ekrem ÇEVİK..."
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand (acCmdDeleteRecord)
Exit Sub
End If
Dim Rc As DAO.recordset
Set Rc = CurrentDb.OpenRecordset("YCari")
        Rc.AddNew
        Rc![isim] = Me.Metin311
        Rc![AlTar] = Me.T2
        Rc![MalinCinsi] = Me.T4
        Rc![Miktar] = Me.Adet
        Rc![PesBirFiy] = Me.T6
        Rc![Tutari] = (Me.T6 - ((Me.T6 / 100) * Me.iskonto)) * Me.Adet
        Rc![OdenenTL] = Me.T7
        Rc![SatSek] = "S.Ö"
        Rc![iskonto] = Me.iskonto
        Rc.Update
        
  GeciciKayit
        Set Rc = Nothing

Me.TOPP = Me.TOPP + Me.T7
Me.Metin12 = Me.T4 & vbCrLf & Me.Metin12
Me.Metin144 = Me.T5 & vbCrLf & Me.Metin144
Me.Metin145 = (Me.T6 - ((Me.T6 / 100) * Me.iskonto)) * Me.Adet & " TL. " & vbCrLf & Me.Metin145
Me.Metin153 = Me.T1 & vbCrLf & Me.Metin153
Me.Metin155 = Me.T3 & vbCrLf & Me.Metin155
Me.Metin293 = Me.Adet & vbCrLf & Me.Metin293
Me.Metin297 = Me.T5 & "TL." & vbCrLf & Me.Metin297
Me.s1 = Me.s1 & " TL " & vbCrLf & Me.s1


Me.T1.SetFocus
Me.T1 = ""
Me.T3 = ""
Me.T4 = ""
Me.T5 = 1
Me.T6 = 0
Me.T8 = ""
Me.T9 = ""
Me.T1.SetFocus
Me.Metin153.SetFocus
Me.T1.SetFocus
End Sub

Sub GeciciKayit()
Dim Rc As DAO.recordset
Set Rc = CurrentDb.OpenRecordset("Gecici")
        Rc.AddNew
        Rc![isim] = Me.Metin311
        Rc![AlTar] = Me.T2
        Rc![MalinCinsi] = Me.T4
        Rc![Miktar] = Me.Adet
        Rc![PesBirFiy] = Me.T6
        Rc![Tutari] = (Me.T6 - ((Me.T6 / 100) * Me.iskonto)) * Me.Adet
        Rc![OdenenTL] = Me.T7
        Rc![SatSek] = "S.Ö"
        Rc![iskonto] = Me.iskonto
        Rc.Update
        Me.Gecici_alt_formu.Requery
End Sub


Private Sub P1_AfterUpdate()
P2 = DLookup("[ADISOYADI]", "CALISANLAR", "[CALNO] = P1")
End Sub

Private Sub T1_AfterUpdate()
Me.T6 = DLookup("SatisFiyati", "Urunler", "UrunKodu='" & Me.T1 & "'")
Me.z1 = DLookup("GirenAd", "Urunler", "UrunKodu='" & Me.T1 & "'")
Me.u1 = DLookup("MalinCinsi", "Urunler", "UrunKodu='" & Me.T1 & "'")
Me.s1 = DLookup("SatisFiyati", "Urunler", "UrunKodu='" & Me.T1 & "'")
Me.T4 = DLookup("MalinCinsi", "Urunler", "UrunKodu='" & Me.T1 & "'")
Me.T6 = DLookup("SatisFiyati", "Urunler", "UrunKodu='" & Me.T1 & "'")
Me.TOPP = Nz([T5] * Nz([T6]))
Komut38_Click
Me.T1.SetFocus
Me.YCari_alt_formu3.Requery
Me.T1.SetFocus
End Sub

Private Sub Komut260_Click()


Me.T9 = ""
Me.T8 = ""
Me.T1 = ""
Me.T3 = ""
Me.T4 = ""
Me.T5 = 1
Me.T6 = 0
Me.Metin153 = ""
Me.Metin155 = ""
Me.Metin12 = ""
Me.Metin144 = ""
Me.Metin145 = ""
Me.TOPP = 0
Me.T1.SetFocus
'Me.YCari_alt_formu3.SetFocus
End Sub

Private Sub Komut16_Click()
On Error GoTo Err_Komut16_Click


    DoCmd.Close

Exit_Komut16_Click:
    Exit Sub

Err_Komut16_Click:
    MsgBox err.Description
    Resume Exit_Komut16_Click
    
End Sub
Private Sub Komut249_Click()
On Error GoTo Err_Komut249_Click


    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
    DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70

Exit_Komut249_Click:
    Exit Sub

Err_Komut249_Click:
    MsgBox err.Description
    Resume Exit_Komut249_Click
    
End Sub
Private Sub Komut257_Click()
On Error GoTo Err_Komut257_Click


    DoCmd.DoMenuItem acFormBar, acRecordsMenu, 2, , acMenuVer70

Exit_Komut257_Click:
    Exit Sub

Err_Komut257_Click:
    MsgBox err.Description
    Resume Exit_Komut257_Click
    
End Sub
Private Sub Komut258_Click()
On Error GoTo Err_Komut258_Click


    DoCmd.DoMenuItem acFormBar, acRecordsMenu, 2, , acMenuVer70

Exit_Komut258_Click:
    Exit Sub

Err_Komut258_Click:
    MsgBox err.Description
    Resume Exit_Komut258_Click
    
End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyEscape Then
DoCmd.Close
End If
End Sub

Private Sub Komut276_Click()
On Error GoTo Err_Komut276_Click

    Dim stAppName As String

    stAppName = "C:\WINDOWS\system32\calc.exe"
    Call Shell(stAppName, 1)

Exit_Komut276_Click:
    Exit Sub

Err_Komut276_Click:
    MsgBox err.Description
    Resume Exit_Komut276_Click
    
End Sub


Private Sub SİL_Click()
Me.T1.SetFocus
End Sub


Private Sub Komut287_Click()
On Error GoTo Err_Komut287_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = ChrW(104) & ChrW(305) & ChrW(122) & ChrW(108) & ChrW(305) & ChrW(115) & ChrW(97) & ChrW(116) & ChrW(305) & ChrW(351)
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Komut287_Click:
    Exit Sub

Err_Komut287_Click:
    MsgBox err.Description
    Resume Exit_Komut287_Click
    
End Sub

Private Sub Komut288_Click()
On Error GoTo Err_Komut288_Click


    DoCmd.Close

Exit_Komut288_Click:
    Exit Sub

Err_Komut288_Click:
    MsgBox err.Description
    Resume Exit_Komut288_Click
    
End Sub
Private Sub Komut320_Click()
On Error GoTo Err_Komut320_Click


    DoCmd.Close

Exit_Komut320_Click:
    Exit Sub

Err_Komut320_Click:
    MsgBox err.Description
    Resume Exit_Komut320_Click
    
End Sub


Private Sub Komut310_Click()
On Error GoTo Err_Komut310_Click

    Dim stDocName As String

    stDocName = "Gecici Sorgu"
    DoCmd.OpenReport stDocName, acPreview

Exit_Komut310_Click:
    Exit Sub

Err_Komut310_Click:
    MsgBox err.Description
    Resume Exit_Komut310_Click
    
End Sub

Private Sub T1_Exit(Cancel As Integer)
DoCmd.GoToRecord , , acNewRec
T1.SetFocus
End Sub

Private Sub T1_LostFocus()
DoCmd.GoToRecord , , acNewRec
T1.SetFocus
End Sub
örneğinizi inceledim, fakat hangi verinin hangi tabloya kaydedilmesini istediğinizi malesef anlayamadım. biraz daha açıklayabilirmisiniz,
"Genel" isimli modüle

Kod:
Global UKullaniciAdi, UKullaniciYetki As String

kodunu ekledim.

"frmşifre" formundaki kulanıcı açılan kutusunun güncelleşme sonrasında olayına

Kod:
UKullaniciAdi = Me.kullanıcı.Column(1)
UKullaniciYetki = Me.kullanıcı.Column(3)
kodlarını ekledim.


anamenü formundaki Metin28 deki varsayılan değeri silip formun açıldığında olayına

Kod:
Me.Metin28 = UKullaniciAdi
kodunu ekledim.

Bu şekilde, şifre formuyla giriş yaptığıniz kullanıcı adı "UKullaniciAdi" olarak kaydedilir. istediğiniz yerde "UKullaniciAdi"nı kullanabilirsiniz. Farklı kullanıcı adıyla giriş yaptığınızda UKullaniciAdi değişir.

Kaydetme kodunda

Kod:
Rc![xxxxxxx] = "UKullaniciAdi"

kodunu eklerseniz tablodaki xxxxxx alanına kullanıcı adını kaydeder.
Sayfalar: 1 2 3