18/03/2020, 20:34
SeferŞANLI
Private Sub listefirma_DblClick(Cancel As Integer)
On Error GoTo ListefirmaHata
If IsNull(Me.txtsecim) Or Me.txtsecim = 0 Then
Me.txtsecim = 1
Else
Me.txtsecim = Me.txtsecim + 1
End If
ListefirmaCikis:
Exit Sub
ListefirmaHata:
MsgBox ("Firma Seçimleri Tamamlandı")
Resume ListefirmaCikis
End Sub
ana form=frm_malzemeler
denetim=listefirmalar
altform=frm_ihtiyac
denetimler
txtf1
txtf2
txtf3
ana formdan çift tıklamayla altformdaki denetime göndermek istiyorum lakin olmuyor?
On Error GoTo ListefirmaHata
If IsNull(Me.txtsecim) Or Me.txtsecim = 0 Then
Me.txtsecim = 1
Else
Me.txtsecim = Me.txtsecim + 1
End If
Forms![frm_malzemeler]![Me.listefirma.Column(2)] = Forms![frm_malzemeler]![frm_ihtiyac].Form![Me("txtf" & txtsecim)]
'Me("txtf" & txtsecim) = Forms![frm_malzemeler]![Me.listefirma.Column(2)]ListefirmaCikis:
Exit Sub
ListefirmaHata:
MsgBox ("Firma Seçimleri Tamamlandı")
Resume ListefirmaCikis
End Sub
ana form=frm_malzemeler
denetim=listefirmalar
altform=frm_ihtiyac
denetimler
txtf1
txtf2
txtf3
ana formdan çift tıklamayla altformdaki denetime göndermek istiyorum lakin olmuyor?