|
Merhabalar ,biraz uzun bir soru kusura bakmayın ;
[code=vba]Dim db As dao.Database
Dim rst As dao.Recordset
Dim sorgum As String
Dim ExtStrWhere As String
Call FuncStrWHERE(ExtStrWhere)
'Önce "FuncStrWHERE" fonksiyonundan bahsedeyim,
'Public Function FuncStrWHERE(StrWhere As String)
StrWhere = ""
If Format([Forms]![FaturaSorgula]![ComboFaturaTarihi1], "") <> "" And Format([Forms]![FaturaSorgula]![ComboFaturaTarihi2], "") <> "" Then
StrWhere = " (FaturaSorgulalvwOnayli
|
|
Merhaba Arkadaşlar,
Acsess ile yeni tanıştım. Çok da memnun oldum.
Size bir sorum olacaktı. Ekte paylaştığım dosyada "Müşteri Veri Tabanı" , "Sipariş Veri tabanı" ve " Sipariş formu " var. Yeni bir sipariş için "Yeni Sipariş" butonuna basıyorum. Boş olan forma ben müşteri numarasını girdiğimde Müşteri veri tabanından Müşteri adını otomatik olarak getirmek istiyorum.
Bunu nasıl yapabilirim.
Teşekkür ederim.
|