I'm doing a really simple task and have no idea why I get blank form when I try to open it from another form.
Here is the form when I open it not from another form:
The record source of this form is:
SELECT tblChidush.ChidushId, tblChidush.LoaziDate, tblChidush.HebDate, tblChidush.PasukId, tblSefer.Sefer, tblParasha.Parasha, tblPasuk.PerekNum, tblPasuk.PasukNum, tblPasuk.Pasuk
FROM (tblSefer INNER JOIN tblParasha ON tblSefer.SeferId = tblParasha.SeferId) INNER JOIN (tblPasuk INNER JOIN tblChidush ON tblPasuk.PasukId = tblChidush.PasukId) ON (tblParasha.ParashaId = tblPasuk.ParashaId) AND (tblSefer.SeferId = tblPasuk.SeferId)
WHERE (((tblChidush.PasukId)=10));
Now ... when I open the form from another form I use the from load event with this code:
Private Sub Form_Load()
Dim strSqlForm As String
strSqlForm = "SELECT tblChidush.ChidushId, tblChidush.LoaziDate, tblChidush.HebDate, tblChidush.PasukId, tblSefer.Sefer, tblParasha.Parasha, tblPasuk.PerekNum, tblPasuk.PasukNum, tblPasuk.Pasuk FROM (tblSefer INNER JOIN tblParasha ON tblSefer.SeferId = tblParasha.SeferId) INNER JOIN (tblPasuk INNER JOIN tblChidush ON tblPasuk.PasukId = tblChidush.PasukId) ON (tblSefer.SeferId = tblPasuk.SeferId) AND (tblParasha.ParashaId = tblPasuk.ParashaId) WHERE (((tblChidush.PasukId)=15));"
Me.RecordSource = strSqlForm
End Sub
The result is empty form
this is driving me crazy ... I have no idea why
Here is the form when I open it not from another form:
The record source of this form is:
SELECT tblChidush.ChidushId, tblChidush.LoaziDate, tblChidush.HebDate, tblChidush.PasukId, tblSefer.Sefer, tblParasha.Parasha, tblPasuk.PerekNum, tblPasuk.PasukNum, tblPasuk.Pasuk
FROM (tblSefer INNER JOIN tblParasha ON tblSefer.SeferId = tblParasha.SeferId) INNER JOIN (tblPasuk INNER JOIN tblChidush ON tblPasuk.PasukId = tblChidush.PasukId) ON (tblParasha.ParashaId = tblPasuk.ParashaId) AND (tblSefer.SeferId = tblPasuk.SeferId)
WHERE (((tblChidush.PasukId)=10));
Now ... when I open the form from another form I use the from load event with this code:
Private Sub Form_Load()
Dim strSqlForm As String
strSqlForm = "SELECT tblChidush.ChidushId, tblChidush.LoaziDate, tblChidush.HebDate, tblChidush.PasukId, tblSefer.Sefer, tblParasha.Parasha, tblPasuk.PerekNum, tblPasuk.PasukNum, tblPasuk.Pasuk FROM (tblSefer INNER JOIN tblParasha ON tblSefer.SeferId = tblParasha.SeferId) INNER JOIN (tblPasuk INNER JOIN tblChidush ON tblPasuk.PasukId = tblChidush.PasukId) ON (tblSefer.SeferId = tblPasuk.SeferId) AND (tblParasha.ParashaId = tblPasuk.ParashaId) WHERE (((tblChidush.PasukId)=15));"
Me.RecordSource = strSqlForm
End Sub
The result is empty form
this is driving me crazy ... I have no idea why