+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: SubFormdan Alan degerini alma (/konu-subformdan-alan-degerini-alma.html)
Sayfalar:
1
2
SubFormdan Alan degerini alma - abdulkadir1976 - 18/11/2011
S.A herkese merhaba
Resim de Belirtmeye Calıstım
Sub formdaki listelenen veriler içinde seçtigim satırdaki ID degerini nasıl alırım
ID degerini alıp Sql ile Rapor Sayfası için bilgi çekicem ama Hatası alıyorum
hata IHALE formu bulunamadı diyor. ve ID istiyor.
Forms!IHALE!ID
1-Mainform
Main form içine Açılan ihale Formu var
ihale formu içinde ise sub form olarak Alt_ihale_listesi Formu var
Form Adları
1- FrmMain
2-ihale
3-Alt_ihale_listesi
3 nolu form 2 nolu form içinde 2 nolu fom 1 nolu form içinde açılıyor
inşaallah anlatabilmişimdir
şimdiden teşekkür eder iyi çalışmalar dilerim...
Private Sub cmdRaporOnizleme_Click()
On Error GoTo cmdRaporOnizleme_Click_Err
On Error GoTo 0
If (IsNull(lstReports)) Then
Beep
Exit Sub
End If
DoCmd.OpenReport Forms!ihale_Raporlari!lstReports, acViewPreview, "[ID]=" & Forms!IHALE!ID, "", acNormal
DoCmd.Maximize
cmdRaporOnizleme_Click_Exit:
Exit Sub
cmdRaporOnizleme_Click_Err:
MsgBox Error$
Resume cmdRaporOnizleme_Click_Exit
End Sub![[Resim: accesst.jpg]](http://img708.imageshack.us/img708/825/accesst.jpg)
Cvp: SubFormdan Alan degerini alma - ozanakkaya - 18/11/2011
Örnek uygulanayı ekleyiniz, örnek üzerinden çözüm arayalım...
Cvp: SubFormdan Alan degerini alma - abdulkadir1976 - 19/11/2011
61 mb bir veritabanı bu
buraya atmak için küçültmek içi bayagı ugraşmam gerekecek
sunu denedim
Private Sub cmdRaporOnizleme_Click()
Dim db As DAO.Database
Dim qdf As DAO.QueryDef
Dim strSQL As String
On Error GoTo cmdRaporOnizleme_Click_Err
On Error GoTo 0
If (IsNull(lstReports)) Then
Beep
Exit Sub
End If
Set db = CurrentDb
Set qdf = db.QueryDefs("IHALE_RAPOR")
strSQL = "SELECT Settings.*, BANKA.*, IHALE.ID, IHALE.*, SIRKET.*, * " & _
" FROM IHALE, (Settings INNER JOIN BANKA ON Settings.Banka = BANKA.ID) " & _
" INNER JOIN SIRKET ON Settings.Sirket = SIRKET.ID " & _
" WHERE (((IHALE.ID)= 12 ));"
qdf.SQL = strSQL
Set qdf = Nothing
Set db = Nothing
DoCmd.OpenReport Forms!ihale_Raporlari!lstReports, acViewPreview, ""
DoCmd.Maximize
cmdRaporOnizleme_Click_Exit:
Exit Sub
cmdRaporOnizleme_Click_Err:
MsgBox Error$
Resume cmdRaporOnizleme_Click_Exit
End Sub" WHERE (((IHALE.ID)= 12 ));"
satırına manuel olarak 12 yazdıgımda 12 ID Nolu Kayıt Geliyor
Bana Lazım olan Listeden seçili satırdaki ID Nolu Kaydın Gelmesi
çok şey denedim maalesef basit bir şey sanıyorum ama olmadı
Cvp: SubFormdan Alan degerini alma - Yandemir - 19/11/2011
IHALE ve ihale farklı form isimleridir kontrol edin. ID ve id de farklı alan isimleridir.
Form Adları
1- FrmMain
2-ihale
3-Alt_ihale_listesi
Cvp: SubFormdan Alan degerini alma - Yandemir - 19/11/2011
https://accesstr.net/konu-listeden-2-ayri-rapor-secmek-hakkinda.html
bu konuyuda inceleyin sizin uygulamanın aynısıdır.
Cvp: SubFormdan Alan degerini alma - abdulkadir1976 - 19/11/2011
teşekkür ederim güzel bir fikir verdi bu uygulama
rapor formunan bir etiket koydum
rapor formunu acarken
Form_ihale_Raporlari.Etiket_ID.Caption = Form_Alt_ihale_listesi.ID" WHERE (((IHALE.ID)= Forms!ihale_Raporlari!Etiket_ID.caption ));"bu şekilde şimdilik sorun çözüldü
benim şaşırdıgım rapor secme formu üste duruyorken ben alttaki liste formunda
satır sectigimde o sectigim aktif satırı neden yazdıramıyorum
bana şimdilik bu yeter ilgi ve alakanıza teşekkür ederim...
iyi çalışmalar